REFERENCES OF 


IDENTIFIER 


xcb op 
xcb_p 
xcb_p 
xcb_ p- 
xcb op 
xcb_p 


xcb_p 
xcb op 


xcb_p 
xcb_p 


xijl_ordinal 
xijl_ordinal 


xmeount 
xp 


xp 
xpFfti 
xpFft i 
xpFfti 
xpFft i 
xpFft i 
xpft i 
xpFfti 
xrcount 
xsfid 
xsfid 
xsva 
xsva 
xsva 
xsva 


SOURCE LIST OF 


mmm$page_fault_processor 


REX 


~DEFINED---- 


ON LINE 
8385 
8532 
9533 
S665 
S665 
9678 


13375 
13376 


13428 
13455 
7271 
9665 
9945 
5306 


5492 
7687 
7955 
3775 
9942 
9942 
11313 
12026 
9946 
7272 
9665 
8875 
1O777 
11312 
12058 


REFERENCE 


mmm$pfti_manager 


ABBREVIATIONS 
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1.0 89102 
“*-++--REFERENCES 

$015 gso1s 
$553 $553 ; 
9553/P 8553/P $555 
s694 $694 
s695 gs6g95 
8684/P 9693 9694/P 
9714 9715/M 
13386 13386 
13385 13386/P 13387 
13403/P 
13464 13464 
13461/M 13462/P 13464/P 
7279 /M 7282/M 7286 
9686/M 9686/M s68s6 
10071/M 
8835 9009 $010 
10905 10906 11066 
11350 11354 11356 
13466/P 13467/P 
8772 8826 8936 
7702/M 
73974/M 
9851/M 9852/8 $853/S 
9372/M 99388/M 
93876/M 10063/M 
11911/M 11912/S 11913/S 
12317/M 
10070/M 
7274/M 7275/M 7278/™M 
9686/M 9686/M 9686/M 
8974/M 
10810 
11899/M 11901/M 11905 
12107/M 12164 12181/M 
12243 12265/P 12270 

Memodify, A=sattribute, 


1.9 89102 


9695/P 


13392/S 


13464/P 


9018 
11067 
11358 


8962 


9854/Ss 


1415974/P 


7281/M 
9686/M 


11905 
12181 
12302/M 


S=subscript, 
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$702 $703/M 9712/P 9713 
133933/P 13395 13395 13396/S 
13465/P 13466/P 13467/P 
9553/P S555 10900 10905 
11327 11328/P 11336/M 11336 
119939/M 13387 13464/P 13465/P 
11510 
9870/M 9871/S 9872/S 9873/S 
7285 
9686 
119306/M 11906 11907 
12216/M 12218 12237/P 12243/M 
12302 

I=I/O ref, Reread, W-ewrite, 
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2 MODULE mmm$pfti_manager ; 
3 
4 { 
5 { PURPOSE: Memory Manager 
6 { This module contains the monitor routines that are used to 
7 { locate all page frames bedlonging to a specified range of an SVA. 
8 { 
9 
° 210 { This decks defines compile-time constants to control conditional compilation 
° 211 { of debug code in memory manager modules in monitor mode. All constants should 
° 212 { be set to FALSE for the transmitted version of this deck. 
° 213 
ce) 214 CONST 
° 215 mmc$debug = TRUE; 
° 216 
° 217 
° 218 ?VAR 
Le] 2193 mmc$debug check queues: boolean := TRUE, {Check PQL linkage} 
° 220 mmc$debug_ relink _swapping job: boolean := TRUE , {Stop if relink page of swapping job} 
° 221 mmc$debug pt: boolean := TRUE, {check PT - AST linkage} 
° 222 mmc$debug free asid: boolean := TRUE, {Verify no attempt is made to free an AST 
© 223 { entry with pages not in AVAIL queue. 
° 224 mmc$debug_ aste _p_from_pfti: boolean := TRUE, {Verify aste_p in pfti is correct} 
° 225 mmc$debug rma_list: boolean := TRUE, {Verify RMA list on lock/unlock rma list} 
ce) 226 mmc$debug_ esc_alloc: boolean := TRUE, {check for escaped allocation} 
° 227 mmc$debug ast _pft: boolean := TRUE?; {check pft.aste_p on reference to AST} 
° 228 
© 230 {External procedures used by this module. 
© 231 { Try to keep them in alphabetical order. 
° 232 PROCEDURE [inline] jmp$get_ijle_p (ijl_ordinal: jmt$ijl_ordinal; 
° 233 VAR ijle_p: AjmtS$initiated _job_list_entry); 
° 234 
1173 
1174 { PURPOSE: procedure mtp$error stop 
1175 { Prefixes ‘ERR=VEOS1000-’ to the string and calls mtp$step_unstep_system to write string and step system} 
1176 
1177 PROCEDURE [XREF] mtp$error_stop (text: string(*<=63) ); 
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Giebal 


oo0o00$0 


eoo0o000 0000 


SOURCE LIST OF mmm$pft i_manager 
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1180 
1181 
1182 
1183 
1211 
1212 
1213 
1214 
1215 


1219 
1220 
1221 
1222 
1223 


1225 
1226 
1227 
1228 
1229 
1232 
1233 
1234 
1235 
1236 
1250 
1251 
1252 
1253 
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XREF and XDCL 


{Define pointer to Initiated Job List (IJL). 
VAR 
jmvSijl_p: [XREF] jmt$Siji_p; 
{Pointer to the ‘PAGE FRAME TABLE’ (PFT) 
VAR | 
mmv$pft_p: [XREF] Ammt$page_frame_table; 


{Define page table length in words. 
VAR 
mmv$pt_length: [XREF] integer; 


{Pointer to the system PAGE TABLE (PT). 
VAR 
mmv$pt_p: [XREF] AostS$page_ table; 


{System page size. } 


VAR 


osv$page size: [XREF] ost$page_ size; 


VAR 


mmv$pfti_array_p: [XDCL, #GATE] Ammt$pfti_array; 
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‘EXDCL] mmp$initialize find _next_pfti 


PHPPAAHPAHDPAAAADHAAHPAHHPHAAHDAHHFEPRHROODCNDNOIDDCNDCNDDCIDDCNDINVD DODD INOACCNODNOCSDO 


{ a a a 
{ 
{ The following procedures are used for 
{ The procedures use an array (MMV$PFTI_ARRAY ) 
{ mmp$initialize_ find _next_pfti - fills the array with the 
{ mmp$find next_pft i - returns the next PFTI 
{ mmp$delete_last_pfti_from_array ~- deletes the most recently returned PFTI 
{ PFTI array 
af mmp$reset_find_next_pft i - resets the array 
{ mmp$find_next_pfti will 
{ 
{ Depending on initialization options the PFTIs selected by theses 
{ psc_nominal_ queue - only PFTIs of pages that are ‘valid’ 
{ fixed, shared, io_error) 
{ psc_all_except_avail- PFTI’s of all pages in memory EXCEPT 
{ PROCEDURES THAT CALL THESES ROUTINES 
{ PAGES THAT ARE IN THE AVAIL QUEUE. 
{ psc_atll - the PFTI’s of all pages within the range that are 
{ ensure that a11 pages of the segment 
{ THE ENTIRE SEGMENT BE SEARCHED. 
ee on abrtereeno aateve Sjahel Meee vera ecate: ofa eica a are ve ee ele aie wheres esac ‘a 
PROCEDURE [XDCL] mmp$initialize_find_next_pfti 
( xSva: ost$system_virtual_ address; 
length: ost$segment_length; 
end_point_option: (include_partial_ pages, exclude_partial_ 
page selection criteria: mmt$page_ selection criteria; 
aste_p: Ammt$active_segment_tabie_entry; 
VAR xpfti: mmt$page_frame_index) ; 
VAR 
found: boolean, 
hcount: 1 32, 
high_offset: integer, 
ipti: integer, 
low_offset: integer, 
offset: integer, 
page count: integer, 
pages_in_memory: integer, 
pfti: mmt$page_frame_index, 
pfti_index: integer, 
selection _ page queues: mmt$page queue set, 
sva: ost$system_virtual_address; 
mmv$pfti_array_pA.pftis [0] :2: 0; 
pfti_index :=: 0; 
pages _in_memory :: aste pr.pages_in_memory; 
{ Set up the parameters used te control the search. This 
{ 


IF (pages_in_memory > ©} AND (length > ©) THEN 
SVaA : = XSVA; 
offset := sva.offset; 


IF end_point_option = include partial_pages THEN 


from the array. 
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locating pages belonging to a specified SVA to SVA+LENGTH range. 
allocated at deadstart time to contain the 


list of PFTIs. 

of PFTIs and returns the first one. 
(O = end of array) 
from the array. 


list 


If the 


is rescanned the entry will not be returned again; 
index so that subsequent calls to 
rescan the array and return ali 


PFTIs. 


routines are be restricted as follows: 
will be returned (eg. working set, wired, 


for pages 
MUST BE PREPARED TO HANDLE NOT FINDING 


im the AVAIL queue are returned. 


im memory are returned. To 


are found, THE CALLER MUST SPECIFY THAT 


pages); 


includes the starting offset. 
Determine the set of page queves a page can be linked to based on the page _selection_criteria. 
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755 


a 
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SOURCE LIST OF mmm$pfti_ manager 


[XDCL] 


page count := (offset + 
ELSE 
page _ count :=: 


offset :: 


length - 1) DIV osv$page_size 


{offset + length) DIV osv$page_size; 
(loffset + osv$page_size - 1) 


page count := page count - offset DIV osv$page_size; 
IFEND; 
low_offset : = offset - offset MOD osv$page_size; 


high_offset :: low_offset + page count * osv$page_size 
selection_page queues := $mmt$page_queue_set [1]; 
IF page_ selection _criteria = psc_ali1 THEN 
selection_page_queves := -Smmt$page_queuve_ set 
ELSEIF page_selection_criteria = 
selection_page_ queues := -$S$mmt$page_queue_set [mmc$pq 
ELSE {page_selection_ criteria = psc _nominal_queue} 
IF aste_pA.queue_id = mmc$pq_job_working set THEN 
selection_page_queuves := $mmt$page_queue_ set 
mmc$pq_job_working_ set]; 
ELSEIF ((aste_p%.queue_id >= 
selection_page_queues := -$mmt$page_queue_set [mmc$ 
mmc$pq wired, mmc$pq_job_fixed, mmc$pq_job_wo 
ELSEIF aste p%.queue_ id = mmc$pq_ wired THEN 
selection_page queues := $mmt$page_ queue_set 
ELSEIF aste_p%.queuve_id = mmc$pq_job_fixed THEN 
selection_page_ queues :=: $mmt$page_queue_ set 
ELSE 
mtp$error stop 
IFEND; 
IFEND; 


[]; 


psc_all_except avail T 


mmc$pq_ shared first) AND 


[mmc$p 
[mmc$p 


(‘FIND NEXT PFTI -- BAD QUEUE ID’); 


{ Search for pages. 

IF (low_offset = 
pfti :: 
IF 


©) AND (length > 7fFfFFFeEOO0(16)) THEN 
aste pA. pft_ Tink. fwd; 
(page_selection_criteria = ps¢c_ali) THEN 
The request is for all 


the segment/page frame 


the pages of a segment that are in m 
link to find all pages of the segmen 


ones 


WHILE pfti <> © DO 
mmv$pfti_array_pA.pftis [pfti_index] :=: 
pfti_index := pfti_index + 1; 
pfti := mmvSpft_pA [pfti].segment_link. fwd; 

WHILEND; 

ELSE 


pfti; 


The request length is for the entire segment, 
the segment/page frame link to find ail 
page_selection criteria. 


pages of the segmen 


are ee 


WHILE (pfti <> 0) DO 
IF mmv$pft_pA [pfti].queue_id IN selection_page_q 
mmv$pfti_array pA.pftis [pfti_index] := pfti; 
pfti _imdex := pfti_index + 1; 
IFEND; 
pfti :: 


mmv$pft_ pA [pfti].segment_link. fwd; 
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- {offset DIV osv$page_size) + 1; 


- 1 . 


HEN 
_availl; 


[mmc$pq_shared_io_error, 
{ Unwritable permanent file pages go to the sShared_io_error q. } 
mmc$pq_shared_ last) ) 
mmc$pq_avail modified, 
mmc$pq_job_io_error]; 


{aste_p%.queue_id ¢= 
mmc$pq_avail, 


pq_free, 
rking set, 


q_ wired]; 


q_job_fixed] ; 


emory, 
t. 


but mot all queues should be searched. 


t and check 


ueues THEN 


DIV osv$page_size) * osv$page_size; 


Use the 


if each page fits the 


1989-08-21 


If the page 


integer to prevent end case at end of segment 


WHILEND; 
IFEND; 
ELSEIF (page count < pages_in_memory DIV 4) THEN 
{ If the request is for a small percentage of the pages in memory, 
{ the #HASH instruction to locate pages. This aigorithm is NOT efficient for searches that 
{ a large number of pages, because it does a HASH on each page in the range. 
{ it is put in the pfti array only if the page satisfies the page selection criteria. 
WHILE page count > © DO 
Sva.offset :: offset; 
#HASH_SVA (sva, ipti, Ncount, found); 
page _ count := page count - 1; 
offset := offset + osv$page_size; {Must be 
IF found THEN 
pfti := (mmv$pt_pA Lipti].rma * 512) DIV osv$page_size; 
IF mmv$pft_pA [pfti].queue_id IN selection_page_ queues THEN 
mmv$pfti_array pA.pftis [pfti_index] := pfti; 
pfti_index := pfti_inmdex + 1; 
IFEND; 
pages_in_memory := pages_in_ memory - 1; 
IF pages_inm_memory = © THEN 
page_ count := 0; 
IFEND; 
IFEND; 
WHILEND; 
ELSE 
{ The request is for a majority of the pages in memory. Agai 


{ segment/page frame link to find all 
{ the range requested and decide 


pages of the segment. 


pfti :: aste_pA.pft_link. fwd; 
WHILE (pfti <> 0) AND (page_count > 0) DO 
IF (mmv$pft_pA [pfti].sva.offset >= low_offset) AND 
(mmv$pft_p’ [pftil.sva.offset <= high_offset) 


page count := page count - 1; 

IF mmv$pFft_pA [pfti].queue_id IN selection_page_q 
mmv$pfti_array_pA.pftis [pfti_index] := pfti; 
pfti_index :: pfti_index + 1; 


IFEND; 
IFEND; 
pfti :: mmv$pft_pA [pfti].segment_link. fwd; 
WHILEND; 
IFEND ; 

IFEND; { pages _in_memory > oO } 
mmv$pfti_array_pA.pfti_first :=5 0; 
mmv$pfti_array pA.pfti_index := 0; . 
mmv$pfti_array pA. last _pfti_index := pfti_index; 
mmv$pfti_array pA.pftis [pfti_index] := 0; 
xpfti := mmv$pfti_array _p4.pftis [0]; 
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mmc$pq_job_io_ error, 


so use the search algorithm that uses 


13:33:34 


use the search algorith that uses 
look for 
is found, 


(2**31)} 


n, use the search aigorithm that uses the 


We need to check 


if the page satisfies the selection criteria. 


THEN 


ueues THEN 


if the page offset 


is within 


THEN 
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[XDCL] mmpS$initialize_find_ next _pft i 


300 1423 
© 1424 
° 1425 
© 1426 


SOURCE LIST OF mmm$pft i_manager 


PROCEND mmp$initialize_find_next_pfti; 
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INLINE Procedures used in other modules 


1429 
1430 


1437 
1438 
1439 
1440 


0000 


1447 
1448 
1449 
1450 


1469 
1470 
1471 
1472 


o0o000 


1496 
14387 
1498 


1506 
1507 
1508 


0080 


1516 
1517 
1518 


1526 
1527 
1528 


o000 


PROCEDURE [INLINE] mmp$delete_iast_pfti_from_array; 


PROCEDURE [INLINE] mmp$fetch _pfti_array_size 
(VAR pfti_size: integer); 


PROCEDURE [INLINE] mmpSfind_next_pft i 
(VAR xpfti: mmtS$page_ frame_index) ; 


PROCEDURE [INLINE] mmp$reset_find_next_pfti 
(VAR xpfti: mmt$page_frame_index) ; 


PROCEDURE [INLINE] mmp$reset_store_pfti; 


PROCEDURE [INLINE] mmp$store_pfti (pfti: mmt$page_frame_index) ; 


PROCEDURE [INLINE] mmp$reset_store pfti_reverse; 


PROCEDURE [INLINE] mmp$store_pfti_reverse (pfti: mmt$page_frame_index)}) ; 


1537 MODEND mmm$pfti_manager 


*¥*%% 129$05578173A8S0102D19890821T183254 LeZ2Z2XXLIST B8:LGO DA=NONE LO 


**** NO DIAGNOSTICS 


R 


RC=NONE 


OPT=SCHED 


1989-08-21 
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Et 


F 


LF=CS612 
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REFERENCES OF mmm$pfti_manager NOS/VE CYBIL/II 
IDENTIFIER? = 2 =~ 2S e's ee eee ee s+ DRE INGO} er res oes eS Sess REFERENCES 
ON LINE 
aste_p 1282 1301 
biock_ index 180 236/S 
block_number 179 236/S 
biock p 1188 236 
dfc$command_record bytes 356 364 
dfc$division_overwrite_words 343 371 
dfc$esm_command_record_ size 364 372 
dfc$esm_header_record_ size 365 372 
dfc$esm_maintenance_buf_ size 344 375 
dfc$esm_memory_ base_shift 350 372 
dfc$header_record_ bytes 355 365 
dfc$max_esm_ memory size 345 374 
dfc$max_ number _of_ mainframes 352 337 
dfc$min_data_ record bytes 360 371 
dfc$min_esm_division_size 370 374 
dft$mainframe_set 337 287 
dmt$system_file_id 386 319 
end point option 1280 1310 
found 1286 1379 
fwd 196 1344 
gftS$file_descriptor_index 162 152 
gftSsystem_file_identifier 151 141 
gft$table_ residence 165 153 
hcount 1287 1379 
high _offset 1288 1318/M 
ijl_ordinal 232 236/S 
ijle_p 233 236/M 
inc lude_partial_pages 1280 1310 
index p 1202 236 
iot$io_error 1131 320 
ipti 1289 1379 
jmc$highest_ service _ accumulator 834 835 
jimc$ies_job swapped 614 623 
jmc$ies_swapin_in progress 613 622 
jme$iss_idie tasks _ initiated 629 656 
jmc$iss swapin_io_complete 654 657 
jmc$iss_swapin_requested 650 657 
jmc$iss_Swapout_ complete 649 656 
jme$iss_Swapped_io_cannot_init 640 667 
imcS$iss_swapped_no_io 631 66S 
jmce$kjl_maximum_entries 407 400 
jmcS$kol_maximum_entries 417 402 
jmc$max_ajil_ord 399 3932 
jmc$max_dispatching control 573 577 
jmc$max_dispatching_ priority 495 455 
x % REFERENCE ABBREVIATIONS M=modi 


REFERENCES OF mmm$pfti_manager 


IDENTIFIER 


i?) 
0 
jmc$max_ijl_index_ count 
jmc$maximum_job_classes 
jmc$maximum_job_count 
jmc$maximum_output_count 
jmc$maximum_service_classes 
jmc$min_dispatching contro} 
jmc$nulil_service_ciass 
jmc$priority_p!1 
jmc$priority_pio 
jmc$priority p14 
jmc$priority pé& 
jmc$reserved_ajls 
jmc$service_accumulator_maximum 
jimc$system_default_offset 
imc$system_ supplied nmame_size 
jmc$unlimited_ offset 
imp$get_ijle_p 
imt$ajil_ordinal 
jmt$delayed_swapin_work 
jmt$dispatching control_ index 
jmt$dispatching controls 
jmtS$dispatching_ priority 
jmt$ijl_block_index 
jmt$ijl_block_number 

imt$S$ijl_ dispatching contro} 
imt$ijl_entry status 
jmt$ijl_ordinal 

jmtSijl_p 
jmt$ijl_page_fault count 
jmt$ijl_page stats 
jmt$ijl_service_ class stats 
jmt$ijl_statistics 
jmt$iji_swap_count 
imtS$ijil_swap_counts 
jmt$ijl_swap_status 
imt$initiated_job_list_block 
imt$initiated_job_list_entry 
jmtSinitiated_job_list_p 
jmtS$input_ file location 
jmt$job_abort disposition 
imt$job_class 

jmt$ job_mode 

imt$ job_priority 
jimt$job_recovery disposition 
jmt$kj1_index 

imt$queue file_ijl_information 
imt$scheduling data 
imt$service_accumulator 
jimt$service class_index 
imt$swap_data 

jmtS$swapout reasons 
imtSswapped_job_entry 
jmt$system_supplied_name 


eX 


EF INED 
N LINE 
188 
764 
414 
424 
867 
S72 
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REFERENCES 


1200 
767 
* 407 
417 
870 
576 
861 
456 
457 
457 


_ 
—_ 
ce 
W 
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1326 


373 


288 


1382 
1353 


336 


1404 


236/S 


1085 
1383/8 


401 


488 


fy, 


1.0 89102 


305 


1036 


Azattribute, 
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13283 1329 1332 1334 
373 

446 44a7 

1366 1401 1411 

786 

459 


S=subscript, I=1/0 ref, 
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1191 


275 303 1010 1011 


680 


260 


1202 
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REFERENCE ABBREVIATIONS : Memodify, Atattribute, Stsubscript, 1121/0 ref, Rtread, Wewrite, P=parameter 


REFERENCES OF mmm$pft i_manager 


IDENTIFIER--+- - ee eer erent tees D 
-O 
imt$task_time_slice 
jmt$time_slice_values 
jmv$ijl_p 
isc$isqi_swapped_io_completed 
isc$isqi_swapped_io_not_init 
jst$changed_asid_entry 
‘jstSijl_swap_queue_id 
ist$ijl_swap_queue_1link 
jst$io_control_information 
jst$swap_file_ descriptor 
istSswapped_page_ descriptor 
jist$S$swapped_ page descriptors 


last_pfti_ index 


length 
low _ offset 


mmc$pq avail 
mmc$pq_avail_modified 
“mmc$pq_free 

mmc$pq_job_fixed 
mmc$pq_job_io_error 
mmc$pq_job_working set 

mmc$pq shared first 

mmc$pq shared _ first _site 
mmc$pq_ shared_io_error 
mmc$pq_shared_ last 
mmc$pq_shared_num_sites 
mmc$pq_shared_other 

mmc$pq_ shared _site_01 

mmc$pq_ shared _ site_25 
mmc$pq_shared_ task_service 
mmc$pq_ Swapped_io_error 
mmc$pq_wired 
mmp$delete_ last _pfti_from_array 
mmp$fetch pfti_array_size 
mmp$find_ next _ pft i 

mmp$ initialize find next _pft i 
mmp$reset_ find _next_pfti 
mmtS$active_ segment_table_entry 
mmtS$ast_ index 
mmt$global_page_queue_ index 
mmt$giobal_page_queue_list_ent 
mmt$ job_page queue_index 

mmt$ job_page_ queue list 
mmt $ Tink 

mmt$ locked page 

mmt $memory reserve request 
mmt$page_ age 
mmtSpage_frame_ index 


exe 


REFERENCES OF mmm$pfti_manager 


IDENTIFIER~---- eee eee etter eee D 
fe] 

mmtS$page frame_queue_id 

mmt$page_frame_tabie 

mmtS$page_frame_table_entry 

-mmt$page_ queue_list_entry 

mmt$page queue set 

mmt$page selection_criteria 

mmt$pfti_array 

mmv$pft_p 

mmv$pfti_array_p 


mmv$pt_p 
“mt p$error stop 


offset 

offset 
osc$free running clock_maximum 
osc$invalid_ring 
,osc$max_page_frames 


osc$max_page_size 
asc$max_page_table_entries 
-osc$max_ring 
osc$max_segment_length 
osc$max_ tasks 
,osc$maximum_offset 
‘osc$maximum_segment 
osc$min_page_size 
osc$min_ring 
‘esc$task_time_slice_maximum 
ost$asid 

ost$cp_time 
\ost$cp_time_value 
‘estS$free running _ciock 


ast$global_task_id 
‘est$Skey_lock_value 
ost$page_id 
ost$page_size 
-ost$page table 
est$page table entry 
ost$page_table_index 
ost$paging_ statistics 
/ost$ring 

ost$segment 
est$segment_length 
,ost$segment_ offset 


"2 


NOS/VE CYBIL/II 1.060 89102 
EFINED----+--se ee eeee “REFERENCES 
N LINE 
586 S66 567 
565 550 
1183 236 
1015 1017 
1014 1017 
1058 1049 
1014 1009 
1008 264 
1022 283 
1034 284 
1043 1041 
1040 1037 
17 1419/M 1442 
1500/M 1510/S 
1279 1307 1311 
1290 1317/M 1318 
60 106 1324 
61 1330 
59 118 1330 
100 107 119 
101 1327 1331 
102 119 120 
108 1329 
110 114 
37 1327 
115 1329 
111 114 
69 109 
71 110 
95 115 
64 108 
98 118 
62 105 1331 
1430 1434 
1438 1444 
1448 1466 
1277 1423 
1470 1433 
131 147 1046 
1067 326 1061 
118 1169 
1159 1169 
119 890 1170 
1170 281 
194 132 1074 
1096 1080 
1137 274 
1103 1083 1107 
21 18 196 
11490 1283 
1527 
REFERENCE ABBREVIATIONS Mzmodify, Azattr 
NOS/VE CYBIL/II 1.0 89102 
ER INE Dsce. = Secs ssish 2 Ses os REFERENCES 
N LINE 
120 48 1406 
1089 1214 
1073 1044 10893 
1155 1160 1170 
48 1296 1320 
125 1281 
14 1252 
1214 1353 1362 
1252 1299/M 1351/M 
1420/M 1421 
1457 1487 
1478/M 1478 
1483/M 1483 
1502/M 1510/S 
1521 1522/M 
1532/M 
1228 1383 
1177 1337 
907 1309 1378/M 
1291 1309/M 1311 
1317 1378 
206 203 
924 964 
25 15 16 
891 1157 
1247 1243 
26 29 
$23 964 965 
947 §70 
1129 1126 
946 947 $67 
945 966 
1246 1243 
$22 965 
537 600 
910 138 265 
704 672 717 
702 307 705 
293 137 276 
325 537 
1120 270 299 
959 $56 
31 41 
1243 1235 
4s 1228 
36 45 1045 
239 45 1081 
740 718 
$64 $76 
966 $77 
$70 1279 
967 907 378 


REFERENCE ABBREVIATIONS : Memodify, 


1456 
1511/M 
1313 
1343 


1330 


1331 


1326 


1332 


1084 


1075 


1107 
196 
1294 


ibute, 


1024 


1322 


1366 
1363/M 
1432/S 
1458/M 
1479 
1484 
1510/M 
1522 


1403 
1311 
1381/M 


17 
1163 


967 


906 


706 
277 
549 


Azattribute, 


1457 
1511 
1343 
1403 


1334 


1328 


1333 


1282 


1156 


1023 
1449 


S=subscript, 


1076 


1324 


1384 

1385/M 
1432/M 
1458 

1479/8 
1484/S 
1511/M 
1530/M 


1404 
1313 
1381 


21 


$68 


1048 


278 


S=subscript, 


1989-08-21 
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1461 1481 1482 

1520/M 

1335 

1331 

1025 1026 1027 

1453 1471 1475 
1-1/0 ref, Reread, 


1327 


1403 
1407/M 
1442 
1459 
1481 
1487 
1511 
1530 


1314/M 


133 


1089 


279 


Is1/o 


1989-08-21 


1330 


1404 
1417/M 
1442 
1459/S 
1481 
1487 
1520/M 
1531/M 


1314 


321 


1060 


1487 


1139 
1507 


Wewrite, P=parameter 
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1333 


1406 
1418/M 
1456 
1461 
1482 
1500/M 
1520 
1531 


1315 


322 


323 


1335 


1411 
1413/M 
1456 
1461 
1482 
1501/M 
1521/M 
1532/Ss 


1317 


889 


324 


ref, Rtread, Wewrite, P=parameter 


REFERENCES OF 


IDENTIFIER------c--2-- 


ost$system_virtual_address 


ost$task_index 
ost$task_time_slice 
osv$page_ size 


page_count 


page _ selection criteria 


pages _in_memory 
pages _ in memory 
pft_ Tink 

pfti 


pfti 
pfti 
pfti 
pfti 
pfti_first 


pfti_ index 


pfti_index 


pfti_size 
pftis 


psc_all 
psc_all_except_avail 


queue _ id 
queue _ id 


rma 


segment_ link 
select ion_page_queues 


sft$counter 
sva 
sva 


tmt$task_queue_link 


xpFfti 
xpFfti 
xpFfti 
xSva 


SOURCE LIST OF mmm$segment_manager_job_temp 


MMMSSEGMENT_MANAGER_JOB_TEMP 


mmm$pfti_manager 


ON LINE 


*x* REFERENCE ABBREVIATIONS 


3 MODULE mmm$segment manager _job_temp; 


4 
4524 
VAR 


VAR 


VAR 


o00c0cooo0ogo0o0o0o0o 00008 
p-) 
ui 
W 
Wi 


VAR 


4554 { 


VAR 


eo000000 
F-} 
ot 
ui 
o 


osv$page_size: 


osv$task_private_heap: 


osv$system_privilege_ map: 


SECTION 

oss$mainframe_ wired literal: READ; 
mmv$file_allocation_interval: [XREF] 
VAR 

mmv$shadow_by segnum: [XREF] boolean 


{System page size.} 


[XREF] ost$page_size; 


[XREF, READ, 


[XDCL, 
[REP (mmc$default_sdt_length + 


#GATE, 


NOS/VE CYBIL/II 


-DEFINED----------------REFERENCES 


1.0 89102 


1086 1278 
1114 1115 
586 
1311 1311 
1318 1381 
1311/M 1313/M 
1380/M 1380 
1321 1323 
1301 
1301/M 1307 
1344 1401 
1344/M 1350 
1362/Ss 1363 
1402 1402 
1455/M 1456 
1473/M 1481 
1510 
1532 
1417/M 1442 
1531 1532/Ss 
1418/M 1432/Ss 
1478/M 1481 
1521/M 1530/M 
1300/M 1351/8 
1386/M 1386 
1442/M 
1299/M 1351/M 
1459 1479 
1321 1345 
1323 
1326 1329 
1362 1384 
1383 
1353 1366 
1320/M 1322/M 
1384 1406 
719 720 
1403 1404 
1308/M 1309 
1082 
1421/M 
1464/M 
1490/M 
1308 

Msmodify, 


NOS/VE CYBIL/II 


integer ; 


1.0 89102 


12397 
1121 


1313 
1383 


1315/M 
1390/M 
1345 


1370 
1356 
1366/M 
1403/S 
1456 
1481 
1478 


1456 
1482 


1352/M 
1407/S 


1363/M 
1484 


1329 
1406 


1411 
1324/M 


1378/M 


Azattribute, 


1314 


1315 
1402 
1388/M 
1351 
1366/S 
1404/S 
1459/M 
1484/M 
1479/8 


1457 
1483/M 


1352 
1408/M™M 


1385/M 
1510/M 


1332 


1327/M 


1379 


S=subscript 


oss$ job_pageable] Aost$neap; 


Define variables that are global to this module. 


oss$task_private] 


1) of TRUE]; 


1889-08-21 13:33:34 PAGE 764 
1314 1314 1315 1317 
1318 1370 1377 1377 
1402 1405/M 1405 
1388 1389 
1353/M 1353/8 1361 1361 
1383/M 1384/S 1385 1401/M 
1406/S 1407 1411/M 1411/5 
1462/M 1464 
1488/M 1490 
1502/M 1522/M 1530 1531/M 
1458/M 1458 1459/S 1461 
1483 1484/5 1487 1501/M 
1363/58 1364/M 1364 1385/S 
1408 1419 1420/8 
1407/M 1420/M 1421 1432/M 
1520 1521 1522 1532/M 

i 
1334 
1330/M 1333/M 1335/M 1362 
{ 

, It1/0 ref, R=read, Wewrite, P=parameter 
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gfv$null_sfid: [XREF, READ, OSSSMAINFRAME_WIRED_ LITERAL] gft$system_file_identifier; 


ost$system_privilege map := 


SOURCE LIST OF mmm$segment_manager_job_temp NOS/VE CYBIL/II 1.0 88102 


DETERMINE VALIDATING RING _ NUM 


Oo 4562 
o 4563 PROCEDURE [INLINE] determine validating ring num 
ce) 4564 ( caller_ring: ost$ring; 
Oo 4565 validation _ring nmumber: ost$valid_ring; 
Oo 4566 VAR validating ring num: ost$valid_ring) ; 
Oo 4567 
oO 4568 IF validation_ring number < caller ring THEN 
Oo 4569 validating ring num := caller_ring; 
Oo 4570 ELSE 
c°) 4571 validating ring num := validation_ring number ; 
Oo 4572 IFEND; 
oO 4573 
Oo 4574 PROCEND determine _ validating ring _num; 
oOo 4575 
SOURCE LIST OF mmm$segment manager _job_temp NOS/VE CYBIL/II 1.0 898102 


UPDATE PASSIVE _WITH_ACTIVE 


PRR EP HE GADAHR ESHA HAH PAAR EHH EH AHHOO 


4877 
4878 
4579 
4580 
4581 
4582 
4583 
4584 
4s85 
4586 
4587 
4588 
4589 
4590 
4591 
4592 
4533 
4594 
4ss5 
45396 
45397 
4598 
4599 
4600 
4601 
4602 
4603 
4604 
4605 
4606 
4607 
4608 
4609 
4610 
4611 
4612 
4613 
4614 
4615 
4616 
4617 
4618 
4619 
4620 
4621 
4622 
4623 
4624 
4625 
4626 
4627 
4628 
4623 
4630 
4631 
4632 


{ 


{ 


{ 


PROCEDURE update passive _with_active 
{ segment_p: Acel1; 


VAR status: ost$status); . 
TYPE 

offset list = array [1 .. * ] of ost$segment_offset ; 
VAR 


access selections: mmt$access selections, 


address_list: array [1 .. 100] of amt$addr_length_pair, 


addr_returned: integer, 

dest_p: mmt$segment_pointer, 

dest: Acell, 

am_element length: ost$segment_ilength, 
am_element_offset: ost$segment_ offset, 
fde_p: gft$file_ desc_entry_p, 

file limits to enforce: sft$file_space_limit_kind, 
1: integer, 

in_memory: boolean, 

list_overfilow: boolean, 

Tist_p: Aoffset_Tist, 

local_status: ost$status, 

memory _list_index: integer, 
offsets _ returned: integer, 

sdt_p: AmmtS$segment_descriptor, 

sdtx_p: Ammt$segment_descriptor_extended, 
segnum: oest$segment, 

source: Acell, 

Starting addr: ost$segment_offset ; 


Get access selection before change to restore at end of proc. 


mmp$validate_ segment_number (#SEGMENT (segment_p), sdt_p, 


IF NOT status.normal THEN 
RETURN; 
IFEND; 


sdtx_p, status); 


IF sdtx_p4.software_ attribute set = $mmt$software attribute set 


[mmc$sa_read_transfer_unit, mmc$sa_free_behind] THEN 
access_ selections := mmc$as_sequential; 
ELSEIF sdtx_p4.software_ attribute set = $mmt$software_attribute_set 
access selections := mmc$as_read tu; 
ELSE 
access selections := mmc$as_random; 
IFEND; 


Set read_transfer_unit attribute in ACTIVE segment. 


mmp$set_access_selections (segment _p, mmc$as_sequential, 


Obtain access to PASSIVE segment. 


mmp$open_file segment (sdtx_p%.shadow_info.shadow_sfid, 


Status); 
IF NOT status.normal THEN 


status); 


NIL, 


mmc$cell_ pointer, 


1989-08-21 


1889-08-21 


1, 


[mmc$sa_read_transfer_unit ] 


sfc$no_limit, 


13:33:34 


13:33:34 


THEN 


dest_p, 


PAGE 7656 
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SOURCE LIST OF mmm$segment _manager_job_temp NOS/VE CYBIL/II 1.0 89102 1889-08-21 13:33:34 PAGE 768 


UPDATE_PASSIVE_WITH_ACTIVE 


BE 4633 RETURN; 
CO 4634 IFEND; 
co 64635 
CO 4636 offsets returned := 100; 
CO 4637 REPEAT 
C& 4638 ALLOCATE list_p: [1 .. offsets_returned] IN osv$task_private_heaps; 
104 4639 mmp$fetch_offset_modified_pages (segment_p, FALSE {return_unallocated_offsets} , list_p4, 
13C 4640 offsets returned, status); 
13C 4641 IF NOT status.normal THEN 
144 4642 ' FREE list_p IN osv$task_private heap”; 
164 4643 RETURN ; 
172 4644 IFEND ; 
172 4645 IF offsets returned >» UPPERBOUND (list_pA) THEN 
186 4646 FREE list_p IN osv$task_private_ heap‘; 
1AE 4647 IFEND ; 
1AE 4648 UNTIL offsets returned <= UPPERBOUND (list _p4); 
1BE 4645 
1BE 4650 IF offsets returned <> © THEN 
1C6 4651 { Convert offsets to PVAS and move all modified pages from the ACTIVE segment 
1C6 4652 FOR i := 1 TO offsets returned DO 
1CE 4653 source := #ADDRESS (1, #SEGMENT [(Segment_p), list _p4 [i]); 
1CE 4654 dest := #ADDRESS (1, #SEGMENT (dest_p.cell_pointer), list_pA fil); 
1CE 4655 i#move (source, dest, osv$page_ size); 
248 4656 mmpS$advise_out (dest, osv$page_ size, status); 
266 4657 FOREND ; 
270 4658 IFEND ; 


270 4661 { Determine whether the segment is assigned to a device. 
270 4662 { Get and move al} initialized addresses from ACTIVE file. 
270 4663 { If the segment is not assigned, mo further action is then required. 


270 4664 

270 4665 

270 4666 starting addr := 0; 

270 4667 gofp$get_fde_p (sdtx_pA.sfid, fde_p); 

2CA 4668 list_overflow := (fde_ pA.media = gfc$fm_mass_ storage_file) ; 
2ChH 4669 

2CA 4670 /get_list_of_addresses/ 

2CAH 4671 WHILE list_overfiow DO 

2EA 4672 amp$get_initialized_addresses (sdtx_pA.sfid, starting_addr, address _ list, addr_returned, list_overfilow, 
32C 4673 status); 

32C 4674 IF NOT status.normal THEN 

334 4675 RETURN; 

336 4676 IFEND ; 

336 4677 

336 4678 IF addr_returned <> 0 THEN 

33E 4679 FOR i := 1 TO addr_returned DO 


344 4681 { Look for offsets which may have already been written. Specifically, we are looking for pages which are on 
344 4682 { disk and are not modified in real memory at the same time. 


344 4683 
344 4684 dm_element_length := address_list [i]. length; 
344 4685 dm_element_offset := address list [i].adadr; 
344 4686 memory Tist_imdex := 1; 
344 4687 WHILE (dm_element_length > ©) AND (memory _list_index > 0) DO 
364 4688 memory _Tist_inmdex :: offsets returned; 
SOURCE LIST OF mmm$segment_manager_ job temp NOS/VE -CYBIL/II 1.0 89102 1889-08-21 13:33:34 PAGE 769 


UPDATE PASSIVE WITH ACTIVE 


364 4689 

364 4690 { Search the list (of offsets of all modified pages for the ACTIVE segment) for the equivalent offset returned 
364 4691 { from Device Management. If ANY of the pages in <addr + length> are not found, move the disk pages, starting 
364 4692 { at <address_ list [i].addr> and continuing through <address_list [i].addr + address list [i].length.>. In 
364 4693 { this case we MAY overwrite some addresses which were processed in the previous update above, but this is OK. 
364 4694 

364 4695 WHILE (memory list index >» ©) AND (list _pA [memory _list_index] <> dm_element_offset) DO 

37E 4696 memory _list_index := memory list index - 1; 

37E 4697 WHILEND ; 

3936 4698 dm_element_offset = dm_element_ offset + osv$page_ size; 

386 4689 dm_element_jlength := dm_element_ length - osv$page_size; 

396 4700 WHILEND; 

3AG 4701 

3AG 4702 IF memory _list_index = © THEN 

3AA 4703 


SAA 4704 { The address offset returned from DM was not written (either partially or completely) in the previous 
3AA 4705 { process; write it now. 


3AA 4706 

3AQ 4707 source := #ADDRESS (1, #SEGMENT (segment_p), address_list [i] .addr) ; 

3AA 4708 dest := #ADDRESS (1, #SEGMENT (dest_p.cell_pointer), address _ list [i].addr); 
3AA 4709 i#move (source, dest, address list [i]. length); 

41E 4710 mmp$advise_out (source, address _ list [i].length, status); 

446 4711 mmp$advise_out (dest, address _ list [i].length, status) ; 

464 4712 IFEND; 

464 4713 FOREND; 

468 4714 starting addr := address _list [addr_returned].addr + address_list [addr_returned] . length; 
484 4715 IFEND ; 

484 4716 WHILEND /get_1list_of_addresses/; 

430 4717 

490 4718 mmp$set_access_ selections (segment_p, access_ selections, status); 

4A8 47193 mmp$c lose _ segment (dest_p, 1, local status); 

4c&8 4720 FREE list_p IN osv$task_private_ heap”; 

4F2 4721 


4F2 4722 PROCEND update _passive_with_active, 


SOURCE LIST OF mmm$segment_manager_job_temp 
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MMPS$SCHANGE SEGMENT_INHERI TANCE 


0° 


mnocooooco0cc0ccocdoacaodco0eo0ao0g000d 


SOURCE LIST OF mmm$segment_manager_job_temp 


MMPSCHANGE SEGMENT NUMBER 


Nmnodcdo0d0dodcodcoooodgoooeooaooooooooaoaoooo0ocooodco0oa0a0aoao0ogo0o00 


4725 
4726 
A727 
4728 
4729 
4730 
4731 
4732 
4733 
4734 
4735 
4736 
4737 
4738 
4739 
4740 
4741 
4742 
4743 
4744 
4745 
4746 
4747 
4748 
4749 
4750 
4751 
4752 
4753 


4764 
4765 
4766 
4767 
4768 
4769 
4770 
4771 
4772 
4773 
4774 


(ate Bate Et ote ote Bate I ate ote ate 0 ote ote os te ote ote ote 0 ote | 


Sarr rr ey eee eR eS eS PN NESE SS EN RE eS rm ee es eS 


The purpose of this request 
specified segment. 
with this request. 


is to change the segment 
Only segments of 


MMPSCHANGE SEGMENT_INHERITANCE (Segment_pointer, segment_inheritance, 
SEGMENT_POINTER: (input) 
the segment which is to be changed. 
SEGMENT_INHERITANCE: (input) This parameter specifies 
The only valid inheritances for this request 

mmc$si_transfer_segment. 


the new segment 


STATUS: (output) This parameter specifies the request status. 


PROCEDURE [XDCL] mmp$change_segment_inheritance 
( pva: Acell; 

segment_inheritance: 

VAR status: ost$status); 


mmt$segment_inheritance; 


VAR 
caller_id: ost$caller_identifier, 
ri_status: ost$status, 
validating ring number: ost$valid_ring; 

status.normal := TRUE; 

#CALLER_ID (caller_id) j; 

determine_validating ring num 

mmp$change_seg_ inheritance _r1 


(caller_id.ring, 
(#SEGMENT (pva}), 


#RING (pva), 
validating ring number, 


IF NOT ri_estatus.normal THEN 
osp$set_status_condition (ri1_status.condition, status); 
IFEND; 
PROCEND mmp$change_segment_inheritance; 
NOS/VE CYBIL/II 1.0 89102 


¢o 


The purpose of this request is to associate a previously opened 
file with a different segment mumber. The old segment is deleted 
when the new segment number has been assigned. 


MMPSCHANGE SEGMENT NUMBER 
validation _ring number , 


(segment_pointer, segment_number, 
new_segment_pointer, status) ; 


Segment_pointer: (INPUT) This parameter specifies the process virtual 
address of the segment. 


Segment_number: (INPUT) This parameter 
to be associated with the file. 


is the new segment number 


Validatiaon_ring mumber: (INPUT) This parameter specifies the ring 
of execution for whom the segment is being modified. The ring 
number used for validation is the maximum of the caller ring 
number and the ‘validation ring number’. 


New segment _pointer: (OUTPUT) This parameter specifies the process 
virtual address of the file with the new segment number. 


Status: (OUTPUT) This parameter specifies the request status. 
CONDITIONS: 
mme$ring violation 
mme$S$unsupported segment_kind 
IDENTIFIER: ‘MM’ 


PROCEDURE [XDCL} mmp$change_segment_number 
( segment_pointer: amt$segment_pointer ; 
segment_number: ost$segment ; 
validation_ring_number: ost$valid_ring; 
VAR new_segment_pointer: amt$segment_pointer ; 
VAR status: ost$status); 


VAR 
caller_id: ost$caller_identifier, 
ri _segment_pointer: amt$segment pointer, 
ri_status: ost$status, 
validating ring number: ost$valid_ring; 
status.normal := TRUE; 
#CALLER_ID (caller_id); 
determine validating ring num (caller_id.ring, 
mmp$change_segment_number_r1 
validating ring number, 
IF ri_status.normal THEN 
new_segment_pointer := segment_pointer ; 
new _segment pointer.cell_pointer := 
segment number, 


validation ring number , 
(#SEGMENT (segment_pointer.cell_pointer), 
ri_status); 


#OFFSET (segment_pointer.cell_pointer)); 
ELSE 

esp$set_status condition (ri_status.condition, 
IFEND; 


status); 


inheritance of the 
inheritance mmc$si_none can be modified 


validating 


#ADDRESS (#RING (Segment _pointer. 


1989-08-21 13:33:34 


status) 


This parameter specifies the process _virtual_address of 


inheritance. 
are mmc$si_share_segment and 


ring number ); 


segment inheritance, ri_status); 


1989-08-21 13:33:34 


validating ring number ); 
segment_number, 


cell_pointer), 


PAGE 770 
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MMPSCHANGE SEGMENT NUMBER 


BO 4820 PROCEND mmp$change_segment_number ; 
oO 4821 
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. 


MMPSCHANGE STACK _ ATTRIBUTE 


Oo 4823 

oO 4824 f{ The purpose of this request is to modify the stack attribute 

o 4825 { which determines whether or not the pages beyond the current 

Oo 4826 { top-of-stack pointer are freed. Only the stack of the caller ring 

© 4827 { can be modified by this request. 

© 4828 { 

© 4829S { MMPSCHANGE STACK_ATTRIBUTE (stack _pages_to_be_ freed, status) ; 

© 4830 { 

© 4831 { STACK_PAGES TO BE FREED: (INPUT, BOOLEAN) This parameter specifies 
Oo 4832 { whether or mot the pages beyond the current top-of-stack are freed. 
oO 4833 { 

© 4834 { STATUS: (GUTPUT, OSTSSTATUS) The request status is returned in this 
© 4835 { parameter. 

© 4836 { 

Oo 4837 

° 4838 PROCEDURE [XDCL, #GATE] mmp$change_ stack_attribute 

Oo 4839 ( stack_pages_to_be freed: boolean; 

© 4840 VAR status: ost$status); 

oO 4841 

o 4842 VAR 

oO 4843 caller_id: ost$caller_identifier, 

oO 4844 ri_status: ost$status; 

Oo 4845 

° 4846 Sstatus.normal ::= TRUE; 

C 4847 #CALLER_ID (callerid); 

Cc 4848 

c 4849 mmp$change_stack_attribute_ri (stack_pages_to_be freed, calier_id.ring, ri status); 
42 4850 IF NOT ri_status.normai THEN 
44H 4851 osp$set_status_condition (ri_status.condition, status); 
5C 4852 IFEND; 
5c 48853 


SC 4854 PROCEND mmp$change_stack_attribute; 
o 4855 
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MMPSCLOSE_ SEGMENT 
Oo 4857 { 
o 4858 { The purpose of this request is to close/delete a segment. If the 
° 4859 { caller is not within the read bracket of the segment being closed the 
Oo 4860 { call is rejected. 
o 4861 { 
co) 4862 { MMPSCLOSE_SEGMENT (POINTER, VALIDATION_RING NUMBER, STATUS) 
© 4863 { 
© 4864 { POINTER: (input_output) This parameter specifies the segment 
° 4e6s f{ to be deleted. This pointer will be set to NIL when the 
o 4866 { request completes. 
© 4867 { 
© 4868 { VALIDATION _RING NUMBER: (input) This parameter specifies the ring of 
° 4s69 f{ execution for whom the segment is being closed. The ring 
re) 4870 { mumber used for validation is the max of the caller ring number 
o 4871 { and ‘validation_ring_ number’. 
© 4872 { 
o 4873 { STATUS: (output) This parameter specifies the request status. 
Oo 4874 { The possibile error codes are: 
o 4875 { dme$file_ descriptor_not_deleted 
Oo 4876 { mme$invalid_close_ segment _req 
o 4877 { mme$invalid shared _ taskid 
o 4878 { mme$segment_number_not_in_use 
o 4879 { mme$segment_number_ too_big 
o 4880 { 
fo 4881 
Oo 4882 PROCEDURE [XDCL, #GATE] mmp$close_segment 
Oo 46883 (VAR pointer: mmt$segment_pointer ; 
oO 4884 validation_ring number: ost$valid_ring; 
o 4885 VAR status: ost$status) ; 
3° 4886 
fo] 4887 VAR 
oO 4888 caller_id: ost$caller_identifier, 
Oo 4889 ri_status: ost$status, 
o 4890 validating ring number: ost$valid_ ring; 
© 489 1 
© 4892 #CALLER_ID (caller_id) ; 
Cc 4893 #KEYPOINT (osk$entry, osk$m * #SEGMENT (pointer.cell_pointer), mmk$close) ; 
2A 48394 status.normal := TRUE; 
24 4895 determine validating ring num (caller_id.ring, validation_ring number, validating _ring number) ; 
4C 4896 mmp$invalidate_ segment (#SEGMENT (pointer.cell_pointer), validating ring number, 
86 4897 NIL {shared_taskid_array), ri_status); 
86 4898 IF NOT ri_status.nmormal THEN 
8E 4838 osp$set_ status condition (ri_status.condition, status); 
Aa 4900 ELSE 
A4a 4301 pointer .celil_pointer := NIL; 
As 4902 IFEND ; 
A& 4903 #KEYPOINT (osk$exit, ©, mmk$close) ; 
AC 4904 
AC 4905 PROCEND mmp$c lose segment ; 
SGURCE LIST OF mmm$segment_manager_job_temp NOS/VE CYBIL/II 1.0 898102 1989-08-21 


‘MMPSCLOSE_SHARED_STACK 


NMngd0d0dgo0gogoogooeoeooo ooo o00o0o0o 080 


4907 
4908 
4309 
49190 
4911 

4s12 
4913 
4914 
4915 
4916 
4917 
4918 
4919 
4920 
4$21 

4322 
4923 
4324 
4925 
4326 
43927 
4928 
4929 
4930 
4331 

4332 
4933 
4934 
4935 
4936 
4937 
4938 
4939 

4940 
4941 

43942 


(oes ote oe, ote St ote ote BE te oe ote ote Bote te ote te ee ote) 


The purpose of this request is to close/delete a stack segment 
being used by ADA tasks. 


MMPS$CLOSE SHARED STACK [(POINTER, SHARED _TASKID_ARRAY, STATUS) 


POINTER: (INPUT/OUTPUT) This parameter specifes the segment to 
be deleted. This pointer witl be set to 
NIL when the request completes. 


SHARED _TASKID_ARRAY: (INPUT) This paramter specifies the array 
of taskids for the tasks in which 
this segment is being closed/deieted. 


STATUS: (OUTPUT) This parameter specifies the request status. 


PROCEDURE [XDCL] mmp$close_shared_ stack 
(VAR pointer: mmt$segment_pointer ; 
. Shared _taskid_array: Aarray [1 .. * ] of pmt$task_id; 
VAR status: ost$status) ; 


VAR 
caller_id: ost$caller_identifier, 
ri_status: ost$status; 


#CALLER_ID (caller_id); 
status.normal :+: TRUE; 


mmp$invalidate_ segment (#SEGMENT (pointer.cell_pointer), caller_id.ring, shared_taskid_array, 


IF NOT ri_status.normal THEN 

osp$set_status_condition (ri_status.condition, status); 
ELSE 

pointer.cell_pointer := NIL; 
IFEND; 


PROCEND mmp$c lose_ shared stack; 
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MMPSCREATE_SCRATCH_SEGMENT 


49a4q 

4945 The purpose of this request is to create a scratch segment. 

4946 Scratch segments are temporary segments that nave no name and 
4947 exist only until deleted via the mmp$delete scratch_segment request, 
4948 or until the creating task terminates. 

4949 

4950 MMPS$CREATE_ SCRATCH SEGMENT (POINTER_KIND, ACCESS_SELECTIONS, 
4951 POINTER, STATUS) 

4952 

4953 POINTER_KIND: (input) This parameter specifies the type of pointer 
4954 to be constructed for the segment. 

4955 

4956 ACCESS SELECTIONS: (input) This parameter specifies the mode of 
4957 access to the segment (sequential or random). 

4958 

4959 POINTER: (output) This parameter specifies the process virtual 
43960 address assigned to the segment. The byte offset in the PVA 


is set to zero. 


STATUS: (output) This parameter specifies the request status. 
The possible error codes are: 

dme$Sunabie_to_locate_fde 
dme$unable_to_get_fd_lock 
mme$address_not_0O_ mod_16384 
mmeSasid_ specified 
mme$binding attribute invalid 
mme$contig mem_seg violation 
mme$execute global_invalid 
mme$invalid_asid_specified 
mme$invalid_length_requested 
mme$invalid_pva 
mme$invalid ring brackets 
mme$ invalid _shadow_segment 
mme$invalid_ shared taskid 
mme$ jlength_not_0 mod_16384 
mme$pages already _assigned 
mme$ref_to_unrecovered_ file 
mme$ring violation 
mme$segment_number_is_in_use 
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4983 mme$segment_number_not_in_use 
4984 mme$segment_ number _too_big 
4985 mme$segment_origin_change 
4986 ‘ mme$segment_origin_invalid 
4987 mme$segment _table_is_ full 
4988 mme$software attribute invalid 
4989 mmeSunable_to_assign_contig_ mem 
4990 mmeSunsupported keyword 
4391 
4992 
4993 
4994 PROCEDURE [XDCL, #GATE] mmp$create_scratch_segment 
4995 ( pointer_kind: amt$pointer_ kind; 
4996 access selections: mmt$access selections; 
4397 VAR pointer: amt$segment_pointer ; 
4998 VAR status: ost$status); 
4999 
SOURCE LIST OF mmm$segment manager _job_temp NOS/VE CYBIL/II 1.0 89102 


MMPSCREATE SCRATCH _ SEGMENT 


o 5000 VAR 
© 5001 caller_id: ost$caller_identifier, 
Oo $002 kind: mmt$segment_pointer_kind, 
o $003 p: mmt$segment_pointer, 
o 5004 ri status: ost$status, 
oO 5005 segment _attributes: mmt$segment_attrib_descriptor; 
© 5006 
© 5007 #CALLER_ID (caller_id); 
Cc 5008 #KEYPOINT (osk$entry, ©, mmk$create_scratch_segment ) ; 
18 $009 status.normal :: TRUE; 
18 5010 IF pointer _kind = amc$cell_ pointer THEN 
24H 5011 kind := mmce$cell_pointer ; 
30 S0t2 ELSEIF pointer_kind = amc$sequence_pointer THEN 
36 §013 kind := mmc$sequence_ pointer ; 
3E 5014 ELSE 
3E 8015 kind := mmc$heap_pointer ; 
42 5016 IFEND; 
42 5017 segment_attributes.validating ring _mumber := caller_id.ring; 
42 5018 segment_attributes.file limits to enforce := sfc$temp_file_ space_limit; 
42 5019 segment _attributes.pointer_kind := kind; 
42 5020 segment_attributes.user_attributes := NIL; 
42 5021 segment _attributes.sfid := gfv$null_sfid; 
42 5022 mmp$build_ segment (segment_attributes, NIL {shared_taskid_array} 
$8 5023 
98 5024 IF ri_ustatus.normal THEN 
AO 5025 IF access selections = mmc$as_sequential THEN 
A& 5026 mmp$set_access_ selections (p.cell_pointer, mmc$as_sequential, 
C4 5027 IFEND; 
C4 5028 pointer .kind := pointer kind; 
C4 5029 IF pointer_kind = amc$cell_pointer THEN 
D4 5030 pointer.cell_pointer := p.cell pointer; 
EO 5031 ELSEIF pointer_kind = amc$sequence_ pointer THEN 
E4 5032 pointer .sequence_ pointer := p.seq_ pointer; 
F2 $033 ELSE 
F2 5034 pointer .heap_pointer := p.heap_pointer ; 
FC 5035 IFEND; 
100 5036 ELSE 
100 5037 osp$set_status_ condition (ri_status.condition, status); 
112 5038 IFEND; 
112 50639 #KEYPOINT (osk$exit, ©, mmk$create_ scratch_segment ); 


116 58041 PROCEND mmp$create_scratch_segment ; 


status); 
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ri_status); 
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SOURCE LIST OF mmm$segment_manager_job_temp NOS/VE CYBIL/II 1.0 89102 


MMPSCREATE_ SEGMENT 


The purpose of this request is to create a transient segment. 


MMPS$CREATE_ SEGMENT (SEG ATTRIBUTES P, 
VALIDATION RING NUMBER, POINTER, 


POINTER_KIND, 
STATUS) 


SEG_ATTRIBUTES_P: (input) This parameter is a pointer to the array of 
attributes to be assigned to the segment. 


POINTER_KIND: (input) This parameter specifies the type of pointer 
to be constructed for the segment. 


VALIDATION _RING_NUMBER: (input) This parameter specifies the ring of 
execution for whom the segment is being created. The ring 
number used for validation is the max of caller ring number 
and ‘validation ring number’. 


POINTER: (output) This parameter specifies the process virtual 
address assigned to the segment. The byte offset in the PVA 
is set to zero 


STATUS: (output) This parameter specifies the request status. 
The possibie error codes are: 

dme$unable_to_locate_fde 
dme$unable_to_get_fd_ lock 
mme$address_not_O mod_16384 
mmeSasid specified 
mme$binding_ attribute invalid 
mme$contig_ mem_seg_ violation 
mmeS$execute_ global_invalid 
mme$invalid_asid_specified 
mme$invalid_length_requested 
mme$invalid_pva 
mme$invalid_ ring brackets 
mme$invalid_shadow_segment 
mme$invalid_ shared taskid 
mme$ length_not_O_mod_ 16384 
mme$pages_already_ assigned 
mme$ref to _unrecovered file 
mme$ring_ violation 
mme$segment_number_is_in_use 
mme$segment_number_not_in_use 
mme$segment_number_too_big 
mmeS$segment_origin_invatlid 
mmeSsegment table_is_ full 
mme$software_attribute_ invalid 
mmeS$unable_to_assign_contig mem 
mmeS$unsupported keyword 
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PROCEDURE 


[XDCL, #GATE] mmp$create_segment 
5096 ( 


seg _ attributes p: Aarray [ * ] of mmt$attribute_ descriptor; 
pointer_kind: mmt$segment_pointer_kind; 
validation_ring number: ost$valid_ring; 

VAR pointer: mmt$segment_ pointer ; 
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SOURCE LIST OF mmm$segment_manager_job_temp NOS/VE CYBIL/II 1.0 89102 


MMPSCREATE SEGMENT 


ri_pointer, 
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validating ring number ); 


ri_status); 


© 5100 VAR status: ost$status) ; 
© $101 
o §102 
o $5103 VAR 
° 5104 caller_id: ost$caller_identifier, 
Oo 5105 ri_pointer: mmt$segment_pointer, 
Oo 5106 ri_status: ost$status, 
oO $107 segment_attributes: mmt$segment_attrib descriptor, 
° 5108 validating ring number: ost$valid_ring; 
© 5109 
© 5110 #CALLER_ID (caller_id); 
c 5111 #KEYPOINT (osk$entry, 0, mmk$create_segment) ; 
18 5112 status.normalt := TRUE; 
18 §113 determine_validating_ ring num (caller_id.ring, validation_ring number, 
34 5114 segment_attributes.validating ring nmumber := validating ring number ; 
3A §115 segment_attributes.file_ limits to enforce := sfc$no_limit; 
3A 5116 segment_attributes.pointer_ Kind := pointer_kind; 
3A 5117 segment_attributes.user_attributes := seg attributes p; 
SE 5118 segment_attributes.sfid := gfv$null_sfid; 
SE 5118 IF segment _attributes.user_ attributes <> NIL THEN 
78 5120 PUSH segment_attributes.user_attributes: [LOWERBOUND (seg attributes pA 
AE 5121 ) UPPERBOUND (seg attributes pA)]; 
AE 5122 segment_attributes.user attributes’ := seg attributes pA; 
EE 5123 IFEND; 
EE 5124 mmp$build_ segment (segment_attributes, NIL {shared_taskid_array} , 
11E 5125 IF NOT ri_status.normal THEN 
126 5126 osp$set_status_condition (ri_status.condition, status) ; 
134 5127 ELSE 
113A 5128 pointer := ri_pointer; 
148 5129 IFEND ; 
148 5130 #KEYPOINT (osk$exit, ©, mmk$create_segment ) ; 
14C) «65131 
14C 5132 PROCEND mmp$create_ segment ; 
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o 5134 { 
o 5135 { The purpose of this request is to create a transient segment that uses the 
© 5136 { ACTIVE file of an existing segment as a PASSIVE file. 
° §137 { 
o 5138 { MMPSCREATE SHADOW_SEGMENT (Shadow_pva, shadow_offset, shadow_length, 
o 5139 { pointer _kind, pva, status); 
ce) S140 { 
o 8141 { SHADOW_PVA :(input) This parameter specifies the segment pointer of the 
o 5142 { segment to be shadowed. 
o 5143 { 
Oo 5144 { SHADOW_OFFSET: (input) This parameter specifies the byte offset within the 
o 5145 { segment from which to start shadowing. 
o 5146 { 
© 5147 { SHADOW_LENGTH: (input) This parameter specifies the length of portion in 
o 5148 { segment to be shadowed. 
3° 5143s { 
o 5150 { POINTER_KIND: (input) This parameter specifies the type of pointer to be 
o 5151 { constructed for the segment... 
fe) 5152 { 
© 5153 { PVA: (output) This parameter returns the process virtual address of the 
o 5154 { transient segment. 
o s5155 { 
° 5156 { STATUS: (output) This parameter specifies the request status returned. 
o 5157 { 
° 5158 
co) 5159 
° 5160 
o 5161 PROCEDURE [XDCL, #GATE] mmp$create_shadow_segment 
o 5162 ( segment _p: Acell; 
Oo 5163 shadow_offset: ost$segment_offset ; 
o 5164 Shadow_length: ost$segment_ilength; 
o 8165 pointer_kind: mmt$segment_ pointer_kind; 
oO 5166 VAR pva: mmtS$segment pointer ; 
oO 5167 VAR status: ost$status); 
3° 5168 
1°] S169 VAR 
o 5170 caller_id: ost$caller_ identifier, 
° 5171 conv_ptr: Acell, 
o 5172 i: pmt$S$initialization_value, 
Oo 5173 preset value: pmt$initialization_value, 
o 5174 ri_pointer: mmt$segment_ pointer, 
Oo 5175 ri_status: ost$status, 
° S176 segment attributes: mmt$segment_attrib_descriptor, 
o 65177 segnum: ost$segment ; 
Oo 85178 
o 5179 #KEYPOINT (osk$entry, #SEGMENT (segment _p) * osk$m, mmk$create_ shadow segment ) ; 
1E 5180 status.normal := TRUE; 
1E $181 
1E §182 conv_ptr := #ADDRESS (#RING (Segment_p), #SEGMENT (segment_p), shadow_offset) ; 
1E $183 
1E 5184 { Issue request to create ACTIVE segment. 
1E $185 #CALLER_ID (caller_id); 
1E 5186 segment_attributes.valtidating ring mumber := caller_id.ring; 
1—E 5187 segment_attributes.file_ limits _to_enforce := sfe$no_Timit ; 
1E 5188 segment_attributes.pointer_ kind := pointer_kind; 
1E 5189 PUSH segment_attributes.user_attributes: [1 .. 1]; 
SOURCE LIST OF mmm$segment_manager_job_temp NOS/VE CYBIL/II 1.0 8910602 1989-08-21 13:33:34 
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segment_attributes.user_attributes* [1].keyword := mmc$kw_shadow_segment ; 
segment_attributes.user_attributes’ [1].shadow_p := conv_ptr; 
segment_attributes.user_attributes4 [1].shadow_length := shadow_length; 
segment_attributes.sfid :: gfv$null_sfid; 
mmp$build segment (segment_attributes, NIL {Shared_taskid_array} , ri_pointer, ri_status) ; 
IF NOT ri1_status.normal THEN 

osp$set_ status condition (ri _status.condition, status) ; 
ELSE 

pva := ri pointer; 
IFEND; 
#KEYPOINT (osk$exit, O, mmk$create_shadow_segment ) ; 


PROCEND mmp$create_shadow_segment ; 
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o §205 { 
° 5206 { The purpose of this request is to create a stack segment to be 
3° 5207 { used by ADA tasks. 
o 5208 { 
Oo 5209 { MMP$CREATE_SHARED_STACK (SEG_ATTRIBUTES_P, POINTER_KIND, 
© 5210 { SHARED_TASKID_ARRAY, POINTER, STATUS) 
o 8211 { 
° 5212 { SEG_ATTRIBUTES P: (INPUT) This parameter iS a pointer to the array of segment 
° 5213 { attributes to be assigned to the segment. 
o 5214 { 
° 5215 { POINTER_KIND: (INPUT) This parameter specifies the type of pointer to 
oO 5216 { be constructed for the segment. 
° 5217 { 
© 5218 { SHARED_TASKID_ARRAY: (INPUT) This parameter specifies the array of taskids 
° 5219 { for the tasks in which this segment is being opened. 
© 5220 { 
° 5221 { POINTER: (OUTPUT) This parameter specifies the process virtual address assigned 
° 5222 { to the segment. The byte offset in the PVA is set to zero. 
o 58223 { 
° 5224 { STATUS: (OUTPUT) This parameter specifies the request status. 
o 5225 { 
Oo 5226 
oO $227 PROCEDURE [XDCL] mmp$create_ shared_stack 
re) $228 ( seg attributes _p: Aarray [ * ] of mmt$attribute descriptor ; 
o 5229 pointer_kind: mmt$segment_pointer_kind; 
o §230 Shared_taskid array: Aarray [1 .. * ] of pmt$task_id; 
Oo §231 VAR pointer: mmt$segment_pointer ; 
© $232 VAR status: ost$status) ; 
Oo $5233 
° §234 VAR 
o $235 caller_id: ost$caller_identifier, 
° 5236 ri_pointer: mmt$segment_pointer, 
o §237 ri_status: ost$status, 
oO 5238 segment_attributes: mmt$segment_attrib_descriptor ; 
o 8239 ; 
o 5240 #CALLER_ID {caller_id); 
c 868241 status.normal := TRUE; 
Cc 5242 segment_attributes validating ring number := caller_id.ring; 
C $243 segment_attributes.file_ limits to enforce :: sfc$no_limit; 
Cc 5244 segment_attributes.pointer kind := pointer kind; 
Cc 5245 segment _attributes.user_ attributes := seg attributes _p; 
42 $246 IF segment _attributes.user attributes <> NIL THEN 
50 5247 PUSH segment _attributes.user_attributes: [LOWERBOUND [(seg_attributes pA 
86 5248 ) .. UPPERBOUND (seg _ attributes _p4)]; 
86 5249 segment_attributes.user_attributesA := seg attributes pr; 
cé 5250 IFEND; 
Cé 5251 segment_attributes.sfid := gfv$null_sfid; 
Cé 5252 mmp$build_ segment (segment_attributes, shared_taskid array, ri_pointer, ri_status) ; 
FE §253 IF NOT r1_status.nmormal THEN 
106 5254 osp$set_status_condition (ri _status.condition, status); 
118 5255 ELSE 
118 S256 pointer := ri_pointer; 
126 5257 IFEND ; 
126 5258 
126 5259 PROCEND mmp$create_ shared stack; 
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The purpose of this request is to create a transient segment. 


MMPSCREATE _USER_SEGMENT (Segment_attributes_p, pointer_kind, access _ selections, 
pointer, status) 


SEGMENT_ATTRIBUTES P: (INPUT) This parameter is a pointer to an array 
of segment_attributes to be assigned to the segment. 


POINTER_KIND: (INPUT) This parameter specifies the type of pointer 
to be constructed for the segment. 


ACCESS SELECTIONS: (INPUT) This parameter specifies the mode of access 
to the segment (sequential or random). 


POINTER: (OUTPUT) This parameter specifies the process virtual address 
assigned to the segment. The byte offset in the PVA is set to zero. 


STATUS: (OUTPUT) This parameter specifies the request status. 
The possible error codes are: 

dme$unable_to_locate_fde 
dme$unable_to_get_fd_lock 
mme$address_not_©O_mod_16384 
mme$asid_specified 
mme$binding attribute invalid 
mme$contig mem_seg_ violation 
mme$execute_global_invalid 
mme$invalid_asid_ specified 
mme$invalid_length_requested 
mme$invalid_pva 
mme$invalid_ ring brackets 
mme$ invalid_shadow_segment 
mme$invalid_ shared _taskid 
mme$ length _not_0O_mod_16384 
mme$pages_already_assigned 
mme$ref_ to_unrecovered file 
mmeS$ring violation 
mme$segment_number_is_in_use 
mme$segment_number_not_in_use 
mme$segment_number_too_big 
mme$segment_origin_change 
mme$segment_origin_invalid 
mme$segment_tabie_is_ full 
mme$software_attribute_invalid 
mme$unable_to_assign_contig mem 
mme$Sunsupported keyword 
mme$wired_ seg length _too_large 


PROCEDURE [XDCL, #GATE] mmp$create_user segment 
( user_attributes_p: Aarray [ * ] of mmt$user_ attribute descriptor ; 
pointer_kind: amt$pointer_kind; 
access selections: mmt$access_ selections; 
VAR pointer: amt$segment_pointer; 
VAR status: ost$status); 
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MMPSCREATE_ USER_SEGMENT 


o 5318 
o 5319 VAR 
© 5320 byte: © .. 255, 
Oo 5321 caller_id: ost$calier_identifier, 
Oo $322 contiguous flag: boolean, 
Oo 5323 contiguous page_count: integer, 
o 5324 file limits to_enforce: sft$file_space_limit_kind, 
o §325 i: integer, 
oO §326 increment: integer, 
o %§$327 kind: mmt$segment_pointer_kind, 
Oo 5328 local_status: ost$status, 
o 5329 max length index: imteger, 
© §5§330 max _ length _ specified: boolean, 
Oo 5331 page_ size: integer, 
© §332 preset pointer: Aarray [ * ] of © .. 255, 
o $8333 ri_status: ost$status, 
oO 5334 save _ index: integer, 
Oo $335 seg _attrib_p: Aarray [ * ] of mmt$attribute_descriptor, 
° 5336 segment_attributes: mmt$segment_attrib_ descriptor, 
° 5337 segment_pointer: mmt$segment_pointer, 
o §338 seq p: ASEQ ( * ), 
oO 5339 wired flag: boolean, 
° §340 wired index: integer ; 
oO §341 
Oo 8342 contiguous flag := FALSE; 
C §343 Status.normal := TRUE; 
Cc 5344 max length specified :: FALSE; 
Cc 5345 wired flag := FALSE; 
C 5346 
C 5347 IF user_attributes p <> NIL THEN 
30 865348 PUSH seg _attrib_p: [LOWERBOUND (user_attributes p4) .. UPPERBOUND (user attributes p)]; 
62 5349 
&2 S350 FOR i :+ LOWERBOUND (user_attributes pA) TO UPPERBOUND (user_attributes p4) DO 
70 8606§351 CASE user_attributes pA [i] .keyword OF 
BC 5352 = mmc$ua_ring numbers = 
BC 5353 seg_attrib_p% [i]. keyword : = mmc$kw_ring_numbers; 
BC 5354 seg _attrib_p’ [i].r1 := user_attributes pA [i].ri1; 
BC 5355 seg_attrib_p4 [i].r2 ::* user_attributes pA [i] .r2; 
FC 5356 = mmc$ua_segment_mumber = 
FC 5357 seg_attrib_pA [i].keyword := mmc$kw_segment_number ; 
FC 5358 seg _attrib_p4 [i].segnum := user_attributes pA [i].segnum; 
11E 53598 = mmc$ua_max_segment_liength = 
11E S360 seg _attrib_p*% [i].keyword := mmc$kw_max_segment_length; 
11E 5361 seg_attrib_pA [i].max_length := user_attributes pA [i].max_length; : 
11E 5362 max length specified := TRUE; 
11E S363 max _length_index :: i; 
14C S364 = mmc$ua_preset_value = 
14C 5365 seg_attrib_p” [i].keyword := mmc$kw_preset_value; 
14C 865366 seg attrib pA [i].preset_value := user_attributes pA [i].preset_value; 
170 685367 = mmc$ua_segment access control = 
170 $368 seg_attrib_p4A [i].keyword := mmc$kw_segment_access_ control; 
170 5369 seg_attrib_p” [i].access_ control := user_attributes_ pA [i].access_control; 
1AR 5370 = mmc$ua_ wired segment = 
1AA 5371 seg_attrib_p’% [i].keyword := mmc$kw_wired_ segment ; 
TAA §372 IF user_attributes p* [i].wired_ segment_length > 65536 THEN 
1E4 5373 osp$set_status_abnormal (’MM’, mmeS$wired_seg_ length_too_large, ’’, status); 
SOURCE LIST OF mmm$segment_manager_job_temp NOS/VE CYBIL/II 1.0 89102 : 1989-08-21 13:33:34 
MMP$CREATE_USER_SEGMENT 
214 S374 RETURN; 
216 5375 IFEND; 
216 5376 seg_attrib_p”A [i].wired_ segment_length := user_attributes_pA [i].wired_segment_length; 
216 5377 IF user_attributes pA [i] .contiguous_real_memory THEN 
24E 5378 contiguous flag := TRUE; 
252 5379 IFEND ; 
252 S380 wired flag : = TRUE; 
252 5381 wired index := i; 
260 5382 > mmc$ua_null keyword = 
260 5383 seg_attrib pA [i]. keyword := mmc$kw_null_keyword; 
274K 5384 ELSE 
27A 5385 CASEND; 
27h 5386 FOREND ; 
286 5387 ELSE 
286 5388 seg_attrib p := NIL; 
28A $389 IFEND; 
28A 5390 
28A 5391 IF max_length_specified AND wired_flag THEN 
2932 $392 seg_attrib_pA [max_length_index].max_ length := seg _ attrib pA [wired index] .wired_segment_length; 
2CoO $383 IFEND; 
2CO 5394 
2CO §395 IF pointer _ kind = amc$cell_pointer THEN 
2C&8 S396 kind := mmc$cell_pointer ; 
2CeE 5397 ELSEIF pointer_kind = amc$sequence_ pointer THEN 
204 5398 kind := mmc$sequence_ pointer ; 
2bdDC 53989 ELSE 
2DC 5400 kind := mmc$heap_pointer ; 
2EO 5401 IFEND; 
2EO 5402 #CALLER_ID (caller_id); 
2EO §403 
2E0O 5404 segment _attributes.validating ring mumber := caller_id.ring; 
2EO 5405 segment_attributes.file_ limits to_enforce := sfc$temp_file space_ limit; 
2EO 5406 segment _attributes.pointer_ kind := kind; 
2EO 5407 segment _attributes.user_ attributes := seg _ attrib_p; 
304 5408 segment_attributes.sfid := gfv$null_sfid; 
304 5409 mmp$build segment (segment_attributes, NIL {shared_taskid_array} , segment_pointer, ri_status); 
340 5410 
340 5411 IF ri_status.normal THEN 
348 5412 IF access _ selections = mmc$as_sequential THEN 
350 5413 mmp$set_access_ selections (segment_pointer.celil_pointer, mmc$as_ sequential, status); 
36C 8414 IFEND; 
36C 5415 pointer .kind :5 pointer_kind; 
36C 5416 IF pointer_kind = amc$cell_pointer THEN 
37C 5417 seq _p := #SEQ (segment_pointer .cell_pointers); 
37C 5418 RESET seq _p; 
37C $419 NEXT preset_pointer: [1 .. #SIZE (segment_pointer.cell_pointer4)] IN seq_p; 
3CA 5420 pointer .cell_ pointer := segment. pointer .cell_ pointer ; 
306 5421 ELSEIF pointer_kind = ame$sequence_pointer THEN 
3DA 5422 seq_p := #SEQ (segment_pointer.seq pointerA); 
SDA 5423 RESET seq _p; 
3DA 5424 NEXT preset_pointer: [1 .. #SIZE (segment_pointer.seq pointer4s)] IN seq _p; 
42C 5425 pointer .sequence pointer := segment _pointer.seq pointer ; 
43A 5426 ELSE 
434 $427 seq_p := #SEQ (segment_pointer .heap_pointerA”) ; 
4A3A 58428 RESET seq_p; 
43A 5429 NEXT preset_pointer: [1 .. #SIZE (segment_pointer .heap_pointer4)] IN seq _p; 


PAGE 784 


PAGE 785 


SOURCE LIST OF mmm$segment_manager_job_temp NOS/VE CYBIL/II 1.0 89102 


MMP$CREATE_USER_SEGMENT 


48c 5430 pointer .heap_pointer := segment _pointer .heap_ pointer ; 
496 $431 IFEND ; 
496 $432 
496 5433 IF contiguous _ flag THEN 
439A 5434 mmp$assign_contiguous_ memory (pointer.cell_pointer, seg _ attrib_pA 
4pD0 5435 status); 
4Do0 5436 
4D0 §437 { MMPSASSIGN_ CONTIGUOUS MEMORY will PRESET the pages 
4DO 5438 { if it was able te assign contiguous pages. 
4D0 5439 
4DO 5440 IF NOT status.normal THEN 
408 $441 mmp$delete_user_ segment (pointer, local status) ; 
4FO §442 RETURN; 
4F2 5443 IFEND; 
4FGE 5444 ELSEIF wired flag AND NOT contiguous flag THEN 
4FE 5445 
4FE 5446 { PRESET the pages of a wired segment-this is accomplished by touching every page 
4FE 5447 
4FE 5448 mmp$get_page_size (page _ size); 
504 5449 increment := 1; 
504 5450 WHILE increment < UPPERBOUND (preset_pointer”) DO 
528 5451 byte := preset_pointerdA [increment]; 
528 5452 increment : = increment + page _ size; 
528 $453 WHILEND; 
554 5454 IFEND; 
556 54855 ELSE 
556 5456 osp$set_status_condition (ri_status.condition, status); 
S66 5457 IFEND,; 
566 5458 
566 5459 PROCEND mmpScreate_user_segment ; 
SOURCE LIST OF mmm$segment_manager_job_temp NOS/VE CYBIL/II 1.0 89102 


MMPSDELETE SCRATCH SEGMENT 
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it assigns to the segment-- 


The purpose of this request is to delete a scratch segment. 


MMPS$DELETE SCRATCH SEGMENT (POINTER, STATUS} 


POINTER: (input_output) This parameter specifies the segment 


to be deleted. This pointer will be set to NIL when 
completes. 


the request 


STATUS: (output) This parameter specifies the request status. 


The possible error codes are: 
dme$file descriptor _not_ deleted 
mme$S$invalid_close_ segment_req 
mme$invalid_ shared taskid 
mme$segment_ number not _in_use 
mme$segment_number too _ big 


PROCEDURE [XDCL, #GATE] mmp$delete_ scratch_segment 
(VAR pointer: amt$segment_pointer ; 
VAR status: ost$status); 


VAR 
caller_id: ost$caller_identifier, 
p: mmt$segment_pointer, 
ri_status: ost$status; 


#CALLER_ID (caller_id); 


#KEYPOINT (osk$entry, #SEGMENT {pointer.cell_pointer) * osk$m, 


status.normal := TRUE; 
p.kind := mmc$cel)_pointer ; 
p.cell_pointer := pointer.cell pointer ; 


mmp$S$invalidate_ segment (#SEGMENT (pointer.cell_pointer), 
r1_status); 
IF ri_status.normal THEN 
pointer.cell_pointer :: NIL; 
ELSE 
osp$set_status_ condition (ri_status.condition, status); 
IFEND; 


#KEYPOINT (osk$exit, ©, mmk$delete_scratch_segment ) ; 


PROCEND mmp$delete_scratch_ segment ; 


caller_id.ring, 
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mmk$delete_ scratch_segment ) ; 


NIL {shared_taskid_array} 


[wired index].wired segment_ length, 


in the segment. } 
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SOURCE LIST OF mmm$segment_manager_job_temp NOS/VE CYRIL/II 1.0 89102 1989-08-21 


13:33:34 


MMPSDELETE SEGMENT 

o 5508 { 

° 5509 { The purpose of this request is to delete/cliose a segment. If the 

o 5510 { caller is not within the read bracket of the segment being deleted the 
o 5511 { call is rejected. 

° 5512 { 

° 5513 { MMPSDELETE SEGMENT (POINTER, VALIDATION _RING NUMBER, STATUS) 

o 5514 { 

oO $5515 { POINTER: (input_output) This parameter specifies the segment 

° 5516 { to be deleted. This pointer will be set to NIL when the request 
oO 5517 { completes. 

o 5518 { 

o 5519 { VALIDATION_RING_ NUMBER: (input) This parameter specifies the ring of 

3° 5520 { execution for whom the segment is being deleted. The ring 

ce) 5521 { number used for validation is the max of caller ring number 

oO §522 { and ‘’validation_ring number’. 

° 5523 { 

© 5524 { STATUS: (output) This parameter specifies the request status. 

o 58525 { The possible error codes are: 

o 8526 { dme$file_descriptor_not_deleted 

Oo $527 { mme$invalid_close_ segment_reg 

o 5528 { mme$invalid_shared_taskid 

© s829 { mme$S$segment_number_not_in_use 

o 5530 { mme$segment_number too _big 

o 5531 { 

° 5532 

° 5533 

o §534 

Oo 5535 PROCEDURE [XDCL, #GATE] mmp$delete_segment 

oO §536 (VAR pointer: mmt$segment_pointer ; 

Oo §5837 validation_ring_ number: ost$valid_ring; 

o 5538 VAR status: ost$status); 

° 5539 

© 5540 VAR . 

o 5541 caller_id: ost$calier_identifier, 

© 5542 ri_status: ost$status, 

oO 8 6§543 validating ring number: ost$valid_ring; 

° §544 

° s545 #CALLER_ID (caller_id) ; 

C 58546 #KEYPOINT (osk$entry, #SEGMENT (pointer.cell_pointer) * osk$m, mmk$delete_ segment ) ; 
2A 5547 status.normal := TRUE; 

2A 5548 determine validating ring num (caller_id.ring, validation_ring number, validating ring number }); 
4c 5549 mmp$invalidate_segment (#SEGMENT (pointer.cell_pointer), validating ring number, 
86 5550 NIL {shared _taskid_array}, ri_status); 

8&6 5551 IF ri ostatus.normal THEN 

8E 5552 pointer.celi_pointer :: NIL; 

96 5553 ELSE 

$6 5554 esp$set_ status condition (ri _status.condition, status); 
AS. 5555 IFEND; 
A& 5556 #KEYPOINT (osk$exit, ©, mmk$delete_ segment ) ; 

AC 5557 

AC 5558 PROCEND mmp$delete_ segment ; 

SOURCE LIST OF mmm$segment_manager_job_temp NOS/VE CYBIL/II 1.0 88102 1989-08-21 


MMP$DELETE USER_SEGMENT 
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The purpose of this request is to close/delete a segment. 
MMPSDELETE_USER_SEGMENT (pointer, status) 


POINTER: (INPUT/OUTPUT) This parameter specifies the segment 
to be deleted. This pointer will be set to NIL when the 
request completes. 


STATUS: (QUTPUT) This parameter specifies the request status. 
The possible error codes are: 
dme$file_ descriptor_not_deleted 
mme$invalid_close_segment_req 
mme$invalid_ shared taskid 
mme$segment_number_not_in_use 
mme$segment_number _too_big 


PROCEDURE [XDCL, #GATE] mmpS$delete_user_ segment 
(VAR pointer: amt$segment_ pointer ; 
VAR status: ost$status); 


VAR 
caller_id: ost$calier_identifier, 
ri_estatus: ost$status; 


#CALLER_ID (caller_id); 
Status.normal := TRUE; 


13:33:34 


mmp$invalidate_segment (#SEGMENT (pointer.cell_pointer), caller_id.ring, NIL {shared taskid_array} , 


ri_status) ; 
IF ri_status.normal THEN 


pointer.cell_pointer := NIL; 
ELSE 

osp$set_status_condition (ri_status.condition, status); 
IFEND; 


PROCEND mmp$delete_user_segment ; 
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SOURCE LIST OF mmm$segment_manager_job_temp NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 
MMPSFATLED_ ALLOCATION _FLAG HDL 
o 5602 
ve 5603 { The purpose of the procedure is to attempt to compiete file 
°o 5604 {allocation on a file which has previously failed in an 
°, 5605 {attempt to allocate file space. It only handles cases 
© 5606 {where the failure was dme$unable_to_alloc_all_space. 
° 5607 { The ring 1 segment manager sets a system flag if 
© 5608 {such a failure occurs. 
3° s6o0s { The procedure make a single attempt to perform 
© 561060 {file allocation. If allocation is not passible then 
° 5611 {the procedure will wait a short time and then return 
° 5612 {to the code which caused the allocation to be required. 
° 5613 {If any events such as terminate job or interactive break have 
3° 5614 {arisen during the wait, they will be processed on the return 
° 5615 {if possible. If nothing preempts the original code, it will cause 
° 5616 {the same allocation requirement and the process is repeated. 
Oo 5617 
o 5618 PROCEDURE [XDCL] mmp$failed_allocation_flag_hd} 
o $619 flag_id: ost$system_filag); 
3° 5620 
Oo 5621 VAR 
° 5622 i: integer, 
oO 5623 new_allocated length: amt$file_ byte _ address, 
oO S624 previous allocated _length: amt$file_byte_address, 
° 5625 segqnum: ost$segment, 
° 5626 status: ost$status, 
° 5627 wait _time: integer, 
oO 5628 xcb_p: Aost$execut ion _control block; 
ce] 5629 
oO 5630 pmp$find_executing task_xcb (xcb_p); 
&A 5631 previous allocated length :=: 0; 
A 5632 
A $633 WHILE TRUE DO 
26 §634 IF pmp$task_state () = pmc$task_terminating THEN 
38 5635 RETURN; 
34 5636 IFEND; 
3A 5637 
3A 5638 wait_time := mmv$file_allocation_interval; 
34 5639 mmp$process_ file_alloc [(new_allocated length, status); 
SE 5640 IF status.normal THEN 
66 5641 RETURN; 
6C 85642 ELSEIF NOT (Status.normal) AND (Status.condition = dme$unable_to_alloc_all_space) THEN 
7C $643 IF (new_allocated_ length > 1000000) OR (new_allocated_length > previous_allocated_length) THEN 
gc 5644 wait _time := 2000; 
90 5645 IFEND; 
$0 5646 previous allocated length := new_allocated_ length; 
94 5647 IFEND; 
94 5648 
94 5649 { Any abnormal status which is actually returned to this procedure is an ‘OK’ status, which 
94 5650 { will cause the system to keep attempting to allocate file space for this task. 
94 5651 { In tne case of the File Server, however, we don’t want to wait forever because the server 
94 5652 { may not EVER come back. Just return; the next time the user references the page the correct 
94 5653 { condition will be raised. 
94 5654 
94 5655 IF (status.condition = dfe$family_not_served) OR (status.condition = dfe$server_not_active) OR 
BO 5656 (status.condition = dfe$server_has_terminated) THEN 
BO 5657 RETURN; 
SOURCE LIST OF mmm$segment_manager_job_temp NOS/VE CYBIL/II 1.0 89102 -1989-08-21 13:33:34 
MMPSFAILED_ ALLOCATION FLAG HDL 
B2 5658 IFEND; 
B2 56593 
B2 S660 bap$exit_fap_on_condition (dme$unabile_to_alloc_all_space) ; 
C6 5661 
C6 5662 {Special trap for system disk full in early deadstart 
cé& 5663 IF NOT dsp$system_committed {() THEN 
D&E 5664 adpp$put_critical message (’The system disk is full - redeadstart without job recovery’, status); 
FA 5665 IFEND; 
FA 5666 
FA 5667 {Raise the appropriate user condition. 
FA 5668 osp$wait_on_condition (dme$unable_to_alloc_ail_space) ; 
10E 5669 
10E S670 IF (xcb_pA.system_flags * $tmt$system_flags [pmc$sf_terminate_task, jmc$terminate_job_flag, 
12C 8695671 jmc$logout_flag_id, jmc$kill_job_flag, pmc$kilil_task_flag] <> $tmtSsystem_fiags []) AND 
12¢€ 5672 (xcb pA.system_table_leck count <= 0) THEN 
12C S673 Ppmp$log (’ Job terminated while waiting for file allocation.’, status); 
150 5674 pmp$exit (status); 
17C S675 IFEND; 
17C S676 
17C S677 IF (xcb_p4A.system_filags = $tmt$system_flags []) THEN 
188 5678 FOR i := 1 TO tmc$maximum_signails DO 
190 5679 IF xcb_p4A.signals.present [i] THEN 
1A4 5680 RETURN; 
1A6 5681 IFEND; 
1Aa6 5682 FOREND ; 
1B90 5683 ELSE 
1BO0 S684 RETURN; 
1B2 5685 IFEND; 
1B2 S686 WHILEND ; 
1B6 5687 
1B6 5688 PROCEND mmp$failed_allocation_flag_hd1; 
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SOURCE LIST OF mmm$segment_manager_job_temp NOS/VE CYBIL/II 1.0 89102 


MMP$FETCH OFFSET MODIFIED PAGES 


o §690 

© §691 PROCEDURE [XDCL, #GATE] mmp$fetch_offset_modified pages 

oOo 5692 { segment_p: Acell; 

o 569393 return_unallocated offsets: boolean; 

oO 85694 VAR offset_list: array [ * ] of ost$segment_offset; 

o 5695 VAR offsets returned: integer; 

o 58696 VAR status: ost$status); 

Oo 5697 

o 5698 VAR 

o 8699 i: integer, 

o 5700 ri_offset_list_p: Aarray [ * ] of ost$segment_offset, 

o %5S701 ri offsets returned: integer, 

Oo 5702 ri_status: ost$status; 

oO 5703 

Oo 5704 status.normal := TRUE; 

4 5705 PUSH ri_offset_list_p: [1 .. UPPERBOUND (offset_list)]; 
40 5706 mmp$fetch_offset_mod_pages_ri1 (#SEGMENT (segment_p), gfv$null_sfid, 
8A 5707 ri_offset_list_p, ri_offsets_returned, ri_status); 
8A 5708 IF NOT ri_status.normal THEN 
92 5709 osp$set_status_ condition (ri _status.condition, status); 
AG 5710 ELSE 
AG 5711 offset list := ri_offset_list_p%; 

F2 5712 offsets returmed :: ri_offsets_ returned; 
FE 5713 IFEND ; 
FE 5714 
FE 5715 PROCEND mmp$fetch_offset_ modified pages; 
Oo 5716 
SOURCE LIST OF mmm$segment_manager_job_temp NOS/VE CYBIL/II 1.0 89102 


MMPSFETCH_ SEGMENT _ ATTRIBUTES 


°o 5719 { 
ce) 5720 { The purpose of this request is to fetch one or more attributes 
© 5721 { of a segment. 
o 5722 { 
ce) 5723 { MMPSFETCH SEGMENT_ATTRIBUTES (PVA, SEG_ATTRIBUTES, STATUS) 
o 5724 { 
© 5725 { PVA: (input) This parameter specifies the segment number. 
o 5726 { 
Oo $727 { SEG_ATTRIBUTES: (input_output) This parameter is an adaptable 
o 5728 { array of segment attribute descriptors. Prior to issuing this 
fe 5729 { request, the caller stores into this array the attribute keywords 
© 5730 { of the attributes to be fetched. 
3° 5731 { 
© 5732 { STATUS: (output) This parameter specifies the request status. 
o $733 { The possibile error codes are: 
o 5734 { mme$caller mot _in_read_ bracket 
o 8735 { mme$segment_ number _not_in_use 
Oo s736 { mme$segment_number_too_big 
o 5737 { mmeSunsupported keyword 
o 5738 { 
° 5738 
o 5740 PROCEDURE [XDCL, #GATE] mmp$fetch_segment_attributes 
oO 5741 ( pva: Acell; 
oO 5742 VAR seg attributes: array [ * ] of mmt$attribute_ descriptor; 
oO 5743 VAR status: ost$status); 
° 5744 
3 S745 VAR 
oO S746 caller_id: ost$caller_identifier, 
Oo §747 i: integer, 
Oo 5748 ri status: ost$status, 
o 5749 ri_segment_attributes_p: Aarray [ * ] of mmt$attribute descriptor ; 
° 5750 
Oo §751 #KEYPOINT (osk$entry, osk$m * #SEGMENT (pva), mmk$fetch_seg attributes) ; 
1E $752 
1E 5753 status.normal := TRUE; 
1E 5754 #CALLER_ID (caller_id); 
1E 5755 PUSH ri_segment_attributes p: [LOWERBOUND (seg _ attributes) .. UPPERBOUND (seg_attributes) ]; 
60 5756 ri1osegment_attributes_ pA := seg _ attributes; 
AC 5757 mmp$fetch_segment_attributes ri (#SEGMENT (pva), caller_id.ring, ri_segment_attributes_p, 
DE 5758 IF NOT ri_status.normal THEN 
E6 57598 osp$set_status_ condition (ri _status.condition, status); 
FC 5760 ELSE 
FC 5761 seg attributes := ri_segment_attributes pA; 
140 5762 IFEND; 
1490 5763 
140) «65764 #KEYPOINT (osk$exit, O, mmk$fetch_seg_ attributes) ; 


144 5765 PROCEND mmp$fetch_segment_attributes; 
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return_unallocated offsets, 
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ri_status); 
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SOURCE LIST OF mmm$segment_manager_job_temp NOS/VE CYBIL/II 


MMPSGET_ALLOCATED_ADDRESSES 


1.0 89102 


starting byte address, 
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ri1l_addr_list_p, 
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Oo 5767 

Oo 5768 PROCEDURE [XOCL, #GATE] mmp$get_allocated addresses 

o 57693 ( file: Acell; 

Oo 5770 starting byte address: ost$segment_offset ; 

Oo 5771 VAR addr_list: array [ * ] of dmt$addr_length_pair ; 

° S772 VAR addr_returned: integer ; 

o S773 VAR list_overflow: boolean; 

Oo 5774 VAR status: ost$status) ; 

Oo S775 

Oo S776 VAR 

o S777 caller_id: ost$caller_identifier, 

© 5778 i: integer, 

o 5779 ri_addr_list_p: Aarray [ * ] of dmt$addr_length_pair, 

o 5780 ri_addr_ returned: integer, 

o 5781 ri_list_overfilow: boolean, 

o 5782 ri_status: ost$status; 

o $783 

Oo 85784 status.normal := TRUE; 

c 5785 #CALLER_ID (caller_id); 

c 5786 PUSH ri_addr_list_p: [LOWERBOUND (addr_list) UPPERBOUND (addr_tlist)]; 
54 5787 mmp$get_allocated addresses_ri1 (#SEGMENT (file), caller_id.ring, 
A2 5788 r1_addr_returned, ri_tlist_overflow, ri_status) ; 
A2 578983 IF NOT r1_status.normal THEN 
AA 5790 osp$set_status_condition (ri_status.condition, status) ; 
BE 5791 ELSE 
BE 5792 addr list :* ri_addr_list_p4%; 
1OA 8793 list overflow := ri_list_overf low; 
10A 5794 addr returned := ri_addar_returmed; 

122 5795 IFEND; 
122 5736 PROCEND mmp$get_allocated addresses; 
o 57987 
SOURCE LIST OF mmm$segment_manager_job_temp NOS/VE CYBIL/II 1.0 89102 


MMPSGET SEGMENT_LENGTH 


o 5800 { 
ce) 5801 i The purpose of this procedure is to return the current segment 
o 5802 { to the caller. 
o 5803 { 
° 5804 f{ MMPSGET_ SEGMENT_LENGTH (PVA, VALIDATION RING NUMBER, 
° 580s { STATUS ) 
o 5806 { 
° 5807 { PVA: (input) This parameter specifies the segment for which the current 
o 5808 { segment length is returned. 
o s8o0s { 
© 5810 { VALIDATION_RING_ NUMBER: (input) This parameter specifies the ring number 
ce] 5811 { used for validation if it is greater than the 
° 5812 { 
° 5813 { SEGMENT_LENGTH: (output) This parameter is where the 
o 5814 { length is returned. 
o 5815 { 
© 85816 { STATUS: (output) This parameter is where the request 
° 5817 { to the caller. The possible error codes are: 
o 5818 { mme$caller_not_in_read_bracket 
o s81S { mme$ invalid _pva 
o s820 { mme$ref_ to _unrecovered file 
o 5821 { mne$segment_number_not_in_use 
o 8822 { mme$segment_number_too_big 
Oo 5823 { 
© 5824 
© 5825 
o 5826 PROCEDURE [XDCL, #GATE] mmp$get_segment_length 
o 5827 ( pva: Acell; 
o 5828 validation_ring_number: ost$valid ring; 
o 85829 VAR segment_length: ost$segment_length; 
© 5830 VAR status: ost$status) ; 
o 5831 
Oo 5832 VAR 
o 5833 caller_id: ost$caller_identifier, 
Oo 5834 ri_segment_length: ost$segment_ length, 
Oo 5835 ri_status: ost$status, 
oO 5836 validating ring number: ost$valid_ring; 
Oo $837 
o 5838 #KEYPOINT (osk$entry, osk$m * #SEGMENT [(pva), 
1E 5839 status.normal ::= TRUE; 
1E 5840 segment _length := 0; 
1E 5841 #CALLER_ID (caller_id); 
1E 5842 determine validating ring num (caller_id.ring, 
52 5843 mmp$get_segment_length_ori (#SEGMENT (pva), 
84 5844 IF NOT ri_status.normal THEN 
8C 5845 osp$set_status_ condition (ri_status.condition, status); 
AO 5846 ELSE 
AO 5847 segment _length := ri_segment_length; 
A&B 5848 IFEND; 
A&B 58493 #KEYPOINT (osk$exit, O, mmk$get_segment_ length); 
Ac 5850 
AC 5851 PROCEND mmp$get_segment_ length; 


Oo 5852 


validating ring number, 


length 


caller ring number. 


current segment 


status is returned 


mmk$get_segment_ length) ; 


validation _ring number, 


ri segment length, 


SEGMENT LENGTH, 


validating_ring number ); 
ri_status) ; 
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MMPSINITIATE DEBUG SHADOWING 


o 68855 

oO 8856 { The purpose of this request is to initiate shadowing on segments for the 
Oo 5857 { Interactive Debugger. 

o 5858 f{ : 
ce) s8s55 { MMPSINITIATE DEBUG SHADOWING (Segment_pointer, status) 

o 5860 f{ 

o 8861 { SEGMENT_POINTER: (INPUT) This parameter specifies the process virtual 
o 5862 {f{ address assigned to the segment. 

o 5863 { 

o 5864 { STATUS: (OUTPUT) This parameter specifies the request status. 

o 5865 { 

° S866 

Oo 5867 PROCEDURE [XDCL, #GATE] mmpS$initiate debug shadowing 

o 5868 ( segment pointer: Acell; 

o 5869 VAR status: ost$status); 

° 5870 

+°) $871 VAR 

o 5872 caller_id: ost$caller_identifier, 

© 5873 ri_pointer: Acell, 

Oo 5874 ri_status: ost$status, 

o 5875 validating ring: ost$valid_ring; 

3° 5876 

1 @) S877 status.normal :: TRUE; 

c 5878 #CALLER_ID (calier_id); 

Cc 5879 

Cc 5880 { Change the segment attributes to WRITE and fiush the pages to disk. 

c 5881 
c 5882 mmp$Swrite modified pages (segment _pointer, osc$maximum_offset, osc$wait, status); 
44 5883 IF NOT status.normal THEN 

4c 5884 RETURN; 

4E $88&5 IFEND; 

4E 5886 

aE s8ss7 { Issue ring_1 call to establish ACTIVE segment. 

4E 588&& 
4E 5889 ri_pointer := segment pointer ; 
4E 5890 mmp$initiate_ shadowing ri (ri_pointer, caller_id.ring, mmc$ssk_read_only_ file, ri status); 
78 $891 IF NOT ri_status.normal THEN 
80 5892 osp$set_status_condition (ri_status.condition, status); 
=e) 5893 IFEND; 
te) 5894 
so 5895 PROCEND mmp$initiate_debug shadowing; 
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MMPSINITIATE SHADOWING 


0° 


eo0od0ddodoodoooooo0ooocooco0o000 


5838 
5899 

5900 
5901 

5902 
5903 
5904 
5905 
5906 
5907 
5908 
5909 
59190 
§911 

$912 
5913 
$914 
S915 
5916 
$3917 
53918 
5919 
5320 
59321 

5922 
$323 
5924 
5325 
59326 
5927 
5328 
5329 
5330 
$331 

§332 
$933 
5934 
59335 
5936 
5337 
§938 
5939 
5940 
5941 

5942 
5943 


{ 
{ 
{ 
{ 
{ 
{ 
t 
{ 
{ 
{ 
{ 
{ 
{ 
{ 


The purpose of this request is to initiate shadowing of files. 
Modified pages of the file to be shadowed are written to disk 

and the segment for the file to be shadowed is transformed into 
an ACTIVE segment to allow continuation of access to files during 
an online dump. 


MMPSINITIATE SHADOWING (POINTER, STATUS) 


POINTER: (input) This parameter specifies the process virtual 


address assigned to the segment. 


STATUS: (output) This parameter specifies the request status. 


PROCEDURE [XDCL, #GATE] mmp$initiate shadowing 


segment_p: Acell; 
VAR status: ost$status); 


VAR 
caller_id: ost$caller_identifier, 
ri_pointer: Acell, 
ri_status: ost$status; 


#KEYPOINT (osk$entry, #SEGMENT (segment_p) * osk$m, mmk$init iate_shadowing) ; 
status.normal := TRUE; 
#CALLER_ID (caller_id); 


{ Change the segment attributes to WRITE and flush the pages to disk. 


{ 


mmp$write modified pages (segment _p, osc$maximum_offset, osc$wait, status); 
IF NOT status.normal THEN 

RETURN; 
IFEND; 


Issue ring 1 call to establish ACTIVE segment. 


ri pointer :5 segment_p; 


mmp$initiate shadowing r1 (ri_pointer, #RING (segment_p), mmc$ssk_read_write_ file, ri_status) ; 


IF NOT r1_status.normal THEN 

osp$set_status_condition (ri _status.condition, status); 
IFEND; 
#KEYPOINT (osk$exit, O, mmk$initiate_shadowing); 


PROCEND mmp$initiate_shadowing; 
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o 5946 { 

o 5947 f{ The purpose of this request is to open a file for segment 

° 5948 { level access. 

o 5949 f{ 

o 5950 { MMPSOPEN_ FILE SEGMENT (SFIO, SEG_ATTRIBUTES_P, POINTER_KIND, 
°o s§951 { VALIDATION _RING_ NUMBER, CHAPTER_NUMBER, POINTER, STATUS) 
o 5952 { 

© 5853 { SFID: (input) This parameter specifies the system file identifier of the file 
o 5954 { to be opened as a segment. 

o 5955 { 

o 5956 { SEG _ ATTRIBUTES P: (input) This parameter is a pointer to an array 
ce) 5957 { of segment attributes to be assigned to the segment. 

o 5958 { 

0 5959 { POINTER_KIND: (input) This parameter specifies the type of 

te] 5960 { pointer to be constructed for tne segment. 

o 5961 { 

© 5962 { VALIDATION_RING_ NUMBER: (input) This parameter specifies tne ring of 
° §363 { execution for whom the segment is being opened. The ring 
° 5964 { number used for validation is the max of caller ring number 
o s965 { and ‘validationm_ring mumber’. 

o 5966 { 

re] 5967 { POINTER: (output) This parameter is where the segment pointer 

ce] 5968 { is returned. The byte offset in the PVA is set to 2ero. 

fe) 5969 { 

° 5970 { STATUS: (oautput) This parameter specifies the request status. 

° 5971 { The possible error codes are: 

o 5872 { dme$unable to locate fde 

© 5973 { dme$unabie_to_get_fd_lock 

o 5974 { mmeSaddress_not_O mod_16384 

o 5975 { mme$asid_specified 

o 5976 { mme$binding_attribute_invalid 

o s977 { mmeScontig mem_seg violation 

o s978 { mme$execute_global_invalid 

o 5979 { mmeSinvalid_asid_specified 

fe 5980 { mmeSinvalid_length_requested 

o s981 { mme$Sinvalid_pva 

Oo $982 { mme$invalid_ ring brackets 

o s983 { mme$ invalid shadow_segment 

o s984a { mmeSinvalid shared taskid 

o s985s { mme$ length_not_0O mod_16384 

fe) s9e6 { mme$pages_ already_assigned 

o 5987 { mmeSref to _unrecovered file 

o 5988 { mme$ring violation 

o s989 { mmeS$segment_number_is_in_use 

o s9g0 { mme$segment_number_not_in_use 

o 599i { mme$segment_number_too_big 

Qo 5992 { mme$segment_origin_invalid 

o s983 { mme$segment_table_is_full 

o ss94 { mme$software attribute invalid 

o 5995 { mme$unable_to_assign_contig_ mem 

o 5996 { mme$unsupported keyword 

° 5997 ; 

o §998 PROCEDURE [XDCL] mmp$open_fiie_segment 

o 59998 ( sfid: gft$system_file_identifier, 

° 6000 attr op: Aarray [ * ] of mmt$attribute_ descriptor ; 

o 6001 pointer kind: mmt$segment_pointer_kind; 
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MMPSOPEN_ FILE SEGMENT 


1.0 89102 


validation ring number , 


[LOWERBOUND (attr pd) 


NIL {shared_taskid_array]} , 


1989-08-21 


file _ limits to _enforce; 


UPPERBOUND (attr_p)]; 


r1_pointer, ri_status); 


pointer), mmk$open_file_segment ) ; 


o 6002 validation_ring number: ost$valid_ ring; 
o 6003 file _limits_to_enforce: sft$file_ space_limit_kind; 
Oo 6004 VAR pointer: mmtS$segment_pointer ; 
© 6005 VAR status: ost$status) ; 
© 6006 
o 6007 | VAR 
oO 6008 calter_id: ost$caller identifier, 
Oo 6009 ri_pointer: mmt$segment_pointer, 
Oo 6010 ri_status: ost$status, 
o 6011 segment_attributes: mmt$segment_attrib_ descriptor, 
Oo 6012 validating ring number: ost$valid_ring; 
o 6013 
o 6014 #CALLER_ID (caller_id); 
C 6015 #KEYPOINT (osk$entry, 0, mmk$open_file_segment }; 
18 6016 status.nmormal := TRUE; 
18 6017 determine validating ring num (cailler_id.ring, 
3A 6018 segment _attributes.validating ring mumber :: validating ring number ; 
34 60193 segment _attributes.file limits to_enforce :: 
3A 6020 segment_attributes.pointer_kind := pointer_kind; 
3A 6021 segment _attributes.user_attributes :+ attr op; 
60 6022 IF segment_attributes.user attributes <> NIL THEN 
BE 6023 PUSH segment_attributes.user_ attributes: 
A& 6024 segment_attributes.user_attributes* := attr _p%; 
E4 6025 IFEND; 
E4 6026 segment attributes.sfid := sfid; 
E4 6027 mmp$build segment (segment attributes, 
11€ 6028 IF NOT ri_status.normal THEN 
124 6029 osp$set_ status _ condition (ri_status.condition, status); 
134 6030 ELSE 
13A 6031 pointer := ri_pointer; 
148 6032 IFEND; 
148 6033 #KEYPOINT (osk$exit, osk$m * #SEGMENT (pointer .cell_ 
1SE 6034 
15E 6035 PROCEND mmp$open_file segment; 
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validating ring number ) ; 
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mmp$open_segment 


6037 

6038 PROCEDURE [XDCL, #GATE] mmp$open_segment 

6039 ( file mame: ost$name; 

6040 seg attributes: Aarray [ * ] of mmt$attribute descriptor ; 
6041 pointer_kind: mmt$segment_pointer kind; 

6042 VAR pointer: mmt$segment_pointer ; 

6043 VAR status: ost$status) ; 


6046 VAR 
6047 caller_id: ost$caller_identifier; 


60493 #CALLER_ID (catler_id); 
6050 fmp$in_open_chapter (file name, ©, caller_id.ring, seg attributes, pointer_kind, pointer, status); 


MR9nnoaodoocdc0ac0000g00sd 
on 
© 
> 
2 


wi ut 


6052 PROCEND mmpS$open_segment ; 
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6055 { PURPOSE: 


© 

ce) 6056 { Procedure mmp$preset_page streaming provides the capability of presetting the SDTX of a segment so that 

° 6057 { it is already in page streaming mode, with free behind TRUE and the transfer size as specified. It returns 
° 6058 { the original values of free behind and transfer size so that the caller can call again liater and restore 
© 6059 { the original values. 

o 6060 { 

© 6061 { DESIGN: 

oO 6062 { There iS nothing fancy, The boolean "preset_and_ save _ts_fb" indicates the purpose of acall, a value 

° 6063 { of TRUE indicates preset and save the original values, a value of FALSE indicates a restore. Nothing is 
° 6064 { done to ensure calls are in order or completed. In preset mode, the transfer size is changed if the 

3° 6065 { specified transfer size is > Sdtx.stream.transfer_ size. IF sdtx.stream.streaming = TRUE the segment is 
fe) 6066 { already in page streaming mode and nothing else need be done. If sdtx.stream.streaming = FALSE then 

° 6067 { the boolean sdtx.stream.preset streaming is set to indicate that the next fault should stream. To ensure 
° 6068 { the next fault enters the page streaming code, the value of sdtx.stream.sequential_accesses is forced 

° 6068S { te be >= mmv$page_ streaming prestream. 

° 6070 { When restoring the original values, the streaming boolean in the SDTX is left TRUE. The page 

© 6071 { fault process will terminate streaming if that is appropriate. If the restore call is not made, the onty 
© 6072 { result is that free behind is TRUE and Transfer size =>64K which may or may not have been original values. 
© G6OTB [errr eter teem ene n anne oS SS Sos Ss cre e'S ee Sees 2S eS 2s es oom Rae SSCS Sie Sie S212 Ses Sys ee Se eee SS Se) SSeS Se See ee oe ee eer Seas 

Oo 6074 

© 6075 PROCEDURE [XDCL, #GATE] mmp$preset_page_streaming 

Oo 6076 ( preset_and_save_ts_fb: boolean; 

° 6077 pva: Acell; 

o 6078 temp_transfer size: integer; 

o 69078 VAR saved transfer size: 0 .. 15; 

o 6080 VAR saved _ free _ behind: boolean; 

Oo 6081 VAR status: ost$status); 

© 6082 

o 6083 VAR 

oO 6084 caller_id: ost$caller_identifier, 

Oo 6085 ri_free_ behind: boolean, 

° 6086 ri_transfer_ size: © .. 15, 

© 6087 ri_status: ost$status; 

Oo 6088 

° 6oss { Validate the pva and get a pointer to the segment descriptor. 

o 6090 

o 6091 status.normal := TRUE; 

Cc 6092 #CALLER_ID (caller_id); 

c 6093 mmp$preset page streaming ri (#SEGMENT (pva), caller_id.ring, preset_and_save_ts fb, temp_transfer size, 
68 6034 ri_transfer_size, ri_free behind, ri ostatus); 

6&8 6095 IF NOT rt_status.normal THEN 
7O 6096 eosp$set_status condition (ri_status.condition, status) ; 
84 6087 ELSE 
84 6098 saved transfer_size :=2 ri transfer size; 

84 60993 saved free behind :: ri_free_ behind; 
sc 6100 IFEND ; 
9C 6161 


9C 6102 PROCEND mmp$preset_page_streaming; 
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MMP$RESERVE_SEGMENT_NUMBER 


° 6104 

Oo 6105 PROCEDURE [XDCL, #GATE] mmp$reserve_segment_number 

O 6106 ( shared_stack_flag: boolean; 

Oo 6107 VAR segment_num_array: Aarray [ * ] of ost$segment; 

Oo 6108 VAR status: ost$status) ; 

.) 6109 

ce) 6110 VAR 

° 6111 1: integer, 

Oo 6112 ri_num_array_p: Aarray [ * ] of ost$segment, 

Oo 6113 ri_status: ost$status; 

.°) 6114 

° 6115 { This procedure is the user interface to reserve segments 

° 6116 

oO 6117 status.nmormal := TRUE; 

4 6118 PUSH ri_num_array_p: [LOWERBOUND (sSegment_num_array’”) 
42 6119 FOR i := LOWERBOUND (segment_num_array’) TO UPPERBOUND 
62 6120 ri_num_array p4@ [i] := 0; 

62 6121 FOREND ; 

7C 6122 

TC 6123 mmp$reserve_segment_number_ri1 (shared_stack_flag, 

AO 6124 IF NOT ri_status.normal THEN 

A& 6125 osp$set_ status condition (ri_status.condition, status 
BC 6126 ELSE 

BC 6127 FOR i := LOWERBOUND (segment_num_array’) TO UPPERBOUND 
D6 6128 segment_num_array” [i] : = ri _num_array_p” [il]; 

oe) 6129 FOREND; 

106 6130 IFEND; 

106 6131 


106 6132 PROCEND mmp$reserve_ segment number ; 
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MMPSREVERIFY_ ACCESS 


ri_num_array_p, 


1989-08-21 


for subsequent explicit assignment. 


UPPERBOUND 
(segment_num_array’) DO 


ri_status); 


); 


(segment_num_array”) DO 


1989-08-21 


ce) 6135 

© 6136 { 

© 6137 { This request can be used to determine whether a PVA 

ce) 6138 { can be accessed by a program without causing an access 

Oo 61393 { violation or segment fauit. 

Oo 6140 { 

co] 6141 { This request is similar to MMPS$VERIFY_ACCESS but runs 

° 6142 { faster. The speed improvement is at a cost of less checking. 

© 6143 { The request simply verifies that the requested segment is still 
o 6144 { valid in the segment table. Checking of access rights and 

© 6145 { read-beyond-eoi is NOT done. 

oO 6146 { 

2) 6147 { MMPSREVERIFY ACCESS (PVA_P): BOOLEAN 

o 6148 { 

o 6149 { PVA_P: (input) This parameter is a pointer to the PVA to be 

o 6150 { tested. 

o 6151 { 

° 6152 { BOOLEAN: (output) The boolean result of this function specifies 
o 6153 { whether access is valid. 

© 6154 { 

o 6155 

oOo 6156 FUNCTION [XDCL] mmp$reverify access 

° 6157 pva_p: AAcel1): boolean; 

o 6158 

© 61593 VAR 

© 6160 sdt_entry_p: Ammt$segment_descriptor, 

oO 6161 sdtx_ entry p: Ammt$segment_ descriptor extended, 

o 6162 segnum: ost$segment, 

Oo 6163 xcb_p: Aost$execut ion_control block; 

° 6164 

oO 6165 segnum := #SEGMENT (pva_pA); 

4 6166 

4 6167 xcb_p := #ADDRESS (1, osc$segnum_job_fixed heap, #READ_ REGISTER (osc$pr_base_constant)); 
18 6168 sdt_entry p := mmp$get_sdt_entry p (xcb_p, segnum) ; 

18 6169 sdtx_entry_p := mmp$get_sdtx entry _p (xcb_p, segnum); 

18 6170 mmp$reverify_ access :: (segnum <= xcb_pA.xp.segment_table_length) AND 
AG 6171 (sdt_entry_ p*.ste.vl <> osc$vl_invalid_entry) AND (sdtx_entry_p4%.access_ state <> 
AS& 6172 mmc$sas_terminate_access) ; 
A6 6173 FUNCEND mmp$reverify access; 


(segment_num_array4)]; 
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6177 
6178 
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The purpose of this request 
associated with a segment. 

for access to a segment: 
should be selected 
pages will be accessed sequentially. 


sequential, 


selected if the task 
segment, or if the task 
segment. 


An access selection of sequential causes memory manager to 
transfer unit when a@ page fault occurs for a page on disk. 
pages assigned to the segment may be automatically removed 
pages are added as a result of a page fault. 


NOS/VE CYBIL/II 


random, 
if access to the segment 


is randomly accessing large blocks of 
is sequentially accessing multiple 
Random access should be selected otherwise. 


1.0 89102 


is to change the segment access selections 
Three access selections are currently Supported 
and read tu. 
is sequential and more than 4 
Sequential access should NOT be selected 
for segments that are managed via ADVISE requests. 


Sequential access 


Read _ tu access should be 
data in the 
parts of the 


read an entire 
In addition 
when new 


An access selection of read _ tu causes memory manager to read multiple pages, 


ome or more transfer units, 


when a page fault occurs for a page on disk. In 


addition pages assigned to the segment are not automatically removed when new 


pages are added as a result of a page fault. 


Am access selection of random causes memory manager to read one page for each 


page fault for a page on disk. 
page fault. 


MMPSSET_ACCESS SELECTIONS (PVA, 


PVA: (input) 
ACCESS SELECTIONS: (input) 
selections for the segment. 


STATUS: 
The possibie error codes are: 

dme$unabile_tlo_lecate_fde 
dme$unabie_to_get_fd_ lock 
mme$invalid_ring brackets 
mme$ring violation 
mme$segment_number_not_in_use 
mmeS$segment_ number _too_big 
mmeS$segment origin _change 


PROCEDURE [XDCL, #GATE] 
( pva: Acell; 
access selections: 
VAR status: ost$status); 
VAR 
caller_id: ost$caller_identifier, 
ri_status: ost$status, 
validating ring number: ost$valid_ring; 


#KEYPOINT (osk$entry, oesk$m * #SEGMENT 


status.normal :=: TRUE; 


MMPSSET_ ACCESS SELECTIONS 


6232 
8233 


NOS/VE CYBIL/II 1.0 89102 1989-08-21 
#CALLER_ID (caller_id); 
determine_validating_ring_ num (caller_id.ring, #RING (pva), validating ring number}; 
mmp$set_access selections _r1 (#SEGMENT (pva), validating ring number, access selections, 


IF NOT ri_status.normal THEN 
osp$set_status_ condition 

IFEND; 

#KEYPOINT (osk$exit, Oo, 


PROCEND mmp$set_access selections; 


ACCESS SELECTIONS, 


(pva) ’ 


(ri_status.condition, 


No pages pages are removed as a result of the 


STATUS ) 


This parameter specifies the segment. 


This parameter specifies the access 


(output) This parameter specifies the request status. 


mmp$set_access_ selections 


mmt$access_ selections; 


mmk$set_access_selections) ; 


status); 


mmk$set access selections) ; 


1989-08-21 


13:33:34 


13:33:34 


ri_status); 
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ri status); 


© 6244 { 
° 6245 { The purpose of this procedure is to explicitly set the segment length. 
° 6246 { Segment length is defined as the last byte in the segment that can be 
° 6247 { referenced, references beyond segment length are treated the same as a 
© 6248 { read beyond EOI. 
© 6249 { 
° 6250 { MMP$SET SEGMENT _ LENGTH (PVA, VALIDATION RING NUMBER, SEGMENT LENGTH, 
° s251 f{ STATUS) 
© 6252 { 
° 6253 { PVA: (input) This parameter specifies the segment for which segment ltength 
be) 6254 f{ is being set. 
ce) 6255 { 
© 6256 { VALIDATION_RING_ NUMBER: (input) This parameter specifies the ring number 
© 6257 { used for validation if it is greater than the caller ring number. 
o 6258 { 
© 6259 { SEGMENT_LENGTH: (input) This parameter specifies the new segment length. 
° 6260 { 
° 6261 { STATUS: (output) This parameter is where the request status is returned 
° 6262 { to the caller. The possible error codes are: 
o 6263 { mme$caliler_not_in_write_ bracket 
© 6264 { mme$invalid_pva 
o 6265 { mme$no_write_ access 
Oo 6266 { mme$ref_ to _unrecovered file 
Oo 6267 {i mme$segment_ number _not_in_use 
o 6268 { mme$segment_number_ too big 
o 6269 { 
° 6270 
o 6271 PROCEDURE [XDCL, #GATE}] mmpS$set_segment_length 
© 6272 ( pva: Acell; ; 
° 6273 validation_ring number: ost$valid_ring; 
oO 6274 segment_length: ost$segment length; 
Oo 6275 VAR status: ost$status); 
° 6276 
© 6277 VAR 
Oo 6278 caller_id: ost$caller_identifier, 
Oo 6279 ri_status: ost$status, 
¢] 6280 segment _poinmter: Acell, 
Oo 6281 validating ring number: ost$valid_ring; 
° 6282 
° 6283 #KEYPOINT (osk$entry, 0, mmk$set_segment_length) ; 
10 6284 #CALLER_ID (caller_id); 
10 6285 status.normai := TRUE; 
10 6286 determine _validating_ring_num (caller_id.ring, validation_ring number, validating ring number ); 
3A 6287 segment _ pointer := pva; 
34 6288 mmp$set_segment_length_ri (#SEGMENT (segment_pointer), validating _ ring number, segment length, 
6C 6289 IF NOT ri_status.normal THEN 
74 6290 osp$set status condition (ri_status.condition, status) ; 
86 6291 IFEND; 
8&6 6282 #KEYPOINT (osk$exit, osk$m * #SEGMENT (pva}, mmk$set_segment_tlength) ; 
98 6293 
98 6294 PROCEND mmp$set_segment_length; 
SOURCE LIST OF mmm$segment_manager_job_temp NOS/VE CYBIL/II 1.0 89102 1989-08-21 
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° 6297 
6298 The purpose of this request is to allow a user to change 
6299 attributes of a segment. Some attribute changes (such as 
6300 changing a segment attribute to BINDING) are rejected unless 
6301 the calling procedure is running within a certain ring bracket. 
6302 
6303 MMPSSTORE SEGMENT_ATTRIBUTES (PVA, VALIDATION_RING NUMBER, 
6304 SEG_ATTRIBUTES, STATUS) 
6305 
6306 PV4: (input) This parameter specifies the segment to be changed. 
6307 
6308 VALIDATION RING NUMBER: (input) This parameter specifies the ring 
6309 of execution for whom the change is being made. The 


ring number used for validation is the max of caller ring 
number and ‘validation _ring number’. 


SEG_ATTRIBUTES: (input) This parameter is an adaptable array of 
segment attribute descriptors. Each attribute descriptor 
@ new value for a segment attribute. 


STATUS: (output) This parameter specifies the request status. 
The possible error codes are: 

dadme$unable_to_get_fd_ lock 
dme$unable_to_locate_fde 
mmeS$address_not_0O_mod_16384 
mme$asid_specified 
mme$binding_ attribute invalid 
mme$execute global_invalid 
mme$execute local_invalid 
mme$invalid_asid_ specified 
mmeS$invalid_ring brackets 
mme$ invalid _shadow_segment 
mme$ length not_O_mod_16384 
mme$ring_ violation 
mme$segment_number_is_in_use 
mme$segment number_not_in_use 
mme$segment number _too_ big 
mme$segment_origin_change 
mme$segment_orgin_invalid 
mme$set _unmodifiabie_attribute 
mme$software_ attribute _ invalid 
mme$unsupported keyword 


n 
Ls) 
a 
& 
tae I on Mt coe, ates It ate Et ote Eh ct ate Et ote, i Be ote Ect Bh atm Dae ate ate ate, ie Bate Bate ate, Sate, Bate Bate 0 ate 0 oe 0 ate ate ote ote ate te ote oe oe oe te Be 0 oe oe 


6342 PROCEDURE [XDCL, #GATE] mmp$store_segment_attributes 
6343 ( pva: Acell; 

6344 validation_ring_number: ost$valid ring; 

6345 attr: array [ * ] of mmt$attribute_ descriptor; 
6346 VAR status: ost$status); 


6348 VAR 
6348 caller_id: ost$calier_identifier, 
6350 ri_status: ost$status, 


specifies 


6351 ri_segment_attributes_p: Aarray [ * ] of mmtSattribute descriptor ; 
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ce) 6353 #KEYPOINT (osk$exit, O, mmk$store segment_attributes) ; 

10 6354 

10 6355 status.nmormal :* TRUE; 

10 6356 #CALLER_ID {caller_id); 

10 «66357 PUSH ri_segment_attributes_p: [LOWERBOUND (attr) .. UPPERBOUND (attr)]; 
54 6358 ri_segment_attributes pA := attr; 

9A 6359 mmp$store segment _attributes ri (#SEGMENT (pva), caller_id.ring, ri_segment_attributes_ p, 
cc 6360 IF NOT ri_status.normal THEN 

D4 6361 osp$set_status_condition (ri _status.condition, status); 

EG 6362 IFEND; 

E6 6363 

EG 6364 #KEYPOINT (osk$exit, O, mmk$store_segment_attributes) ; 

EA 6365 


EA 6366 PROCEND mmp$store_ segment_attributes; 
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1989-08-21 


issued to 


o 6369 { 

° 6370 { The purpose of this request is to terminate shadowing of files. 
oO 6371 { o If required (UPDATE parameter set to true), a request will be 
° 6372 { update 

o 6373 { the PASSIVE file with the ACTIVE 

Oo 6374 { o A request to mmp$terminate_ shadowing ri will be issued to destroy the 
.°) 6375 { ACTIVE 

° 6376 { file and to activate the PASSIVE file again. 

3° 6377 { 

° 6378 { MMPSTERMINATE SHADOWING (POINTER, UPDATE, STATUS) 

ce) 6379 { 

ce] 6380 { POINTER: (input) This parameter specifies the process virtual 

o 6381 { address assigned to the ACTIVE segment. 

° 6382 { 

© 6383 { UPDATE: (input) This boolean parameter specifies if an update 
°o 6384 { (PASSIVE with ACTIVE) is required or not. 

° 6385 f{ 

o 6386 { STATUS: (output) This parameter specifies the request status. 

© 6387 { 

° 6388 

fe) 6389 PROCEDURE [XDCL, #GATE] mmp$terminate_shadowing 

° 63390 ( segment_p: Acell; 

° 6391 update: boolean; 

© 6392 VAR status: ost$status); 

° 6393 

3° 6394 VAR 

o 6395 access _ selections: mmt$access_ selections, 

Oo 6396 dest_p: mmt$segment_pointer, 

Oo 6397 ri_status: ost$status; 

© 6398 

Oo 6399 #KEYPOINT (osk$entry, #SEGMENT (segment_p) * osk$m, mmk$terminate_shadowing) ; 
16 6400 status.normal := TRUE; 

16 6401 

16 6402 { Determine if update (PASSIVE with ACTIVE)is required. 

16 6403 

16 6404 IF update THEN 

28 6405 update passive _with_active (segment _p, status); 

38 6406 IFEND; 

38 6407 

38 6408 . mmp$terminate shadowing ri (#SEGMENT (segment_p), ri_status); 
SA 6409 IF NOT ri_status.normal THEN 

62 6410 osp$set_status_condition (ri_status.condition, status); 

74 6411 IFEND; 

74 6412 #KEYPOINT (osk$exit, O, mmk$terminate shadowing) ; 

78 6413 


78 6414 PROCEND mmp$terminate_shadowing; 
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6417 
6418 
64193 
6420 
6421 
6422 
6423 
6424 
6425 
6426 
6427 
6428 
64293 
6430 
6431 
6432 
6433 
6434 
6435 
6436 
6437 
6438 
6439 
6440 
6441 
6442 
64483 
6444 
6445 
6446 
6447 
6448 
6449 
6450 
6451 
6452 
6453 
6454 
6455 
6456 
6457 
6458 
6459 
6460 
6461 
6462 
6463 
6464 
6465 
6466 
6467 
6468 
6469 
6470 
6471 
6472 
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Oo 6473 

© 6474 

© 6475 

ce) 6476 

fe) 6477 

ce) 6478 

° 6479 

c 6480 

c 6481 
26 6482 
26 6483 
36 6484 
36 6485 
36 6486 
36 6487 
3c 6488 
58 6489 
58 6490 
SE 6491 
SE 6492 
SE 6493 
SE 6494 
AE 6495 
AE 6496 
B4 64397 
B4 64398 
CoO 6499 
CO 6500 
cé 6501 
cé 6502 
cé 6503 
cés& 6504 
cs 6505 
cé 6506 
DC 6507 
oc 6508 
E4 6509 
E4 6510 
E4 6511 


Ea 6512 { 
E4 6513 { 


E4 6514 
E& 6515 
E&4 6516 
EC 6517 
EC 6518 
FC 6519 
FC 6520 
Fe 6521 
132 6522 
132 6523 
115A 6524 
15a 6525 
182 6526 
182 &527 
1BC 6528 
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This request can be used to determine whether a PVA 
can be accessed by a program without causing an access 
violation or segment fauit. 

MMPSVERIFY ACCESS BOOLEAN 


(PVA_P, ACCESS MODE): 


PVA_P: (input) 


tested. 


This parameter 


ACCESS MODE: (input) 
access to be tested. 


BOOLEAN: (output) 


whether access is valid. 


FUNCTION [XDCL, #GATE] 
( Pva_p: AAcel1; 
access_mode: mmt$va_access_ mode): 


mmp$verify access 
boolean; 


TYPE 
external code base pointer = 
fill: oO of( 16), 
vmid: oO Of Ff(16), 
xp: boolean, 
#1712: 0 .. 7, 
r3: 0 15, 
code _pva: ost$pva, 
#itT13: oO offfFF(16), 
binding pva: ost$pva, 
recend; 


packed record 


VAR 
caller_id: 
code _pva: ost$pva, 
pointer: record 

case (pva, code_pointer, str) of 
> pva = 
pva: ost$pva, 
= code_ pointer = 
cbp_p: Aexternal_code_bpase_pointer, 
static_link: ost$pva, 
=> str = 
S$: string 
casend, 
recend, 
ptr: record 
case Oo .. 1 of 
s 0 s 
Ppva_p: AAcell, 
= 1 2 
SP: 
casend, 
recend, 
ref_or: 


ostS$caller identifier, 


(12), 


Astring (12), 


ost$ring, 


NOS/VE CYBIL/I1 1.90 88102 


sd_p: Ammt$segment_descriptor, 
sdtx_p: Ammt$segment_descriptor extended, 
segnum: ost$segment, 
status: ost$status, 
xcb_p: Aost$execut ion_control_ block; 
mmp$verify access := TRUE; 
ptr.pva_p := pva_p; 
pointer.s := ptr.s_ pA; 
segnum := pointer .pva.seg; 


#KEYPOINT (osk$entry, segnum * osk$m, 
/verify_access/ 
BEGIN 
xcb_p := #ADDRESS (1, osc$segnum_job_fixed_heap, 
IF segnum > xcb_pA.xp.segment_table_ length THEN 
mmp$verify access := FALSE; 
EXIT /verify_access/; 


IFEND; 

sd_p := mmp$get_sdt_entry_p (xcb_p, segnum) ; 
Sdtx_p := mmp$get_sdtx_entry_ p (xcb_p, segnum) ; 
IF sd_pA.ste.vl = osc$vil_invalid_entry THEN 


mmp$verify access :: 
EXIT /verify_access/; 
IFEND ; 
IF (sdtx_p4.access state = mmc$sas_terminate_access) 
mmp$verify_access := FALSE; 
EXIT /verify_access/; 
IFEND ; 


FALSE; 


#CALLER_ID (caller_id); 
refor :: pointer .pva.ring; 
IF ref_r = 0 THEN 

mmp$verify access := 
EXIT /verify_access/; 


IFEND ; 


FALSE; 


Move pointer being verified to a local variable so that 
valid on recursive calls. 


IF calier_id.ring > ref_r THEN 
refor :5 caller_id.ring; 
pointer.pva.ring := calier_id.ring; 
IFEND; 


CASE access_mode OF 

= mmc$va_read = 
mmp$verify access := 

= mmc$va_write = 
mmp$verify access : 

= mmc$va_read_ write = 
mmp$verify access := 

(sd_p4A.ste.rp <> osc$non_readabie) ; 


This parameter specifies the type of 


#READ_REGISTER 


1989-08-21 


1S a pointer to the PVA to be 


The boolean result of this function specifies 


1989-08-21 


mmk$verify access) ; 


(osc$pr_base_constant)); 


THEN 


ring number checking will be 


(ref_r <= sd_pA.ste.r2) AND (sd_pA.ste.rp <> osc$non_readablie) ; 
(ref_r <= sd_pA.ste.r1) AND (sd_pA.ste.wp <> osc$non_writabie) ; 


(ref_r <= sd_pA.ste.r1) AND (sd_pA.ste.wp <> osc$non_writabie) AND 
* 
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MMPSVERIFY ACCESS 
1BC 6529 = mmc$va_execute = 
1BC 6530 mmp$verify_access :: (ref_or >= sd_pA.ste.ri1) AND (ref or <= sd_pA.ste.r2) AND 
1F4 66531 (sd_p’.ste.xp <> osc$non_executablie) ; 
1F4 6532 = mmc$va_read_execute = 
1F4 6533 mmp$verify access := mmp$verify_access (#LOC (pointer.pva), mmc$va_execute) AND 
230 866534 mmp$verify_access (#LOC (pointer.pva), mmc$va_read); 
230 66535 = mmc$va_binding = 
230 6536 mmp$verify_ access :: sd_pA.ste.rp = osc$binding segment ; 
246 6537 => mmc$va_pointer_to_ procedure = 
246 6538 
246 6539 { To verify a pointer to procedure the following must be checked: 
246 6540 f{ The procedure pointer must be in a segment with read access. 
246 6541 { The static link pointer, code base pointer, code PVA, or binding PVA must mot have a ring number 
246 6542 { equal to zero. 
246 6543 { The code base pointer must be in a segment with the "binding" attribute and be in a ring 
246 6544 { readable segment. 
246 6545 { The caller must be within the call bracket. 
246 6546 { The code PVA in the code base pointer must be in a segment with "execute" privilege. 
246 6547 { The binding PVA in the code base pointer must be in a segment with the "binding" attribute 
246 6548 { if this is a two word external code base pointer. 
246 6549 
246 6550 IF mmp$verify_access (#LO0C (pointer.pva), mmc$va_read) = FALSE THEN 
266 6551 mmp$verify access := FALSE; 
266 6552 EXIT /verify_access/; 
26E 6553 IFEND; 
26E 6554 
26E 6555 IF pointer.static_link.ring = © THEN 
274 6556 mmp$verify_access : = FALSE; 
274 6557 EXIT /verify_access/; 
282 6558 IFEND; 
282 6559 
282 6560 IF pointer .cbp_pA.code_ pva.ring = © THEN 
292 6561 mmp$verify access :=* FALSE; 
292 6562 EXIT /verify_access/; 
293A 6563 IFEND; 
29H 6564 
239A 6565 pointer .pva.ring :* refor; 
293A 6566 IF (mmp$verify_access (#LOC (pointer.pva), mmc$va_binding) AND mmp$verify_access (#LOC (pointer.pva), 
2D8 6567 mmc$va_read)) = FALSE THEN 
208 6568 mmp$verify access := FALSE; 
2D8 6568 EXIT /verify_access/; 
2EO 6570 IFEND; 
2EO 6571 
2EO 6572 IF ref or > pointer.cbp_pA.r3 THEN 
2FO 6573 mmp$verify access :: FALSE; 
2FO 6574 EXIT /verify_access/; 
2F8 6575 IFEND; 
2F8 6576 
2F8 6577 { The caller is within the call bracket so the call is possible. The ring of execution will be r2 from 
2F8 6578 { the code pva segment descriptor if it is greater than the caller’s ring number, if not the cailer’s 
2F8 65795 { ring number is the ring of execution. The ring of execution is used as the ring number in 
2F8 6580 { validating the code pva and the new binding pva if there is one. 
2F8 6581 
2F8 6582 code _pva := pointer.cbp_p’.code_pva; 
2F8 6583 IF ref or >» sd_pA.ste.r2 THEN 
310 6584 code pva.ring := sd_pA.ste.r2; 
SOURCE LIST OF mmm$segment_manager_job_temp NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 


MMP$VERIFY_ACCESS 


310 6585 refor :* sd pA.ste.r2; 

328 6586 ELSE 

328 6587 code pva.ring := ref_or; 

334 6588 IFEND; - 
334 6589 

334 6590 IF mmp$verify_access (#LOC (code_pva), mmc$va_execute) = FALSE THEN 
352 6591 mmp$verify_ access := FALSE; 

352 6592 EXIT /verify_access/; 

354 6593 IFEND; 

35A 6594 

354 6595 IF pointer.cbp pA.xp = TRUE THEN 

368 6596 IF pointer.cbp_p4A.binding pva.ring = © THEN 
374 6597 mmp$verify access :: FALSE; 

374 6598 EXIT /verify _access/; 

37C 65395 IFEND,; 

37C 6600 IFEND; 

380 6601 ELSE 

380 6602 mmp$verify_access :=: FALSE; 

384 6603 CASEND; 

384 6604 END /verify_access/; 

384 6605 

384 6606 #KEYPOINT (osk$exit, ©, mmk$verify_ access) ; 

388 6607 


388 6608 FUNCEND mmp$verify_access; 


SOURCE LIST OF mmm$segment_manager_job_temp NOS/VE CYBIL/II 1.0 8910602 1989-08-21 13:33:34 PAGE 814 


MMPSVOLUME UNAVAILABLE FLAG HDL 


oO 6611 : 

Oo 6612 PROCEDURE [XDCL] mmp$volume_unavailable_flag hdl 

4 6613 ( flag_id: ost$system_filag) ; 

4 6614 

4 6615 bap$exit_fap_on_condition (mme$volume_unavai lable) ; 

1€ 6616 osp$wait_for_unavailable_volume (mme$volume_unavai lable) ; 
30 6617 


30 6618 PROCEND mmp$volume_unavai lable_flag_ hdl; 
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| MMP$WAIT_FOR_UNAVAILABLE_VOLUME 


o 6620 

Oo 6621 PROCEDURE [XDCL, #GATE] osp$wait_for_unavailable_ volume 
C 6622 ( condition: ost$status_condition_code) ; 

C 6623 

Cc 6624 osp$verify system_privi lege; 

42 6625 

42 6626 osp$wait_on_condition (condition) ; 

56 6627 


56 6628 PROCEND osp$wait_for_unavai lable volume; 
© 6630 MODEND mmm$segment_manager_job_temp; 


***x* J=2$055781730A8S0102D198930821T183254 L=ZZ2XXLIST B=LGO DA=NONE LO=R RC=NONE OPT=SCHED EL =F LF=CS612 PAD=0 


**** NO DIAGNOSTICS 
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TDENTIFIER? +++ soe ee esse ee es ese DEFINED = +9 oes ae aes == REFERENCES 
ON LINE 
access _ control 2185 5369/M 
access _ control 2376 5369 
access mode 6436 6521 
access selections 4586 4617/M 4619/M 4621/M 4718/P 
access selections 4996 5025 
access selections 5315 5412 
access selections 6221 6234/P 
access _ state 2331 6171 6498 
addr 391 4685S 4707 4708 4714 
addr list 5771 5786 5786 5782/M 
addr _ returned 4588 4672/P 4678 4679 4714/8 4714/S 
addr_returned 5772 5794/M 
address_list 4587 4672/P 4684 4685 4707 4708 4709/P 4710/P 4711/P 
4714 4714 
amc$cell_ pointer 3 13 5010 5029 5395 5416 
amc$file_ byte limit 1185 1188 11906 
amc$heap_pointer 9 15 
amc$sequence_pointer 10 17 5012 5031 5397 5421 
amt$file_ byte address 1188 1149 4133 $623 5624 
amt$file_ limit 1190 1153 
amt$local_file name 3788 3777 
amt$pointer_kind 9 12 4995 5314 
amt$segment_ pointer 11 4735 4738 4803 4997 §316 5480 5582 
attr 6345 6357 6357 6358 
attrop 6000 6021 6023 6023 6024 
bad _ offset 4259 4277 
bad_ offset 6621 6624 
bap$exit_fap_on_condition 3742 5660 6615 
binding pva 6447 6596 
byte §320 5451/M 
caller_id 4748 47583 4754/P 
caller_id 4802 4808 48os/P 
caller _id 4843 4847 48ag/P 
caller_id 4888 4892 4895/P 
caller_id 4930 4333 4935/P 
caller_id 5001 5007 5017 
cailler_id 5104 .5110 5113/P 
caller_id 5170 5185 5186 
caller_id 5235 5240 5242 
caller_id §321 $402 5404 
caller id 5484 5488 5494/P 
caller_id 5541 5545 5548/P 
caller_id 5586 §589 §5591/P 
caller _id 5746 5754 §757/P 
caller_id S777 5785 5787/P 
caller_id 5833 5841 5842/P 
caller_id $872 5878 58390/P 
caller_id 53918 5924 
caller_id 6008 6014 6017/P 
caller_id 6047 6049 6050/P 
caller_id 6084 6032 6093/P 


**EX REFERENCE ABBREVIATIONS : Mtmodify, Aztattribute, Szsubscript, I=21/0 ref, Reread, Wewrite, Psparameter 


REFERENCES OF mmm$segment_manager_job_temp NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 817 
LDENTIFIER* S362 sons 6 =< seen * “DEFINED--- re eccreree ~--REFERENCES 
ON LINE 

caller_id 6225 6232 6233/P 

caller_id 6278 6284 6286/P 

caller_id 63498 6356 6359/P 

caliler_id 6451 6504 6516 6517 6518 

caller ring 4564 4568 4s69 

caller _ring 4742 4754 4754 

caller ring 4794 4809 4809 

caller_ring 4882 4835 48g5 

caller ring 5095 5113 5113 

caller ring 5535 5548 5548 

caller_ring 5826 5842 5842 

caller ring §398 6017 6017 

caller ring 6219 6233 6233 

caller_ring 6271 6286 6286 

cbop_p 6458 6560 6572 6582 6595 65396 

cell pointer 14 4810/P 4814/M 4814 4815 5030/M 5420/M 5434/P 5489 
5492 5494/P $497/M 5591/P 5594/M 

cell_pointer 2230 4654 4708 4893 4896/P 4901/M 4935/P 4939/M 5026/P 
5030 5413/P 5417 5419 5420 5492/M 5546 5549/P 
5552/M 6033 

code_ pointer 6454 6457 

code _pva 6445 6560 6582 

code _pva 6452 6582/M 6584/M 6587/M 6580/P 

condition 2232 4227/M 4757/P 4757/™ 4817/P 4817/M 4851/P 4851/M 4899/P 


4893 /M 4937/P 4937/™M 5037/P 5037/M 5126/P 5126/M 5196/P 
5196/M 5254/P 5254/M 5456/P 5456/M 5499/P 5489/M 5554/P 
5554/M 5596/P 5596/M S642 S655 5655 5656 5709/P 
5709/M 5759/P 5759/M 57390/P 5790/M 5845/P 5845/M §892/P 
5882/M §939/P 5939/M 6029/P 6029/M 6096/P 60S36/M 6125/P 
6125/M 6236/P 6236/M 6290/P 6290/M 6361/P 6361/M 6410/P 


6410/M 
condition 4222 4227 
condition 4742 4757 
condition 4794 4817 
condition 4838 4851 
condition 4882 48993 
condition 4924 4337 
condition 4994 5037 
condition 5095 5126 
condition 5161 5196 
condition 5227 5254 
condition 5312 S456 
condition 5479 , 54398 
condition 5535 5554 
condition 5581 5596 
condition 5691 S709 
condition 5740 5759 
condition 5768 5730 
condition 5826 5845 
condition 5867 5892 
condition 5913 5939 
condition 5998 60293 
condition 68075 S0S6 


*** REFERENCE ABBREVIATIONS : Mstmodify, Azattribute, S:subscript, I21/0 ref, R=read, Wswrite, P:parameter 


REFERENCES OF 


IDENTIFIER-+¢ ee ee eee eet ee eee 
condition 
condition 
condition 
condition 
condition 
condition 


‘contiguous flag 


contiguous real memory 
conv_ptr 


dest 
dest 
dest 


‘dest_p 


determine validating ring num 
dfc$min_cdcnet_errors 


dfc$min_driver_test_errors 


dfc$min_ecc 


dfcS$min_mm_ recovery errors 
dfe$family not _served 
dfe$server_has_terminated 
dfe$server not_active 
dm_element_ length 

dm _ element offset 
dmc$device_manager_error_ code 


REFERENCES OF 


IDENTIFIER-------------------- 


dme$unabile_to_alloc_all_space 
dmp$get_initialized addresses 
dmtS$addr_length_pair 
amt$chapter_ number 
dadmt$system_file_id 
dpp$put_critical message 


-asp$system_committed 


external code _base_pointer 


file entry, index 

file hash 

file hash 

file _ limits to enforce 
File limits to_enforce 
file name 

fmp$ In_open_chapter 


get_list_of addresses 
gfc$fde_ size 

gfc$fde_ table_base 
gfc$fk_catalog 
gfc$fk_job_local_file 


.gfcS$fm_mass_ storage file 


afc$fm_served_ file 
gfc$tr job 
gfc$tr_ system 


‘gfp$get_fde_p 


i 


gft$file 
gft$file kind 


gft$allocation_unit size 
gft$attach count 
aft$fde_fiags 
gft$file_desc_entry_p 
gft$file_ descriptor_entry 
descriptor index 
gft$file_media 
gft$liocked_ file desc entry p 


-gftS$open_count 


xe * 


mmm$segment_manager_job_temp 


mmm$segment_manager_job_temp 


REFERENCE ABBREVIATIONS 


M=modify, 


NOS/VE CYBIL/II 1.0 88102 
~--DEFINED----------- ec--° “REFERENCES 
ON LINE 
6105 6125 
6219 6236 
6271 6290 
6342 6361 
6389 6410 
6622 6626/P 
§322 5342/M 5378/M §433 
2379 $377 
5171 5182/M $191 
3842 3852 
4578 4655 4709 
4sso0 4654/M 4655/P 4656/P 
4589 4630/P 4654 4708 
4563 4574 4754 4809 
6233 6286 
320 326 328 331 
349 352 355 
315 363 366 369 
25 31 34 37 
57 60 63 
81 &4 && 
107 110 113 
131 134 137 
158 161 164 
183 186 190 
208 212 216 
237 240 243 
263 266 269 
288 232 296 
320 322 
322 378 382 385 
1990 S655 
173 S656 
122 S655 
4591 4684/M 4687 4687 
4592 4685/M 4695 4695 
475 476 479 4&2 
500 503 506 
$24 $27 530 
548 551 554 
572 575 578 
5396 599 602 
620 623 626 
644 647 650 
668 671 674 
632 6395 638 
716 719 722 
780 743 746 
764 767 770 
788 7391 7394 
812 815 818 
836 839 842 
REFERENCE ABBREVIATIONS Memodify, Azattribute, 
NOS/VE CYBIL/II 1.0 89102 
DEFINED----cr ere rere ene REFERENCES 
ON LINE 
860 863 8656 
884 887 8390 
908 911 914 
$32 $35 $38 
956 959 $62 
$80 983 986 
1004 1007 1010 
1028 1031 1034 
1055 1058 1061 
1079 1082 1086 
1106 1109 1112 
962 $642 5660/P 5668/P 
3755 4672 
3906 3757 3573 4587 
37396 3778 
3769 3755 
3748 5664 
3773 5663 
6439 6458 
3800 3815/M 3816 3817/M 
4578 4667/M 4667 4667/M 
4533 4667/P 4668 
5769 5787/P 
1495 3815 4667 
1146 3816 4667 
1497 3816 4667 
2344 5018/M 5115/M 5187/M 
6003 6019 
6033 6050/P 
3777 6050 
4670 4670 4716 
3832 3815 4667 
3830 3815 3831 4667 
1225 1237 
1227 1236 
1240 1162 4668 
1241 1165 
1505 38098 4667 
1505 3808 4667 
3799 3820 46867 
1196 1151 
1201 1142 1143 
1171 1138 
3837 3800 4593 
1136 1128 1141 3837 
1210 1435 
1221 1145 1233 
1240 1161 
1128 3943 
1270 1144 1286 


Azattribute, 


1989-08-21 


5444 
4708/M 4709/P 4711 
4719/P 
4895 5113 5548 
334 337 340 
375 
372 
40 43 47 
66 69 72 
91 94 98 
116 119 122 
141 145 148 
167 170 173 
193 196 199 
220 223 226 
246 249 252 
272 275 278 
301 304 308 
4699/M 4699 
4698/M 4698 
485 488 431 
5093 512 515 
533 536 539 
557 560 563 
581 584 587 
605 608 611 
629 632 635 
653 6S6 659 
677 680 683 
701 704 707 
725 728 731 
7493 752 755 
773 776 779 
737 800 803 
821 824 827 
845 848 851 
S=subscript, I=1/0 ref, 
1989-90 
863 872 875 
833 836 899 
917 920 * $23 
941 944 947 
S65 968 971 
$893 992 995 
1013 1016 10193 
1037 1043 1046 
1064 1067 1070 
106089 1082 10937 
1115 1118 1121 
5771 5779 
5243/M S405/M 60193 
Sz:subscript, I:1/0 ref, 


/P 
$842 


343 


51 

75 
101 
125 
151 
176 
202 
229 
256 
282 
315 


494 
518 
542 
S66 
S30 
614 
638 
662 
686 
710 
734 
758 
782 
806 
830 
854 


Reread, 


8-21 


&78 
$02 
326 
950 
974 
998 
1022 
1049 
1073 
1100 
1124 


/™ 


Reread, Wewrite, 


Wewrite, P 


13:33:34 PAGE 818 


sparameter 


13:33:34 PAGE 819 


881 
gos 
$29 
953 
977 
1001 
1025 
1052 
1076 
1103 


P=zparameter 


REFERENCES OF 


IDENTIFIER------ eee ee ee mec eee D 
i$] 
gft$queue_ status 
gft$segment_lock_info 
gft$signature_ lock 
gft$system_file_ identifier 


gft$table residence 
oft$transfer_unit_size 
gfv$null_sfid 


heap_pointer 
heap_pointer 


ji 


i 


j 

i 

i#move 

id 

id 

increment 
iot$transfer count 


jImc$highest_prio_age_interval 
jmc$highest_ service_accumulator 
imc$highest_service_factor_vailu 
imc$keyword offset _maximum 
jmc$kilil_job_filag 
jmc$kj1l_maximum_entries 
jmc$kol_maximum_entries 

jimc$ logout flag id 
jmc$max_active_jobs 
jmc$max_ajl_ord 
imc$max_dispatching control 
jmc$max_ dispatching priority 
jmc$maximum_job_count 
jimc$maximum_output_ count 
jmc$maximum_service_classes 
jmc$min_ dispatching control 
jmc$nulil_service_ class 
jime$priority aging_interval_max 
jmec$priority p1 
jmc$priority pio 
jmc$priority_pi4 
jmc$priority ps 
jmc$reserved_ ajis 
imc$service_accumulator_ maximum 
imc$service factor _value_max 
jmc$system_ default _offset 
jmc$terminate_job_flag 


KR 


REFERENCES OF 


EFINED 
N LINE 
1281 
1285 
1246 
1494 


1505 
1207 
4526 


16 
2234 


4s95 


§325 


mmm$segment_ manager _job_temp 


mmm$segment_manager_job_temp 


IDENTIFIER---°-+--- eee eee ee eee ne DEFINED 
ON LINE 
jmcSunlimited offset 2793 
jimt$dispatching control 2651 
jmtSdispatching controi_index 2684 
imt$dispatching controls 2654 
imt$dispatching_priority 2542 
jimt$ job priority 2712 
jmt$maximum_active_jobs 2723 
imt$priority_aging_interval 2768 
jimt$scheduling priority 2642 
jimt$service_ accumulator 2801 
jmt$service_cilass_index 2833 
imt$service class_name 2836 
jmt$service_factor_value 2854 
jmt$service_ factors 2850 
imtStask_time_slice 2694 
jmt$time_slice values 2673 
keyword 2161 
keyword 2368, 
kind 12 
kind 2228 
kind 5002 
kind 5327 
length 3932 
length 3843 
length 4578 
list_over flow 4S37 
list_over f low 5773 
list_p 4s98 
local_status 4599 
local status 5328 
max length 2170 
max length 2372 
max Jlength_index 5329 
max length specified 5330 
media 1161 
memory list _ index 4600 
mmc $ 1508 


eEE 


REFERENCE ABBREVIATIONS 


NOS/VE CYBIL/TII 


REFERENCE ABBREVIATIONS 


NOS/VE CYBIL/II 


se mene ne eee em ee 


REFERENCES 


1154 
1147 
11370 
2346 
5399 
1496 
1152 
§021 


5034/M 
5034 


4652 
4703/S 
5350 
5§358/5s 
5366/S 
5377/8 
5678 
6119 
3857 
4269 
6624 
5449 /M 
3086 


2771 
2813 


2854 
2797 
5670 


Mz=modify, 


REFERENCES 


2782 
2634 
2651 
2652 
2507 
2643 
2628 
2636 
2635 
2626 
26198 
2621 
2630 
2630 
2674 
2520 


5190/M 


4719/P 
5441/P 


5361/M 
5361 
5363/M 
534a4/M 
4668 
4686/M 
4696/M 
1515 


Memodify, 


1.09 89102 


2535 


$118 


5430/M 
$427 


4653/S 
4710/8 
5351/8 
5358/8 
§$368/S 
$381 

5679/S 
6120/S 
4655 

4273/58 
6624/S 
5450 


2781 


2739 


2731 


2545 


1.0 8910902 


2814 


25098 
2644 


2627 
2629 
2622 


2675 
2658 


§353/M 
5415/M 


§013/M 
5398/M 


4709/P 
3853/M 
4655/M 
4671 


4639/P 
4695 


5$392/M 


§392/S 
$362/M 


4687 
4696 
1518 
1543 
1568 
1593 
1617 
1642 
1666 
1690 
1717 
1741 
1765 
1791 


2932 


5193 


$429 


4654/s 
4711/8 
§353/S 
5360/Ss 
§369/S 
5383/5 


6127 
4709 


5450 


2732 


2546 


Azattribute, 


2656 
2645 


5357/M 


5015/M 
5400/M 


4710/P 


53391 


4687 
4702 
1521 

1546 
18571 

1536 
1620 
1645 
16698 
1693 
1720 
1744 
1768 
1794 


Azattribute, 


3024 


5251 


5430 
4679 
5354/Ss 


5361/S 
5369/5 


6128/S 


5451/S 


S=subscript, 


2646 


5360/M 


5019 
5406 


4711/P 


4709 
4672/P 


4645 


4688/M 


1824 
1549 
1574 
1599 
1623 
1648 
1672 
1696 
1723 
1747 
1771 
1797 


S=subscript, 


1989-08-21 13:33:34 

37693 37393 3951 4526 
5408 5706/P 
4684/S 4685/s 4707/58 4708/S 
5354a/Ss 5355/S 5355/Ss 5357/S 
5361/58 5363 §365/S 5366/S 
5371/8 5372/5 5376/S 5376/S 
6128/Ss 
5452/M 5452 

Izs]/O ref, Reread, Wewrite, 

1989-08-21 13:33:34 

5365/M S368/M §$371/M 5383/M 
4714 
4709/M 47093 
4646 4648 4653 4654 
4695 4695/5 4695 4695/S 
1527 1530 1533 1537 
15852 1585 1559 1562 
15878 1581 1584 1587 
1602 1605 1608 1611 
1626 1629 1632 1635 
1651 1654 1657 1660 
1675 1678 1681 1684 
16939 1702 1706 1710 
1726 1729 1732 1735 
1750 1753 1756 1759 
1774 1778 1782 1785 
1800 180603 1806 1809 

I:I/O ref, Reread, Wewrite, 


PAGE 8206 


P=parameter 


PAGE 821 


P=parameter 


Cee 


REFERENCES OF mmm$segment_manager_job_temp 


IDENTIFIER-------------------- D 
| 0 


nmc$as_random 
mmc$as_read_tu 
mmc$as_sequential 
mmc$assign_active_null 
umc$cell_pointer 
mmc$default_sdt_length 
umc$heap_pointer 
nmc$kw_asid 
mmc$kw_clear_space 

mmc$kw_ current _segment_ length 
mmc$kw_error_exit procedure 
mmc$kw_gi_key 
mmc$kw_hardware_ attributes 
mmc$kw_inheritance 
nmc$kw_max_segment_length 
mmc$kw_ null keyword 
mmc$kw_preset_ value 
mmc$kw_ps_transfer_size 
mmc$kw_ring numbers 
nmc$kw_segment_access contro] 
mmc$kw_segment_number 
nmc$kw_shadow_segment 
mmc$kw_ software attributes 
mmc$kw_ wired segment 
mmc$sa_free_behind 
mmc$sa_read_ transfer _unit 
mmc$sas_terminate_access 
nmc$segment_fault_processor_id 
nmc$sequence_ pointer 
mmc$ssk_none 
mmc$ssk_read_only_file 
mmc$ssk_read_ write file 
mmc$ssk_segment_number 
mmc$ua_max_segment_ length 
nmc$ua_null keyword 
nmc$ua_preset_ value 
mmc$ua_ring numbers 
mmc$ua_segment_access_ control 
mmc$ua_segment_number 
umc$ua_ wired segment 
mmc$va_binding 
mmc$va_execute 
mumc$va_pointer_to_ procedure 
mmc$va_read 

mmc$va_read_ execute 
mmc$va_read_ write 
umc$va_write 
mme$volume_unavai lable 
nmeSwired seg length _too_large 
nmk$c lose 

mmk$create_ scratch_segment 


*¥*Kt 


REFERENCES OF mmm$segment_mana 
IDENTIFIER-------------------- D 
e] 


mmk$create segment 
mmk$create shadow_segment 
mmk$delete scratch segment 
_mmk$delete_ segment 
mmk$Sfetch seg attributes 
mmk$get_segment_length 
mmk$Sinitiate shadowing 
mmk$ job base 


nmk$open_file_ segment 
mmk$set_access selections 
mmk$set_segment_ length 
mmk$store segment_attributes 
mmk$terminate shadowing 
mmk$verify access 
mmp$advise_out 
mmp$assign_cont iguous_ memory 
mmp$build_segment 
mmp$change_seg_inheritance_r1 
mmp$change_segment_inher itance 
mmp$change_segment_number 
mmp$change segment _number_ri1 
mmp$change_stack_attribute 
mmp$change stack_attribute_ri 
mmp$c lose_segment 

mmp$c lose shared stack 
mmp$convert_ps_transfer_size 
mmp$create scratch _segment 
mmp$create segment 

nump$create shadow segment 
mmp$create_ shared stack 
mmp$create_user_segment 
mmp$delete_scratch_segment 
mmp$delete_ segment 
mmp$delete user _ segment 
mmp$failed_allocation_flag_hd1 
mmp$fetch_offset_mod_pages_ ri 
mmp$fetch_offset_modified_ pages 
mmp$fetch_ segment_attributes 
mmp$fetch segment_attributes_ri1 
mmp$get_allocated_ addresses 
mmp$get_allocated_ addresses r1 
mmp$get_page size 
mmp$get_sdt_entry_p 
mump$get_sdt_entry_p 
mmp$get_sdtx_entry _p 
mmp$get_sdtx_ entry _p 
mmp$get_segment_length 
mmp$get_segment_length_ri 


eet 


EFINED---cc eer etree -~REFERENCES 
N LINE 
1812 1815 
1836 1840 
2133 4621 
2134 46138 
2133 4617 4626/P 
2372 2973 
2224 2229 4630/P 
3737 3730 4558 
2225 2233 5015 
2150 2186 
2148 2173 
2147 2167 
2149 2177 
2149 2171 
2151 2180 
2151 2188 
2148 2169 §360 
2146 5383 
2150 2175 5365 
2152 2196 
2146 2162 5353 
2150 2184 $368 
2147 2165 §357 
2182 2190 51380 
2149 2182 
2152 2193 5371 
2212 4616 
2212 4616 4618 
3011 6172 6498 
3441 3495 
2224 2231 5013 
3051 3028 
3051 58390/P 
3051 5937/P 
3052 3026 
2363 2371 §359 
2365 $382 
2363 2373 S364 
2365 2380 §352 
2364 2375 5367 
2362 2369 S356 
2364 2377 5370 
2391 6535 6566/P 
2390 6529 6533/P 
2390 6537 
2389 6522 6534/P 
2390 6532 
2389 6526 
2389 6524 
1778 6615/P 6616/P 
1785 $373/P 
1889 4833 4903 
1967 $008 5039 
REFERENCE ABBREVIATIONS Memodify, 
ger _job_temp NOS/VE CYBIL/II 1.0 89102 
EFINED--c+-+- reer eereeee REFERENCES 
N LINE 
1822 5111 5130 
2011 5179 5200 
13971 5489 5502 
1918 5546 S556 
1900 S751 8764 
1955 $838 5849 
18387 5922 $941 
2053 1854 1858 
1886 1889s 
1914 1918 
1941 1944 
1971 1875 
2003 2007 
1893 6015 69033 
1863 6229 6239 
19359 6283 6232 
1910 6353 6364 
1991 6399 6412 
1914 6483 6606 
3859 4656 4710 
3866 5434 
3874 5022 5124 
3883 4755 
4742 4760 
4794 4820 
3892 4810 
4838 4854 
3902 4849 
4882 47193 4905 
4924 4942 
3912 39337 
43394 §041 
5035 5132 
5161 5202 
5227 5259 
5312 5459 
5479 5504 
§535 5558 
5581 5441 5599 
5618 5688 
3949 5706 
5691 4639 5715 
5740 S765 
3960 5757 
5768 S736 
3969 5787 
3980 3385 5448 
4050 6168 6432 
4052 4054/M 6168/M 
49089 6169 6493 
40931 40383/M 6163/M 
5826 5851 
4041 5843 


REFERENCE ABBREVIATIONS 


NOS/VE CYBIL/I! 


Memodify, 


1.9 89102 


1818 
1843 


5025 


5011 


5400 


5398 


6590/P 


6550/P 


Azattribute, 


1862 
18933 
1922 
1947 
1979 
2011 


4711 


5194 


6492/M 


6493/M 


Azattribute, 


1821 
1846 


5026/P 


5396 


6S67/P 


S$=subscript, 


1866 
1897 
19826 
1851 
1883 
2015 


5252 


Sssubscript, 


1889-08-21 


1824 1827 1830 
5412 $413/P 
5491 

T=1/0 ref, 


1989-90 
1870 1874 
1300 1904 
1929 1932 
1955 1959 
1887 1991 
2019 2023 
5409 6027 

IsI/O ref, 


13:33:34 PAGE 822 


1833 


Reread, W=write, P=parameter 


8-21 


1878 
1907 
1935 
1963 
1995 


13:33:34 PAGE 823 


1882 
1910 
1938 
1967 
19399 


Reread, Wewrite, P=parameter 


REFERENCES OF 


IDENTIFIER: --- terre rr rr eee ~DEFINED-------- eee eee ee REFERENCES 
ON LINE 
mmt$segment_reservat ion_state 3041 2934 
mmt$shadow_info 3021 2838 
mmt$shadow_reference_info 30585 2533 
mmt$shadow segment_kind 3051 3025 
mmt$software_ attribute set 2217 2183 
mmt$Ssoftware attributes 2211 2217 
mmt$user_ attribute descriptor 2367 5313 
mmtSuser_ attribute keyword 2362 2368 
mmt$va_access_mode 2389 6436 
mmt$xcb page wait_info 3066 2519 
mmv$file_allocation_interval 4533 5638 
mtt$monitor_ inter lock 1319 1138 
nat$received_message_ descriptor 3082 3075 
nat$Sreceived _message_list 3074 2501 
new_allocated length $623 5639/P 
new_segment_ pointer 4798 4813/M 
nic$cec_connect_confirm 3114 3105 
nic$cec_connect_request 3113 3103 
nic$cc_expedited data 31139 3105 
nic$cc_max_pdu_kind 3121 3124 
nic$channel_connect ion_pdu 3137 3089 
nic$channe inet _pdu 3137 3091 
nit$cec_pdu_kind 3124 3102 
nit$cec _seq#_or_connect_time 3101 3090 
nit$cc_sequence_number 3127 3106 
nit$device identifier 3134 3085 
nit$pdu_type 3137 3088 
norma! 2290 4226/™M 
4807/M 
4899/M 
§125 
5343/M 
5551 
5708 
5839/M 
5329 
60S96/M 
6289 
offset list 4583 4598 
offset list 5694 5705 
offsets returned 4601 4636/M 
offsets returned 5695 5712/M 
osc$base_exception 469 475 
esc$binding segment 2283 6536 
osc$call_instruction 3332 3340 
osc$data_read 3331 3340 
osc$free_ running clock_maximum 1437 1434 
osc$invalid_ring 407 447 
osc$max_fault_ contents 3508 3502 
osc$max_name_size 2840 2844 
osc$max_ page size 1425 1421 


KX 


mmm$segment_manager_job_temp 


REFERENCE ABBREVIATIONS 


NOS/VE CYBIL/II 


M=modify, 


REFERENCES OF mmm$segment_manager_job_temp NOS/VE CYBIL/II 1.0 89102 
IDENTIFIER------ oe Seats eS See --°DEFINED------ ercereee “REFERENCES 
ON LINE 
mmp$initiate debug shadowing 5867 5835 
mmp$initiate shadowing 5913 5943 
mmp$initiate shadowing ri 4102 58390 5837 
mmp$ invalidate _segment 4111 48396 4935 
mmp$open_file segment 5998 : 4630 6035 
mmp$open_segment 6038 6052 
mmp$preset_page_streaming 6075 6102 
mmp$preset_page_ streaming ri 4120 6093 
mmp$process file alloc 4132 5639 
mmp$reserve_segment_number 6105 6132 
mmp$reserve_segment_number_r1 4139 6123 
mmp$reverify_access 6156 6173 
mmp$reverify access 6157 6170/M 
mmp$set_access_selections 62193 4626 4718 
mmp$set_access_ selections rt 4148 6234 
mmp$set_segment_length 6271 6294 
mmp$set_ segment_length_ ri 4157 6288 
mmp$store_ segment attributes 6342 6366 
mmp$store segment_attributes ri 4166 6359 
mmp$terminate_ shadowing 6389 6414 
mmp$terminate shadowing _r1 4175 6408 
mmp$validate_ segment number 4183 4610 
mmp$verify access 6434 6533 6534 
mmp$ver ify access 6436 6479/M 6489/M 
6530/M 6533/M 
6591/M 6597/M 
mmpSvolume_unavailable_ flag hdl 6612 6618 
mmp$wr ite modified pages 4192 5882 5328 
mmt$access selections 2133 4151 4586 
mmt$ast_ index 1303 1148 2883 
mmt$attribute descriptor 2160 2347 3780 
5749 6000 
mmt$attribute keyword 2146 2161 
mmt$eoi_ state 1312 1150 
mmt$hardware attribute set 2215 2181 
mmtS$hardware_ attributes 2203 2215 
mmt$ lock segment status 2337 2937 
mmt $max_sdt 28393 2897 
mmt $max_sdtx 2961 2965 
_mmt$sdtx stream data 2944 2940 
mmt$segment_access_ condition 3468 34396 
mmtSsegment_access rights 3000 2336 
mmt$segment_ access state 3006 : 2931 
mmt$segment_attrib_descriptor 2342 3875 5005 
mmt$segment descriptor 2880 28390 2894 
mmt$segment_ descriptor extended 2929 2958 2962 
6169 6474 
mmt$segment_ inheritance 2242 2189 2933 
mmt$segment_pointer 2227 3782 3877 
5166 5174 
60093 6042 
mmt$segment_pointer_kind 2224 2228 2345 
6001 6041 
*es REFERENCE ABBREVIATIONS M=modify, 


1.0 89102 


4105 
2335 


3084 


5643 
4814/M 


4611 
4812 
4934/M 
5126/M 
5411 
5554/M 
5709/M 
5844 
5938 
6117/M 
6290/M 


5711/M 
4638 


2847 


5494 


S026 


6550 

6495/M 
6536/M 
6602/M 


4sg6& 


3963 
6040 


5107 
3941 
3942 
6433 
3886 
4589 
$231 
6396 
3781 


Azattribute, 


4615 


5643 


6355/M 


&640/P 


5549 


§413 


6566 
6499/M 
6551/M 


§315 


4169 
6345 


5176 
4052 
40391 


4744 
4883 
5236 


5002 


S=subscript, 


4618 


S646 


4645 


Atattribute, S=subscript, 


1989-08-21 13:33:34 
5591 
6241 
6566 6590 6608 
6507/M 6523/M 6525/M 6527/M 
6556/M 6561/M 6568/M 6573/M 
6221 6395 
5096 5228 5335 5742 
6351 
5238 5336 6011 
4185 4602 6160 6473 
4094 4186 4603 6161 
4925 5003 5099 5105 
5337 5485. 5536 6004 
5097 5165 5229 5327 
I=I/O ref, Reread, Wewrite, 
1989-08-21 13:33:34 
4674 4752/M 4756 4757/M 
4850 4851/M 4894/M 4898 
5009/M 5024 5037/M 5112/M 
5196/M 5241/M 5253 5254/M 
5490/M 5496 5499/M 5547/M 
5596/M 5640 5642 5704/M 
5759/M 5784/M 5789 5790/M 
5883 5891 5892/M 5923/M 
6028 6029/M 6091/M 6095 
6231/M 6235 6236/M 6285/M 
6361/M 6400/M 6409 6410/M 
4648 4650 4652 4688 


I=1I/0 ref, 


R=read, W write, 


Psp 


PAGE 824 


P=parameter 


PAGE 825 


arameter 


REFERENCES OF mmm$segment_manager_job_temp NOS/VE CYBIL/II 1.0 88102 1989-08-21 13:33:34 PAGE 826 


IDENTIFIER------------ Shel Sincs Sis. i= DEFINED----rr rere renee REFERENCES 
ON LINE 

osc$max_ring 406 447 448 

osc$max_segment_ length 430 453 2941 2972 

osc$max_status_condit ion_code 2305 2301 2317 

osc$max_string size 2321 2324 2327 2332 4211 

osc$max_tasks 1265 1262 

osc$maximum_offset 429 430 450 450 451 5882/P 5928/P 

osc$maximum_processor_id 3380 3376 

osc$maximum_segment 428 449 

osc$min_ecc 468 469 

osc$min_page_size 1424 1421 

osc$min_ring 405 448 

esc$non_executable 2279 6531 

esc$non_readabie 2282 6523 6528 

osc$non_writable 2285 6525 6527 

osc$pr_base_constant 4003 4312 5630 6167 6487 

osc$pr_page_size_mask 4006 3383 5448 

ose$segnum_job_fixed_heap 4068 4311 5630 6167 6487 

osc$task_ time _slice_ maximum 2705 2708 

osc$vil_invalid_entry 2908 6171 6494 

osc$wait 4205 5882/P 59328/P 

osk$base 2058 2395 2399 2403 2807 2411 2415S 2419 2423 
2427 2431 2435 2439 2443 2447 2452 2455 
2458 

osk$entry 2090 4893 $008 5111 5179 5489 5546 5751 5838 
$922 6015 6229 6283 6399 6483 

osk$exit 2091 4903 5039 5130 5200 5502 5556 5764 5849 

5941 6033 62393 6292 6353 6364 6412 6606 

osk$m 2129 4833 5179 $489 5546 5751 §838 5922 6033 
6229 6292 6399 6483 

osk$system_class 2104 2088 2089 2090 2091 2092 2093 2094 

osp$set_status_abnormal 4208 5373 

osp$set_ status condition 4221 4229 4757 4817 4851 4899 4937 5037 5126 
5196 5254 5456 5499 5554 5596 57098 5759 
5790 S845 5892 5939 6029 6096 6125 6236 
6290 6361 6410 

osp$verify system_privi lege 4243 4285 6624 

osp$wait_for_unavailable_ volume 6621 S616 6628 

osp$wait_on_ condition 4287 5668 6626 

ostS$asid 2260 2187 2256 2914 

ostS$binary_ unique _name 1333 1140 

ost$byte_ count 2250 3860 4193 

ost$caller_identifier 2469 4262 4748 4802 4843 4888 4330 5001 5104 
5170 $235 $321 5484 5541 5586 5746 S777 
$833 5872 $918 6008 6047 6084 6225 6278 
63493 6451 

ost$cp_time 3170 2518 

ost$cp_time_value 3168 2531 3171 3172 

ost$cs_ lock 1444 2439 

ost$debug code 3331 3319 

ost$debug list 3327 3231 

est$debug_ list _entry 3318 3327 

ost$debug_mask 3337 3230 

ost$exchange package 3180 2486 


** x REFERENCE ABBREVIATIONS : M=modify, Atattribute, S:subscript, I21/0 ref, R=read, Wewrite, P2parameter 


e 
REFERENCES OF mmm$segment_manager_job_temp NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 827 
IDENTIFIER------ eer reer reer eee DEFINED----------- eres REFERENCES 
ON LINE 
ostS$execute_ privilege 2279 2274 23909 
ost$execut ion_control_ block 2485 2511 4051 40390 4299 $628 6163 6477 
ost$flags 3237 3187 
ost$frame descriptor 3295 3310 
ost$free_ running _clock 1434 1156 2517 2657 
ost$gliobal_task_id 1256 1158 12493 24396 24397 33392 3595 
ost$heap 4085 4546 
ost$key_ lock 436 2172 2915 
ost$key_ lock value 442 439 2471 2473 3254 3256 
ost$keypoint_class 3269S 3200 3271 
ost$keypoint_mask 3271 3203 
ost$minimum_save_area 3305 3192 3280 34893 
ost$monitor_ condition 3141 3148 
ost$monitor_ conditions 3148 3193 3137 3285 3564 3578 
ost$monitor fault 3485 3434 
ost$monitor_fault_contents 3502 3498 
ost$name 2847 2620 2836 3527 3788 6039 
-ost$p_register 3252 3181 3306 3556 3562 
ost$page_size 1421 . 1402 4540 
ost$paging statistics 3358 2526 
ost$processor_id 3376 2489 3370 
ost$processor_id_set 3370 2488 
ost$processor_model_number 1351 1335 
ost$processor_ serial number 1429 1334 
 ost$pva 458 3225 3243 3257 3486 3579 6445 6447 6452 
6456 6459 
ost$read_privilege 2282 2275 2910 
ost$register_number 3248 3222 3291 3298 3300 3301 
ost$ring 447 459 2163 2164 2381 2382 2474 2912 2913 
29330 3242 4564 6472 
ostSring1_terminat ion_reason 3388 2522 
ost$segment 449 460 1157 2166 2370 2475 3027 3220 3321 
3884 3883 3894 3940 3950 3961 3970 4042 
4082 4091 4112 4121 4141 41493 4158 4167 
4175 4184 4604 47396 5177 5625 6107 6112 
6162 6475 
est$segment_access_ control 2272 2185 2376 
ost$segment_descriptor 2907 2881 
-ost$segment_ length 453 3932 2168 2170 2192 2194 2137 2372 2378 
3868 4044 4160 4so1 5164 5829 5834 6274 
ostS$segment_offset 450 391 461 2287 2945 3322 3324 3756 3353 
3972 45883 4592 4606 5163 5694 5700 5770 
“ost$stack_frame_save_area 3279 3313 3522 
ost$status 2289 2179 3557 3750 3760 3783 3861 3869 3878 
3887 3896 3905 3944 — 38355 3964 3976 404s 
4106 4115 4127 4134 4142 4152 4161 4170 
4176 4187 4135 4212 4223 4293 4318 4580 
4ss9 4745 4749 47393 4804 4840 4844 4885 
4889 4927 4331 4338 5004 5100 5106 5167 
§175 5232 5237 $317 5328 5333 5481 5486 
5538 5542 5583 55387 5626 5696 5702 $743 
57468 S774 5782 5830 S835 5869 5874 5915 
5320 6005 6010 6043 6081 6087 6108 6113 


e+ REFERENCE ABBREVIATIONS : Mtmodify, Atattribute, S=zsubscript, Ist/O ref, R:read, Wewrite, P:tparameter 


REFERENCES OF 


IDENTIFIER-----------+-------- 


ost$status_condit ion_code 
ost$status_ identifier 
ost$string 

ost$string size 
ost$system_fiag 
ost$system_privilege_map 
ost$task_ index 
ost$task_time_slice 
ost$top_of_ stack_pointer 
ost$trap_ enable 

est$user_ condition 
ost$user_ conditions 
ost$valid_relative_pointer 
est$valid ring 


ost$virtual_machine_identifier 


ost$wait 

ost$write_ privilege 
ost$x register 

osv$page_ size 
osv$system_privilege_map 
osv$system_privilege_map 
osv$task_ private _heap 


vuuUud 


page size 
page size 
page _size 
pmc$account_ log 


pmc$external_log_ base_exception 


pmc$ job_account_log 
pmc$ job_ log 

pmc$ job_statistic_log 
pmc$kill_task_flag 
pmc$max_ Ssignal_contents 
pmc$max_task_id 
pmc$min_ecc 
pmc$pc_base_exception 
pmc$program_aborting 
pmc$program_exiting 


RE 


REFERENCES OF 


IDENTIFIER-------- ee eee eee eee 


pmc$sf_terminate_ task 
pme$statistic_log 
pmc$system_log 
pmc$task_ terminating 
pmp$exit 

pmp$ find executing task_xcb 
pmp$ tog 

pmp$task_ state 
pmt$ascii_logs 
pmt$binary logs 
pmt$condition_identifier 
pmt$cpu_model_number 
pmt$cpu_serial_number 
pmt$global_binary_logs 
pmt$globail_logs 
pmt$initialization_value 
pmt$local_binary_logs 
pmt$log_ msg text 

pmt$ logs 

pmt$signal 
pmt$signal_contents 
pmt$signal_id 
pmt$task_id 
pmt$task_state 

pointer 

pointer 

pointer 

pointer 

pointer 

pointer 

pointer 

pointer 

pointer 

pointer 

pointer 

pointer 


kind 
kind 
kind 
kind 


pointer 
pointer 
pointer 
pointer 
pointer kind 

pointer kind 

pointer kind 

pointer kind 

power 

present 
preset and save ts_ fb 
preset pointer 

preset value 

preset value 

previous allocated length 
ps_transfer_ size 


eX 


mmm$segment_manager_job_temp 


DEFINED 
ON LINE 


4332 
4334 
4332 
3663 
3646 
3401 
4365 
4361 
4519 


4518 


REFERENCE ABBREVIATIONS 


mmm$segment_manager_job_temp 


DEFINED 
ON LINE 
3664 
4333 
4334 
4519 


REFERENCE ABBREVIATIONS 


esse eeewe er ew ee ewe we 


NOS/VE CYBIL/II 


REFERENCES 


5670 
4338 
4336 
5634 
5674 
4313 
5673 
5634 
4348 
4350 


Mezmodify, 


1.0 89102 
REFERENCES 
6222 6226 
6476 
2292 2313 
4209 
2293 
2331 
3659 5619 
4255 4557 
1257 1296 
2694 
3232 
3189 3553 
3158 
3191 3195 
1163 1166 
2343 3232 
4043 4104 
4566 4750 
5537 5543 
6273 6281 
3183 3185 
4194 
2276 2911 
3222 3291 
3925 3925 
4273 
6624 
4638 4642 
4277/M 4281/M 
5022/P 5026/P 
5491/M 5492/M 
6624/M 6624/M 
3983/M 
5448/M 
5448/P 5452 
4340 4342 
4378 4381 
4405 4409 
4434 4438 
4460 4463 
4484 4487 
4508 
4338 4344 
4336 
4344 
3679 5671 
3640 
3398 
4361 
4375 
4521 
4521 
Mzmodify, 


NOS/VE CYBIL/II 1.0 89102 


4342 
4340 


5630 


1407 
1406 


2176 


3333 


4896/P 
4939/M 
5030/M 


5420/M 
S482 
5549/P 
5594/M 
6033 


6482 
6565/M 
5116/M 
5012 


5397 


38328/M 


5424 


5643 


6275 


3743 


6613 
4557 
1297 


3283 
2515 
3779 
4113 
4797 
$828 
6344 
3307 


4655/P 


4646 


5030 


Azattribute, 


2374 


3876 
4901/M 


5032/M 


5425/™M 
5494/P 
5552/M 


6505 
6S66/P 
5188/M 
5028 


5415 


3928 


$429 


S646/M 


Azattribute, 


6279 


4210 


3312 
2516 
3885 
4122 
4805 
5836 


46S56/P 


4720 


5032 


4388 
4416 
4444 
4469 
4493 


S:subscript, 


5172 


4114 


5034/M 
S5430/M 


5497/M 


6518/M 
6566/P 
5244/M 
$029 


5416 


3931 


5450 


S=tsubscript, 


1989-90 
6346 63506 
4222 4288 
3525 3565 
3895 3904 
4150 4159 
4884 48930 
5875 6002 
46398 4699 
5034 
4332 43935 
44193 4423 
4447 4450 
4472 4475 
&496 44939 

I=I/O ref, 


$173 


4326 


5$434/P 


6533/P 


1889-08-21 


5230 


5441 


6534 
6582 
6020 


5451 


IsI/O ref, 


/P 

/P 6550/P 655 
6595 659 

/M 


Reread, Wewrite, 


8-21 13:33:34 PAGE 828 
6392 6397 
6622 
3962 39371 
4168 4565 
5098 5108 
6012 6227 
4398 4401 
4427 4430 
4454 4457 
4478 4481 
4502 4505 
Reread, Wewrite, Ptparameter 
13:33:34 PAGE 8293 


5 
6 


P=parameter 


REFERENCES OF 


IDENTIFIER----+-+-+e¢- weet eee eee 


ps_transfer_ size _ power 
ptr 


_pva 


pva 
pva 
pva 
pva 
pva 
pva 
pva 
pva 
pva 


pva_p 
pva_p 
pva_p 


ri 

ri 

ri 

ri_addr_list_p 
ri_addr_returned 
ri_free_ behind 
ri_tlist_over flow 

ri _num_array_p 
ri_offset list_p 
ri_offsets_ returned 

FF i_pointer 

r1_pointer 

ri_pointer 

rl pointer 

rt_pointer 

ri_pointer 
ri_segment_attributes_ p 
ri_segment_ attributes p 
segment _iength 
status 


status 
status 
status 
status 
status 
status 
status 
status 
ri_status 
ri_status 
‘ri_status 
ri_status 
ri_status 


1h etd t bt bt bet tet 


**X 


REFERENCES OF 


e 


IDENTIFIER-------------------- 


riostatus 
ri_status 
ri_status 
ri_status 
rit_status 
ri_ostatus 
ri status 


ri_status 
ri_status 

ri transfer _ size 
r2 

r2 

r2 

r3 

refior 


residence 
return_unallocated offsets 
ring 

ring 


rp 
$s 


saved_free_behind 
' saved transfer size 
sd_p 


sdt_entry_p 
sdt_offset 
sdt_p 
sdtx_entry_ op 
sdtx_ offset 

sdtx_p 

sdtx_p 

seg 

'$eg 

seg 
seg_attrib_p 


seg_attributes 
seg._attributes 
seg _ attributes p 
seg_attributes p 
segment_attributes 
segment_attributes 


segment_attributes 


eee 


mmm$segment_manager_job_temp 


ON LINE 


REFERENCE ABBREVIATIONS 


mmm$segment_manager_job_temp 


DEFINED 
ON LINE 
5874 
5920 
6010 
6087 
6113 
6226 
6273 
6350 
6397 
6086 
2164 
2382 
2913 
6444 
6472 


1496 
5693 

459 
2474 


29170 


6461 
6469 
6080 
6079 
6473 


6160 
2515 
4602 
6161 
2516 
4603 
6474 

460 
3805 
4578 
§335 


§742 
6040 
5096 
§228 
5005 
5107 


5176 


REFERENCE ABBREVIATIONS 


NOS/VE CYBIL/II 


NOS/VE CYBIL/II 


: Memodify, 


1.0 881902 
REFERENCES 
3931 3932/M 
6480/M 6481 
4754/P 4755/P 
5198/M 
5751 5757/P 
5838 5843/P 
6093/P 
62293 6233/P 
6287 6292 
6359/P 
6455 
6482 6505 
6566/P 
6165 
6480 
6480/M 
5354/M 
5354 
6525 6527 
S786 5787/P 
5788/P 5794 
6094/P 6099 
5788/P 5793 
6118 6120/M 
5705 5707/P 
5707/P 5712 
5124/P 5128 
51i94/P 5198 
5252/P §256 
S88&S/M 5890/P 
5936/M 5937/P 
6027/P 6031 
5755 5756/M 
6357 6358/M 
5843/P 5847 
4755/P 4756 
4811/P 4812 
4849/P 4850 
4897/P 4898 
4935/P 4936 
5022/P 5024 
$124/P 5125 
5194/P 5195 
5252/P 5283 
5409/P 5411 
5495/P 5496 
5550/P 5551 
5592/P 5593 
5707/P 5708 
5757/P 5758 
5788/P 5789 
5843/P 5844 
Memodify, Azattr 
1.0 89102 
REFERENCES 
5890/P 5891 
5937/P 5838 
6027/P 6028 
6094/P 609g5 
6123/P 6124 
6234/P 6235 
6288/P 6289 
6359/P 6360 
6408/P 6409 
6094/P 6098 
5355/M 
5355 
6523 6530 
6572 
6505/M 6506 
6530 6565 
3808 3803 
S7TO6/P 
6505 6518/M 
4754/P 48039/P 
5242 5404 
5890/P 6017/P 
6517 6518 
6523 6528 
6481/M 
6481 
6099/M 
6088/M 
6492/M 6494 
6528 6530 
6168/M 6171 
4os5 6168 
4610/P 
616S/M 6171 
4094 6168 
4610/P 4615 
6493/M 6498 
6482 
3807/M 3810/M 
4667/M 4667/M 
5348 5353/M 
5365/M 5366/M 
5392/M 5392 
5755 S755 
6050/P 
5117 5120 
5245 S247 
5017/M 5018/M 
5114/M 5115/M 
$124/P 
5186/M 5187/M 
5194/P 


3832 


6234/P 


6518/M_ 


6530 
5792 


6123/P 
5711 


S5757/P 
6359/P 


4757/P 
4817/P 
4851/P 
4899/P 
4937/P 
5037/P 
5126/P 
5196/P 
5254/P 
5456/P 
$499/P 
5554/P 
5596/P 
5709/P 
5759/P 
5790/P 
5845/P 


ibute, 


5892/P 
5939/P 
6029/P 
6096/P 
6125/P 
6236/P 
6290/P 
6361/P 
6410/P 


6583 
6516 
6572 
4667 
6555 
4849 /P 
5494/P 
6050/P 


6536 


6523 
6530 


6492 


6493 
4618 


3812/M 
4667/M 


5019/M 
5116/™M 


5188/M 


Acsattribute, 


3934/M 


6533/P 


6128 


5761 


S=subscript, 


6584 


6517/M 
6583 
4667 


6560 

4895/P 
5548/P 
6093/P 


6523 
6531 


4630/P 


3815 
4667 
5355/M 
5369/M 
5434/P 
5761/M 


5122 
5249 
5020/M 
5117/M 


§189 


S=subscript, 


1988-08-21 13:33:34 
6534/P 6550/P 6565/M 6566/P 
I:I/O ref, Reread, Wewrite, 
1989-08-21 13:33:34 
6585 
6523 6525 6527 6530 
6585/M 6587 
6565/M 6584/M 6587/M 6596 
4935/P 5017 5113/P 5186 
5591/P 5757/P 5787/P 5842/P 
6233/P 6286/P 6359/P 6516 
6525 6525 6527 6527 
6536 6583 6584 6585 
4667/P 4672/P 
3816 
4667 
5357/M 5358/M 5360/M 5361/M 
5$371/M 5376/M 5383/M 5388/M 
5021/M 5022/P 
5118/M 51193 5120 5122/M 
§130/M 5191/M $192/M 51393/M 


T2e1/oO ref, 


R=read, Wewrite, 


PAGE 830 


P=parameter 


PAGE 831 


P= parameter 


REFERENCES OF 


IDENTIFIER----------e- ee econ 
segment_attributes 


segment attributes 
segment _ attributes 


segment inheritance 
segment_ length 
segment. length 
segment_num_array 
segment number 
segment _p 
segment_p 
segment _p 
segment_p 
segment_p 

segment pointer 
segment_pointer 


segment pointer 
segment_pointer 
segment _tabile_length 
segnum 

segnum 

segnum 

segnum 

segnum 

segnum 

segnum 

segnum 

segnum 

segnum 

segnum 

seq_p 


seq _ pointer 

sequence pointer 

sfc$no_ limit 
sfc$temp_file _space_limit 
sfid 

sfid 

sfid 

sfid 

sfid 
sft$file_space_ limit _kind 
Shadow_info 
shadow_length 

shadow _tength 
shadow_offset 

shadow_p 

shadow_sfid 

shared stack_flag 

shared taskid array 
shared taskid_array 


*EX 


REFERENCES OF 


IDENTIFIER----- een eet et eee nee 


signals 
size 


software attribute set 
source 

source 

source 

stack pages _to_be_ freed 
starting addr 
starting byte address 
static link 

status 

status 


status 
Status 
status 
status 
status 
status 
status 
status 
status 
status 
status 
status 
status 
Status 
status 
Status 
Status 
status 
status 
status 
status 
status 
status 
status 
status 
status 
status 


Status 
status 
status 
status 
status 
status 
status 
status 
Status 


ees 


mmm$segment_manager_job_temp 


DEFINED 
ON LINE 
5238 


S336 
6011 


4744 


REFERENCE ABBREVIATIONS 


mmm$segment_manager_job_temp 


DEFINED 
ON LINE 
2525 
2331 


REFERENCE ABBREVIATIONS 


ee enmrmeeaeeeweaeneoes = = 


_s ee ee eee ee eee ee 


NOS/VE CYBIL/II 


NOS/VE CYBIL/II 


REFERENCES 


5679 

4228/™M 
5196/M 
5790/M 
6230/M 
4615 

3851 

4655 

4653/M 
4849/P 
4666/M 
5787/P 
6555 

4226/M 
4610/P 
4673/P 
4757/M 
4752/M 
4817/M 
4807/M 
4851/M 
4846/M 
48399/M 
4894/M 
4937/M 
4934/M 
5037/M 
5009/M 
5126/M 
5112/M 
5196/M 
5180/M 
5254/M 
5241/M 
S456/M 
5343/M 
5499/M 
54390/M 
5554/M 
5547/M 
5596/M 
55930/M 
5639/P 
5673/P 
5709/M 
5704/M 
5759/M 
5753/M 
57390/M 
5784/M 
5845/M 
5839/M 
5892/M 


M=modify, 


1.0 881902 
REFERENCES 
§$242/M 5243/M 
5252/P 
§$404/M S405/M 
6018/M 60138/M 
6027/P 
4755/P 
5840/M 5847/M 
6288/P 
6118 6118 
4810/P 4815 
4610/P 4626/P 
51793 5182 
5706/P 
5322 5928/P 
63939 6405/P 
4810/P 4813 
5403/P 5413/P 
5427 5429 
5882/P 5889 
6287/M 6288/P 
61706 6488 
§53258/M 
§358 
4273/5 6624/S 
4oss 
4094 
6168 
6169 
6165/M 6168/P 
6492 
6433 
6482/M 6483 
5417/M 5418 
5429 
5032 5422 
5032/M 5425/M 
4630/P 5115 
5018 5405 
5021/M 5118/M 
4667/P 4672/P 
3808 3809 
4667 4667 
6026 
2344 239393 
4630/P 
5192/M 
51392 
5182 
5191/M 
4630/P 
6123/P 
4935/P 
5252/P 
M=modify, 


1.0 88102 


4757/M 
S254/M 
5845/M 
6361/M 
4618 


4703 
4655/P 


4672/P 


4227/M 
4611 

4674 

4757/M 
4757/P 
4817/M 
4817/P 
4851/M 
4851/P 
48995/M 
4899/P 
4937/M 
4937/P 
5037/M 
5026/P 
5126/M 
5126/P 
51936/M 
5196/P 
5254/M 
5254/P 
S4S6/M 
5373/P 
S499/M 
5499/P 
5554/M 
5554/P 
5596/M 
5596/P 
S640 

5674/P 
5709/M 
5709/P 
5759/M 
5759/P 
S730/M 


“S790/P 


5845/M 
5845/P 
5892/M 


§244/M 


5406/M 
6020/M 


61198 


46339/P 
5182 


5936 
6408/P 
4814 


$417 
5430 


6169/P 
6488 
5419 
5424 
5187 
51983/M 


3815 
4667 


4594 


Azsattribute, 


4817/M 
S456/M 
5892/M 
6410/M 


4707/M 
4714/M 
4228/M 
4626/P 
4710/P 
4757/™M 
4817/M 
4851/M 
48g39/M 
4337/M 
5037/M 
$037/P 
5126/M 
5$186/M 
5254/M 
5456/M 
5413/P 
5499/M 
5554/M 
5596/M 
5642 

5709/M 
5759/M 
57390/M 
5845/M 


5892/M 


Azattribute, 


5245/M 


5207/M 
6021/M 


6119 


4653 


5937/P 


4815 
5419 


6170 
6492/P 
5422/M 
5425 
5243 
5251/M 


3816 
4667 


§324 


S=subscript, 


e 


4851/™M 
5499/M 
5939/M 


4709/P 


4631/P 
4711/P 


5435/P 


5642 


S=subscript, 


1989-08-21 13:33:34 
5246 5247 5248 /M 5251/M 
5408/M 5403/P 
6022 6023 6024/M 6026/M 
6127 6127 6128/M 
4707 4718/P 
5420 5422 5424 5425 
6493/P 
5423 5424 5427/M 5428 
5408/M 6026/M 
6003 
I=I/O ref, Rtread, Wewrite, 
1989-08-21 13:33:34 
4899/M 4937/M 5037/M 5126/™M 
5554/M 553936/M 5709/M 575393 /M 
6023/M 6096/M 6125/M 6236/M 
4710/P 
4632 4640/P 4641 4656/P 
4718/P 
5440 5456/P 
5655 5655 5656 5664/P 


I1st/0 ref, 


Reread, Wewrite, 
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Pz=parameter 
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P=parameter 


REFERENCES OF 


IDENTIFIER--- eee et te tem ee ee wee 


status 
status 
status 
status 
status 
status 
Status 
status 
Status 
status 
status 
status 
status 
status 
status 
status 
status 
status 
ste 


‘str 

stri 

str 

str2 

str2 

syc$ucr_condition 
syc$user defined _ condition 
“System_filags 
Ssystem_table_lock_count 
Syt$monitor flag 
SytS$monitor flags 


temp_transfer_ size 
text 


tmce$broken_task_ fault_id 
tmce$btc_invalid_ao 
tme$btc_invalid_p 
tmc$btc_mcr_ traps disabled 
‘tmce$pbtc_ mf traps disabled 


tmceS$btc_mntr_ fault buffer full 


tmc$btc_system_error 
tmce$bptc_ucr_traps_disabied 
tmcS$dummy_ fault 

tmc$f lag available _ 31 
tmc$maximum_monitor_ faults 
‘tmc$maximum_signals 
tmcS$maximum_system_task_id 
‘tmeSmer_ fault 
tmce$signal_available_ 63 
tme$stid_null_task 


REFERENCES OF 


IDENTIFIER-----------------+--- 


‘tmt$broken_task_ condition 
tmt$broken_task_monitor_fa 
tmt$mer_ faults 
tmt$monitor fault buffer 
tmt$monitor, fault buffers 


tmt$monitor fault_identifiers 


tmt$signal 
tmt$signal_buffer 
tmt$signal_buffers 
tmt$system_flags 
..tmtS$system_task_id 
tmt$task_queue_ link 
ts 


update 
update passive _with_active 
user _ attributes 


user_attributes_ p 


validating _ring_num 
validating ring num 
validating ring num 
Validating ring num 
validating ring num 
validating ring num 
_ validating ring num 
validating ring num 
validating ring num 
_ validating ring num 
validating ring number 
validating ring number 
validating ring number 
- validating ring number 
validating ring number 
validating ring number 
, Validating ring number 
_ validating ring number 
validating ring number 
validat ing_ring number 
~validat ion_ring number 
validation_ring number 
validation_ring number 
.Validat ion_ring number 
‘validat ion_ring_number 
validation_ring number 
validation_ring_number 
validation_ring number 
validation ring number 
validation_ring_ number 
. validation_ring number 


xe * 


mmm$segment_manager_job_temp 


ult 


eX 


mmm$segment_manager_job_temp 


1989-08-21 


5892/P 

5939/P 

6523 6525 6525S 
6531 6536 6583 
4709 

47093 /M 4709/M 4709 
4851/M 48399/M 43937/M 
5499/M 5554/M 5596/M 
5939/M 6029/M 6O0S6/M 


NOS/VE CYBIL/II 1.060 89102 
DEFINED------- -- -REFERENCES 
ON LINE 

5869 5877/M 5882/P 5883 

§$13 5939/M 5939/M 5939/M 

5915 5923/M 5928/P §929 

§998 6023S/M 60293/M 6029/M 

6005 6016/M 6029/P 

6043 6050/P 

6075 6096/M 6096/M 6096/M 

6081 6091/M 6096/P 

6105 6125/M 6125/M 6125/M 

6108 6117/M 6125/P 

6219 6236/M 6236/M 6236/M 

6222 6231/M 6236/P 

6271 6290/M 6290/M 6290/M 

6275 6285/M 62380/P 

6342 6361/M 6361/M 6361/M 

6346 6355/M 6361/P 

6389 6410/M 6410/M 64810/M 

6392 6400/M 6405/P 6410/P 

2881 6171 6494 6523 
6528 6530 6530 

6454 6460 

3846 3851/M 3853 

4578 4655/M 46s5 4709/M 

3847 3852/M 3853/M 3854 

4578 4655/M 4655/M 4655 

3513 3524 

3514 3526 

2500 5670 S677 

2499 5672 

3420 3405 

3405 2487 

6078 6093/P 

2293 4228/M 4757/M 4817/M 
5196/M 5254/M 5456/M 
5790/M 5845/M 5892/M 
6290/M 6361/M 6410/M 

3441 3491 

3539 3560 

3539 3560 

3540 3561 

3539 3559 

3538 3559 

3541 3555 

3540 3561 

3442 3497 

3676 3680 

3446 3437 

3656 3653 5678 

3689 3692 

3441 3493 

3638 3649 

3695 3692 

REFERENCE ABBREVIATIONS Memodify, Azattribute, 


S=subscript, 


I=1l1/O0 ref, Reread, 


1989-08-21 


NOS/VE CYBIL/II 1.0 89102 
DEFINED---------------- REFERENCES 
ON LINE 

3538 3554 

3552 3492 

3577 3494 

3431 2524 

3437 3432 3433 3434 

3440 3490 3566 

3594 3589 

3586 2525 

3653 3587 3588 3589 

3659 2500 5670 5671 

3692 2491 

1295 1288 

3918 3925/M 3927 3927 

6391 6404 

4578 4722 6405 

2347 5020/M 5117/M 5119 
51982/M 5245/M 5246 
6023 6024/M 

5313 5347 5348 5348 
5358 5361 5366 

a566 4569/M 4571/M 

4742 4754/M 4754/M 

4794 4803/M 8809/M 

4882 4895/M 4895/M 

5095 5113/M 5113/M 

5535 5548/M 5548/M 

5826 5842/M 5842/M 

5998 6017/M 6017/M 

6219 6233/M 6233/M 

6271 6286/M 6286/M 

2343 5017/M 5114/M 5186/M 

4750 4754/P 4755/P 

4805 480s/P 4811/P 

4890 4895/P 4896/P 

5108 5113/P 5114 

5543 5548/P 5549/P 

5836 5842/P 5843/P 

6012 6017/P 6018 

6227 6233/P 6234/P 

6281 6286/P 6288/P 

4565 ases 4571 

4742 4754 4754 

4794 4809 4809 

4797 48039/P 

4882 4895 4895 

4884 4895/P 

5035 5113 5113 

5098 5113/P 

5535 5548 5548 

5537 5548/P 

5826 5842 5842 


REFERENCE ABBREVIATIONS 


: Memodify, 


Azattribute, 


5677 

3929/M 3929 

§120 5122/M 5189 
$247 5249/M 5407/M 
5350 5350 5351 
5369 5372 5376 
5242/M 5404/M 6018/M 


Sesubscript, 


I=1/0 ref, 


13:33:34 
6527 6527 
6584 6585 
5037/M 5126/M 
5709/M 5759/M 
6125/M 6236/M 


W=write, P=p 


13:33:34 
5190/M 5191/M 
6021/M 6022 
5354 5355 
$377 


Reread, Wewrite, P=p 


PAGE 834 


arameter 


PAGE 835 


arameter 


REFERENCES OF 


IDENTIFIER------- eee eee ene eee 


validation ring number 
validation_ring number 
validation_ring_ number 
validation ring number 
validation_ring_number 
validation_ring mumber 
verify access 


vi 


wait _time 

wired flag 

wired index 

wired segment_ length 
wired segment length 
wp 


xcb 
xcb 
xcb_p 
xcb_p 
xcb_p 
xcb op 
xcb op 
xcbh p 
xcb_p 
xcb op 
xcb_p 
xp 

xp 

xp 


SOURCE LIST OF mmm$segment_manager_system_core NOS/VE CYBIL/II 


NOS/VE - 


mmm$segment_manager_job_temp 


**KS 


NOS/VE CYBIL/II 1.0 89102 
DEFINED---c--r ee eet “REFERENCES 
ON LINE 

5828 5842/P 
$998 6017 6017 
6002 6017/P 
6219 6233 6233 
6271 6286 6286 
6273 6286/P 
6485 6485 64390 

6569S 6574 
2908 6171 6494 
5627 5638/M 5644/M 
§339 5345/M 5380/M 
5340 5381/M §392/S 
2194 5376/M $392 
2378 5372 5376 
2911 6525 6527 
4298 4311/M 
5618 5630/M 
4051 4054 4055 
4090 4033 4094 
5628 5630/P 5670 
6156 6168 6168 
6156 61693 6169 
6163 6167/M 6168/P 
6434 6492 6492 
6434 6493 6433 
6477 6487/M 6488 
2486 6170 6488 
2909 6531 
6442 6595 

REFERENCE ABBREVIATIONS Memodify, 


MMMSSEGMENT_MANAGER_SYSTEM_CORE 


3 MODULE mmm$segment_manager_system_core; 


1.0 89102 


6496 
6592 


5391 
5434/Ss 
5434/P 


56872 


6169/P 


6492/P 


Azattribute, 


1989-08-21 13:33:34 PAGE 836 
6500 6508 6552 6557 6562 
6598 6604 
5444 
5677 5679 
6170 
6493/P 
S=subscript, It1/0 ref, Rtread, Wewrite, P:parameter 


1989-08-21 


"13:33:34 
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SOURCE LIST OF mmm$segment_manager_system_core NOS/VE CYBIL/II 1.0 89102 1989-08-21 


NOS/VE - MMMS$SEGMENT_MANAGER_SYSTEM_CORE 
Procedures referenced in this module 


External 


Oo 5350 
o 5351 PROCEDURE [XREF] dfp$set_server_eoi 
Oo 8352 { sfid: gft$system_file_identifier; 
oO §353 segment_length: ost$segment_length; 
o 5354 VAR status: ost$status); 
© 58355 
5358 
5359 PROCEDURE [XREF] dmp$allocate_file_ space_ri1 ALIAS ‘dmxaspa’ (system_file_id: 
5360 admt$system_file_id; 
5361 byte address: amt$file_byte_address; 
5362 number bytes to _ allocate: amt$file_byte_address; 
5363 chapter number: dmt$chapter_ number ; 
$364 wait_option: ost$wait ; 
5365 file_space_limit: sft$file_space_limit_kind; 
5366 VAR status: ost$status) ; 
° 5384 
Oo 5385 PROCEDURE [XREF] dmp$create_disk_file 
oO 5386 ( fde_p: gft$file_desc_entry_p; 
o 5387 file_attributes_ p: Aarray [ * ] of dmt$file_attribute; 
oO 5388 allocation_length: amt$file byte_address; 
° 5389 sfid: gft$system_file_identifier ; 
© 5390 VAR status: ost$status); 
Oo 5391 
5394 
5395 PROCEDURE [XREF] dmp$destroy file ALIAS ‘dmxfdes’ (VAR system_file_id: 
5396 admt$system_file_id; 
5337 File _space_lVimit: sftS$file_ space _limit kind; 
5398 VAR status: ost$status); 
© 5401 PROCEDURE [XREF] dmp$fetch_eoi ALIAS ‘dmxfeoi’ (system_file_id: 
Oo 5402 dmt$system_file_id; 
oO 5403 VAR eoi:amtS$file_ byte address; 
oO 5404 VAR status:ost$status) ; 
5407 
5408 PROCEDURE [INLINE] dmp$get_disk_file_descriptor_p (fde_p: gft$file desc_entry_p; 
5409 VAR dfd_p: Admt$disk_file_ descriptor) ; 
5410 
oO 8446 
© 5447 PROCEDURE [XREF] dmp$get_initialized_addresses (sfid: dmt$system_file_id; 
Oo 5448 starting byte address: ost$segment_offset ; 
Oo 5449 VAR addr_list: array [ * ] of dmt$addr_length_pair ; 
° 5450 VAR addr _returned: integer ; 
oO 8451 VAR list_overflow: boolean; 
Oo 5452 VAR status: ost$status) ; 
Oo $8453 
5463 
S464 
S465 PROCEDURE [XREF] dmp$get_total_allocated_length 
5466 ( fde_p: gftS$locked_ file _desc_entry_p; 
5467 VAR allocated length: amt$file_byte_address) ; 
5468 
5469 
o 5472 
© 5473 PROCEDURE [XREF] dmp$mfh_for_sfid (system_file_id: dmt$system_file_id; 
fe) 5474 offset requiring allocation: amt$file_ byte address; 
Oo 5475 file_space_limit: sft$file space limit kind; 
: @ 
SOURCE LIST OF mmm$segment_manager_system_core NOS/VE CYBIL/II 1.6 89102 1989-08-21 


NOS/VE - MMMSSEGMENT_MANAGER_ SYSTEM_CORE 
Procedures referenced in this module 


External 


oO 
ce 


0000 00000 o0o0000 000000 


90000000 


5476 
5477 
5480 
5481 
5482 
5485 
5486 
5487 
5488 
5489 
5490 
54393 
5494 
5495 
5496 
5497 
5498 
5499 
5500 


VAR status: ost$status) ; 


PROCEDURE [XREF] dmp$reallocate_ file space (sfid: dmt$system_file_id; 


copy _pages: boolean; 
VAR status: ost$status) ; 
PROCEDURE [XREF] dmp$sparse_allocate 
( sfid: gft$system_file_ identifier ; 
offset requiring allocation: amt$file_ byte _ address; 
file space limit: sft$file_ space limit kind; 
VAR status: ost$status) ; 


PROCEDURE [XREF] gfp$assign_fde 
( residence: gft$table_ residence; 
segment number: ost$segment ; 
VAR sfid: gft$system_file_identifier ; 
VAR fde_p: gft$file_desc_entry_p); 


PROCEDURE [XREF] gfp$free_ fde 
( fde_p: gft$file_desc_entry_p); 


FUNCTION [UNSAFE, INLINE] gfp$get_eoi_from_fde 
( fde_p: gft$file_desc_entry_p): amt$file_byte_address; 


PROCEDURE [INLINE] gfp$get_fde_p (sfid: gft$system_file_identifier ; 
VAR fde_p: gft$file_desc_entry_p); 


PROCEDURE [INLINE] gfp$lock_fde (fde_p: gft$file_desc_entry_p); 


PROCEDURE [INLINE] gfp$uniock_fde_p (fde_p: gft$locked_file_desc_entry_p); 


PROCEDURE [INLINE] gfp$get_locked_fde_p (sfid: gft$system_file_identifier; 
VAR fde_p: gft$file_desc_entry_p); 


PROCEDURE [XREF] i#build_adaptable_heap_pointer (ring: © .. 15; 
segment: 0 .. 40985; 
offset: -80000000(16) .. TFFFFFFF( 16); 
heap_length: 0 .. 7FFFFFFF( 16}; 
VAR heap_p: AHEAP ( * )); 


PROCEDURE [XREF] i#build_adaptable_seq_ pointer (ring: © .. 15; 
segment: 0 .. 406095; 


13:33:34 


13:33:34 
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PAGE 839 


SOURCE LIST OF mmm$segment_manager_system_core NOS/VE CYBIL/II 1. 


NOS/VE - MMMSSEGMENT_MANAGER_SYSTEM_CORE 
External Procedures referenced in this module 


© 89102 1989-08-21 


number of pages expressed aS a power of 2 


(ps_transfer_size: integer; 


° S812 offset: -800600000(16) TEFFFFES (1G); 
oO 5813 sequence_length: 0 .. 80000000(16); 
oO 5814 next _entry: oO TEFFFFFF(I6); 
o 5815 VAR seq_p: ASEQ ( * )); 
© 5816 
° 5817 
o 8818 PROCEDURE [INLINE] i#¥move (source: Acéll; 
o 5819 dest: Acell; 
fe 5820 length: o TEFEFEFFE( IG) ); 
3° 5821 
° 5822 VAR 
oO 5823 stri: Astring (65535), 
Oo 5824 str2: Astring (65535); 
° 5825 
° 5827 IF length <> © THEN 
o 5828 stri :: source; 
o 58295 str2 = dest; 
° 5830 str24 (1, length) := stri14 (1, length); 
° 5831 #SPOIL (str24); 
i] $832 IFEND; 
° $834 PROCEND i#fmove; 
° 5835 
oO 5836 PROCEDURE [XREF] i#real_memory_address (p: Acel11; 
oO 5837 VAR rma: integer); 
° §838 
ce] S839 PROCEDURE [XREF] mmp$advise_in (pva: Acel}1; 
Oo 5840 length: ost$byte_count,; 
oO 868841 VAR status: ost$status); 
° $842 
584s 
S846 PROCEDURE [XREF] mmp$advise_out (pva: 4Ace11; 
5847 length: ost$byte_ count; 
5848 VAR status: ost$status); 
58498 
ce 5852 
°o 68853 PROCEDURE [XREF] mmp$assign_cont iguous_memory 
o 5854 ( process virtual_address: Acell; 
3° 5855 contiguous mem_length: ost$segment_ length; 
Oo 5856 VAR status: ost$status) ; 
° 5857 
5860 
5861 { Convert page streaming transfer size from bytes 
5862 
5863 PROCEDURE [INLINE] mmp$convert_ps_transfer_size 
5864 VAR ps_transfer_size_power: 0..15); 
° 5890 
o 5891 PROCEDURE [XREF] mmp$free_pages (pva: Ace11; 
o 5892 length: ost$byte_ count; 
eo 5893 waitopt: ost$wait; 
Oo 5894 VAR status: ost$status); 
° 58g5 
5898 
5899 PROCEDURE [INLINE] mmp$get_max_sdt_sdtx_pointer 
5900 ( xcb_p: Aost$execution_control biock; 
5901 VAR sdt_p: mmt$max_sdt_p; 


SOURCE LIST OF mmm$segment_manager_system_core NOS/VE CYBIL/II 


NOS/VE - MMMSSEGMENT_MANAGER_SYSTEM_CORE 
External Procedures referenced in this module 


PROCEND mmp$touch_all_pages; 


PROCEDURE [XREF] mmp$unlock_segment (p: Acel11; 


1.0 89102 


1989-08-21 


page_disposition: mmt$lus_page_disposition; 


53902 VAR sdtx_p: mmt$max_sdtx_p) ; 

5903 

+) 5912 

o $5913 FUNCTION [INLINE] mmp$get_sdt_entry_p 

oO 5914 ( xcb_p: Agost$execut ion_contro?_bleck; 

0 5915 segnum: ost$segment): Ammt$segment_descriptor ; 

c] 5916 

oO §917 mmp$get_sdt_entry_p :+: #address (1, #segment (xcb_p), 

o 5918 8 * segnum + xcb_pA.sdt_offset); 

° §919 

o 5820 FUNCEND ; 

o $921 

5924 

5925 FUNCTION [INLINE] mmp$get_sdtx_entry_p 

5926 ( xcb_p: Aost$execut ion_control_ block; 

§$327 segnum: ost$segment): Aammt$segment_descriptor_ extended ; 
§928 

5329 mmp$get_sdtx_entry p := #address (1, #segment (xcb_p), 

5330 #SIZE (mmt$segment_descriptor extended) * segnum + xcbh_pA.sdtx_ offset); 
5931 

5932 FUNCEND; 

59333 

oO 5936 

Oo 5837 

o $938 PROCEDURE [INLINE] mmp$touch_all_pages 

o s939. ( pages _to_ touch: Acell; 

o 5940 length: ost$segment_length); 

o $8941 

Oo 5942 VAR 

oO 5943 temp_pages_ te touch: Aarray [1 TEFFFFFF(I1G)] of © off(16), 
o 8944 page size: ost$page size, 

o 5945 referenced byte: 0 ofFf(16), 

Oo 53946 Size _ offset: integer, 

o 5947 

o 5948 page size := 512 * (128 - #READ_REGISTER (osc$pr_page_size_mask) ) ; 
o 59493 temp_pages_to_ touch :: pages _ to touch; 

o 5350 Size offset := 1; 

o 5951 

oO §952 WHILE size_offset < length DO 

o 5953 referenced byte := temp_pages_to_touchA [size_offset]; 

o 5954 size_offset := size_offset + page_size; 

Oo 5955 WHILEND ; 

o 5956 

° 5957 referenced byte := temp_pages_to_touchA [length]; 

° 

o 

° 

ce) 

i] 

° 

o 5964 wait: ost$wait; 

Oo 5965 VAR status: ost$status); 

Oo S366 

5969 
53870 PROCEDURE [XREF] mmp$write_ modified pages (pva: 


Acell; 
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13:33:34 
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SOURCE LIST OF mmm$segment_manager_system_core NOS/VE CYBIL/II 1.0 89102 


NOS/VE - MMMSSEGMENT_MANAGER_SYSTEM_CORE 
External Procedures referenced in this module 


5971 length: ost$byte_count; 
5972 waitopt: ost$wait; 
5973 VAR status: ost$status) ; 
5974 
° 5977 
© 53978 PROCEDURE [XREF] osp$begin_system_activity; 
° 5979 
© 5980 PROCEDURE [XREF] osp$end_system_activity; 
° 5981 
° 5882 PROCEDURE [XREF] osp$set_status_abnormal ALIAS ‘ospssa’ 
Oo 5983 ( identifier: ost$status_ identifier ; 
re) 5984 condition: ost$status condition_code; 
Oo 5985 text: string ( * <= osc$max_string_size) ; 
o 5986 VAR status: ost$status) ; 
° 5987 
5994 
5995 PROCEDURE [XREF]) pmp$cycie 
5996 (VAR status: ost$status) ; 
5997 


6002 PROCEDURE [XREF] pmp$delay 
milliseconds: integer ; 


e0o0o000 
o 
° 
° 
wu 


6004 VAR status: ost$status) ; 
6005 
6008 
6009 
6010 PROCEDURE [INLINE] pmp$find_executing task_xcb (VAR xcb: 
6011 Aost$execution control block) ; 
Oo 6027 
o 6028 PROCEDURE [XREF] pmp$find_task_xcb (task_id: pmt$task_id; 
Oo 6029 VAR xcb: Aost$execution_control_ block) ; 
6032 
6033 PROCEDURE [INLINE] pmp$get_executing_task_gtid (VAR global_task_id: 
6034 ost$global_task_id) ; 
ce] 6083 
Oo 6054 PROCEDURE [XREF] pmp$set_system_flag (flag_id: ost$system_flag; 
Oo 6055 recipient: ost$global_task_id; 
© 6056 VAR status: ost$status) ; 
Oo 6057 
6101 PROCEDURE [XREF] pmp$zero_out_table 
6102 ( p: Acell; 
6103 len: ost$byte_count); 
6104 
© 6107 
© 6108 PROCEDURE [XREF] syp$cause_ condition (name: ost$name) ; 
6111 
6112 PROCEDURE [XREF] syp$mfh_for_hang_ task; 
6113 PROCEDURE [INLINE] syp$set_status_from_mtr_status (monitor status: 
6114 SytS$monitor status; 
6115 VAR status: ost$status); 
6116 
ce] 6125 
Oo 6126 PROCEDURE [XREF]} syp$return_jobs_ri_resources; 
° 6127 


SOURCE LIST OF mmm$segment_manager_system_core NOS/VE CYBIL/II 1.0 89102 


NOS/VE - MMMSSEGMENT_ MANAGER _SYSTEM_CORE 
Extermal Procedures referenced in this module 


o 6128 PROCEDURE [XREF] syp$terminate_ task 
Oo 6128 ( terminate_reason: ost$ring!_termination_reason) ; 
1°) 61306 


1989-08-21 


1989-08-21 
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SOURCE LIST OF mmm$segment_manager_system_core NOS/VE CYBIL/II 1.0 88102 


NOS/VE - 


MMMS SEGMENT _MANAGER_SYSTEM_CORE 


External Variables referenced in this module 


0000 


oo 


oo0oo0o0oooooooaooo0oocoo 


ooo 


1989-08-21 


6134 VAR 

6135 dmv$idie_ system: [XREF] boolean; 

6136 

6137 VAR 

6138 gfv$null_sfid: [XREF, READ, OSSSMAINFRAME_ WIRED _LITERAL] gft$system_file_identifier; 
6139 

6140 

6141 SECTION 

6142 oss$mainframe_wired_ literal: READ; 

6143 

6144 VAR 

6145 jimv$executing within_system_job: [XREF, oss$job_fixed] boolean; 
6146 

6152 {Job Control Block (JCB) .} 

6153 

6154 VAR 

6155 jmv$jcb: [XREF] jmt$job_control_block; 

6965 VAR 

6966 imv$system_ijl_ordinal: [XREF] jmt$ijl_ordinal; 

6967 

69370 VAR 

6971 jimv$task_private_tempi_p: [XREF] Apmt$task_template; 
6986 {Pointer to the Active Segment Table - (AST).} 

6987 

6988 VAR 

6989 mmv$ast_p: [XREF] Ammt$active_ segment table; 

63390 


6993 {This deck contains XKREFS to variables used by Memory Manager in 
6394 {monitor mode. The variables are initialized by a job mode routine 
6995 {during system deadstart. 


6996 

69397 VAR 

6998 mmv$a_divisor: [XREF] © .. 10000(16), 

69998 mmv$a_mult: [XREF] © .. 10000(16), 

7000 mmav$number_ free _astes: [XREF] integer ; 

7001 

7002 

7003 

7004 { Define variable that contains the SDT index for the first transient segment. 
7005 

7006 VAR 

7007 mmv$first_ transient _seg index: [XREF] ost$segment ; 
7008 


7011 {Maximum number of pages that wili be assigned to a segment that does not 
7012 {nave a hacking file. A Signal is sent to the task to assign a file when 
7013 {the mumber of assigned pages exceeds this value. 


7015 VAR 

7016 mmv$max_ pages _no_file: [XREF] integer; 

7017 VAR 

7018 mmv$page_map_offsets: [XREF] mmt$page_ map_offsets; 


7044 { Define the number of page faults that trigger prestreaming mode 
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External Variables referenced in this module 


e 


eooo0o0o0o0oo0ocoooo0oo0dcfd 


e0o0oooo0o0g0o00 


7046 VAR 

7047 mmv$page_streaming prestream: [XREF] © .. 255; 

7048 

7049 { Define the number of bytes used to override the transfer size 
7050 


7051 VAR 

7052 mmv$page_streaming transfer: [XREF] integer; 

7053 

7054 VAR 

7055 mmv$preset_conversion_table: [XREF, READ] array [pmt$initialization_value] 
7056 of integer ; 

7057 

7088 

70583 VAR 

7060 mmv$shadow_by segnum: [XREF] boolean; 

7061 

7062 VAR 

7063 osv$job_fixed heap: [XREF, READ, oss$job_fixed] Aost$heap; 
7064 

7067 

7068 VAR 

7069 osv$cpus_logically_on: [KREF] © .. osc$max_number_of_ processors; 
7070 

7080 

7081 VAR 

7082 osv$multiple cpus _ possible: [XREF] boolean; 

7083 

7084 {System page size.} 

7085 

7086 VAR 

7087 osv$page_ size: [XREF] ost$page_size; 

7088 

7091 VAR 


TO92 Syv$job_initialization_complete: [XREF] boolean; 
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ASID FUNCTIONS - 


0°90 


eoooooeoocoooeooocooaooooKoooooeooooeaooooooo0o00o0o0o0o00 


MMMSSEGMENT_ MANAGER_SYSTEM_CORE 


Declarations defined and used 


7094 
7095 
7096 
7097 
7098 
7099 
7100 
7101 
7102 
7103 
7104 
7105 
7106 
7107 
7108 
7109 
7110 
7111 
7112 


in this 


CONST 
max specified transfer size =: 


NOS/VE CYBIL/II 


1048576; 


1.9 88102 


module 


{ Limit user specified transfer size to 1MB 


{ Define giobal variables used by this module. 
VAR 
mmv$S$sfid_ match: [XDCL)]) integer, 
mmov$sfid_ mismatch: [XDCL] integer, 
mmv$sparse_threshold: [XDCL] integer := 30 * 4096, {Arbitrary number } 
mmv$default_sdt_entry: [READ, oss$mainframe_paged_literal] mmtS$segment_descriptor := 


[losc$v1_regular_segment, 
©, [FALSE, FALSE, 0]], ©, 
mmv$default sdtx_entry: [XDCL, 
mmt$segment_ descriptor 
mmc$srs_not_ reserved, 
sfc$no_limit, [90, oO, 


Tl 
2, 


MMM$SEGMENT_MANAGER_SYSTEM_CORE 


7114 


(from common decks) 


{ mmp$ast_ index 

{Purpose: 

{These functions convert AST 
{Input: 

{ AST_index or ASID 
{Output: 

{ asid or ast_index 


bits: array [0 15] of oO 


PROCEDURE [INLINE] 
VAR xasti: 


mmp$ast i 
mmt$ast_index) ; 


VAR 
asid: ost$asid, 
i: integer, 
asti: integer; 


asid := xasid DIV mmv$a_mult + 

asti : = 0; 

FOR i :: 1 
asti :5 
asid := 

FOREND ; 

xasti := asti; 

PROCEND mmpSasti ; 


To 4 DO 
asti * 16 + bits 
asid DIV 16; 


PROCEDURE [INLINE] mmpSasid 
VAR asid: ost$asiad); 


VAR 

asti: mmt$ast_index; 
asti 
asid 


xasti; 

{bits [asti MOD 
16) + bits [(asti 
asid DIV mmv$a_divisor 


oe 2 ub oo 


asid 


PROCEND mmp$asid; 


extended :: 


°, 


indexes 


255 :=5 


{xasid: 


[asid MOD 


(xasti: 


16] * 4096) + 
DIV 4096) 


osc$non_executabie, 
oj, 
#GATE, 


osc$read_ uncontrolled, 


READ, 

[1, 

mmc$sar_write extend, 
FALSE, FALSE, FALSE], 


oss$mainframe_paged_ literal] 
mmc$sas_allow_access, * , mmc$si_none, 

mmc$iss_none, [0, 0, #*, 
osc$max_segment_length] ; 


1.0 89102 


into an ASID and vise-versa. 


ostSasid; 


(xasid MOD mmv$a_muit) * mmv$a_divisor ; 


16); 


mmt$ast_ index ; 


(bits [lasti 
MOD 16]; 
+ {asid MOD mmv$a_divisor) * mmv$a_mutt; 


DIV 16) MOD 16) * 256) + (bits [(asti 


1989-08-21 


mmc$ssk_none, 


1989-08-21 


(1,048,576) 


osc$write_ uncontrolled, 


DIV 256) 
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DESTROY SEGMENT 
Oo 7161 PROCEDURE destroy segment 
4 7162 ( xsfid: gft$system_file_identifier; 
4 7163 fde_ entry _p: gftSfile desc _entry_p; 
4 7164 file limits enforced: sft$file_ space _limit_kind; 
4 7165 VAR status: ost$status) ; 
4 7166 
4 7167 - VAR 
4 7168 rb: mmt$rb_ringi_segment_request, 
4 7169 sfid: gft$system_file_identifier ; 
4 7170 
a 7171 Sfid :: xsfid; 
4 7172 IF fde_entry_pA.media = gfc$fm_transient_segment THEN 
10 7173 IF fde_entry_pA.asti <> © THEN 
18 7174 rb.reqcode := syc$rc_ringi_segment_request ; 
18 7175 rb.request :* mmc$sr1_ delete seg sfid; 
18 7176 ro.sfid :: sfid; 
18 7177 i#call monitor (#LOC (rb), #SIZE (rb)); 
4A 7178 IFEND; 
4A 7179 gfp$free fde (fde_entry_p); 
§C 7180 ELSE 
5C 7181 dmp$destroy_file (Sfid, file _ limits enforced, status); 
78 7182 IFEND; 
78 7183 
78 7184 PROCEND destroy _ segment ; 
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EXPAND _SEGMENT_TABLE 

o 7186 

° 7187 PROCEDURE expand_segment_ table 

o 7188 ( xcb_p: Aost$execution_ control biock; 

o 7188 VAR status: ost$status); 

© 7190 

o 7191 { 

° 7182 { The purpose of this procedure is to expand the SDT and SDTX when a segment table full 
© 7193 { situation is encountered when adding a new segment. Currently, the maximum number of 
° 7184 { segments a task can have open/attached is 4095. 

o 7195 f{ 

o 7196 

o 7187 CONST 

o 7198 segment_table size increase = 32; 

o 71989 

o 7200 VAR 

o 7201 new_sdt_length: integer, {must be an integer variabie} 

Oo 7202 new table size: ost$segment_length, 

Oo 7203 old_sdt_length: ost$segment, 

o 7204 old_sdt_offset: O .. OF FFFFFFF(IE), 

o 7205 old_sdtx_ offset: © .. OFF FFFFFF(16), 

o 7206 old sdt_p: Acell, 

o 7207 old _sdtx_p: Acell, 

o 7208 new _sdt_p: Ammt$segment_descriptor_table, 

o 7209 new_sdtx_p: Ammt$segment_descriptor_ table ex, 

oO 7210 request_bliock: mmt$rb_change_ segment table; 

o 7211 

oO 7212 status.normal := TRUE; 

4 7213 

4 7214 { Save the following values, so that the old SDT and SDTX can be freed after 
4 7215 { the new ones are successsfully allocated. 

4 7216 

4 7217 old _sdt_offset :*5 xcb_p4A.sdt_offset; 

4 7218 old _ sdtx_ offset :=5 xcb_ pA.sdtx_offset; 

4 7219 old _sdt_ length = xcb_pA.xp.segment_table_length; 

4 7220 

4 #7221 new _ sdt_length : = xcb_ pA.xp.segment table length + segment_table_ size_increase; 
4 7222 

4 7223 IF ((new_sdt_length + 1) * 8) > osv$page_size THEN 

32 7224 new _sdt_length := ((((new_sdt_length + 1) * 8) + osv$page_size) DIV osv$page_size); 
32 7225 new table size := new _sdt_length * osv$page_ size; 

32 7226 new _sdt_length := ((new_sdt_length * osv$page_size) DIV 8} - 1; 

4C 7227 IFEND; 

4c 7228 

4C 7229 IF new _sdt_length >= 4096 THEN 

54 7230 new sdt_length := 4095; 

58 7231 IFEND; 

5&8 7232 

5&8 7233 IF new _sdt_length = xcb_p4A.xp.segment_table length THEN 

64 7234 osp$set_status_abnormal (’MM’, mme$segment_table_is_ full, ‘’, status); 
86 7235 RETURN; 

$8 7236 IFEND; 

$8 7237 

98 7238 ALLOCATE new_sdt_p: [0 new _sdt_length] IN osv$job_fixed heap”; 
D4 7238 

D4 7240 IF ((new_sdt_length + 1) * 8) > osv$page_size THEN 
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DC 067241 mmp$free_ pages (new_sdt_p, new_table_ size, 
100 7242 mmp$assign_contiguous memory (new_sdt_p, 

14C 7243 IF NOT status.normal THEN 

124 7244 RETURN; 

126 7245 IFEND; 

124A 7246 ELSE 

124 7247 pmp$zero_out_ table (#LOC (new_sdt_p%), #SIZE 
146 7248 IFEND; 

146 7249 


146 7250 { 
146 7251 


Allocate and zero out the SDTX. 


146 7252 ALLOCATE new_sdtx_p: [0 new_sdt_ length] 
186 7253 

186 7254 Pmp$zero_out_table (#LOC (new_sdtx_pA), #SIZE 
1A2 7255 


1A2 7256 { Issue monitor request to move old segment table to 


1.0 89102 


osc$nowait, 
new table size, 


1989-08-21 


status); 
status); 


(new_sdt_p)); 


IN osv$job_fixed heaps; 


(new _sdtx_p)); 


new segment table, update segment table 


status); 


Astatus); 


1A2 7257 { address and segment table length in task’s exchange package. 
1A2 7258 

1A2 7259 request block.request_ code := syc$rc_change_segment_table; 
1A2 7260 request _block.new_sdt_offset := #OFFSET (new_sdt_p); 

1A2 7261 request _block.new_sdtx_offset :: #0OFFSET (mew _sdtx_p) ; 

142 7262 request _biock.new _sdt_length := new_sdt_length,; 

1A2 7263 i#call_monitor (#LOC (request_block), #SIZE (request_block)); 
1EO0 7264 syp$set_status_from_mtr_status (request _block.status, 

220 7265 IF NOT status.normal THEN 

228 7266 osp$system_error (’Error in change segment table monitor request.’, 
24C 7267 RETURN ; 

24E 7268 IFEND ; 

24E 72698 


24E 7270 { Free the old SDT and SDTX tables. 


24E 7271 €{ NOTE: Job monitor’s SDT and SDTX are not allocated, 
24E 7272 { have been expanded once. 

24E 7273 

24E 7274 IF (old_sdt_length * 8) > osv$page_size THEN 


mmp$free_pages (#ADDRESS (1, 


osc$segnum_job_fixed_heap, 


hence they can not be freed unless they 


old_sdtx_offset), 


290 7276 {old _sdt_length * #SIZE (mmt$segment_descriptor _extended)), osc$wait, status); 
230 T7277 IFEND; 
290 7278 IF old_sdt_offset >= #WOFFSET (osv$job_fixed_heap) THEN 
29C 47279 old_sdt_p := #ADDRESS (1, osc$segnum_job_fixed_heap, old _ sdt_offset); 
23C 7280 old _sdtx_p := #ADDRESS (1, osc$segnum_job_fixed heap, old _sdtx_offset); 
29C 8697281 FREE old_ sdt_p IN osv$job_fixed heaps”; 
204 7282 FREE old_sdtx_p IN osv$job_fixed_ heap”; 
2F6 7283 IFEND; 
2F6& 71284 
2FG6 7285 PROCEND expand segment table; 
o 7286 
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NOS/VE - MMMSSEGMENT_MANAGER_SYSTEM_CORE 
FIND AVAILABLE SEGMENT NUMBER 

o 7288 

o 7289 PROCEDURE find available segment_number 

o 7290 { xcb_p: Aest$execution_control_ block; 

o 7291 segment_res_ state: mmt$segment_ reservation state; 
o 7292 VAR segnum: ost$segment; 

o 7293 VAR status: ost$status) ; 

oO 7294 

o 7235 VAR 

oO 7296 sdt_p: mmt$max_ sdt_p, 

o 72397 sdtx_p: mmt$max_sdtx_p, 

o 7298 segment_table length: integer ; 

oO 7239 

c°) 7300 

oO 7301 { Find an availabie segment number. 

oO 7302 

o 7303 status.normal := TRUE; 

4 17304 segnum := mmv$first_transient seg _index - 1; 

4 7305 segment_table_ length := xcb_ p4A.xp.segment table length; 
4 7306 mmp$get_max_sdt_sdtx_pointer (xcb_p, sdt_p, sdtx_p); 

4 17307 

4 7308 REPEAT 

54 7309 segnum := segnum + 1; 

54 7310 IF segnum > segment_table_length THEN 

62 7311 expand _segment_table (xcb_p, status); 
76 7312 IF NOT status.normal THEN 

7E 7313 RETURN; 

890 7314 IFEND; 

80 7315 segment_table_length := xcb_pA.xp.segment_table_ length; 
8E 7316 IFEND; 

8E 7317 UNTIL (Sdt_pA.st [segnum].ste.vi = osc$vil_invalid_entry) AND 
cO 7318 (sdtx_pA.sdtx_table [segnum].segment_reservation_ state = 
CO 73198 

CO 7320 PROCEND find_available segment_number ; 


oO 7321 
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STORE STE_IN_SEGMENT_ TABLE 
o& 7323 
Oo 7324 PROCEDURE store _ste_in_segment_table 
oO 7325 ( xsdt_entry: mmtS$segment_ descriptor ; 
oO 7326 sfid: gft$system_file_identifier ; 
o 7327 ste_p: Ammt$segment_descriptor ; 
oO 7328 fde_entry_p: gft$locked file desc _entry_p; 
o 73293 segnum: ost$segment ); 
© 7330 
© 7331 { This routine is tricky So make sure you understand it before changing iti!!! bibrigi 
o 7332 { This routine steres a STE entry into the segment table. If the ASID in the new ste 
0 7333 { entry is zero then the procedure is straightforward. 
© 7334 { If, hnowever, the STE already has an ASID then things get more complicated since monitor may be 
0 7335 { changing the ASID asynchronously white this routine is running. 
0 7336 { . NEVER let a STE entry get into the segment table if the ASID/ASTI dont match 
©° 7337 { after putting an entry in with a non-zero ASIDB, check the AST to see if the AST.SFID 
° 7338 { agrees with the SDTX.SFIDB. IF they agree al? iS well. Otherwise, clear the ASID/ASTI to zero; 
° 7339 { the assumption is that Memory Manager changed the ASID. The correct ASID will be fetched 
o 7340 { on the first page fault. (this should not happen very much.) 
.°) 7341 
° 7342 VAR 
° 7343 aste_p: Ammt$active_segment_table_entry, 
c) 7344 asid: ost$asid, 
oO 7345 asti: mmt$ast_index, 
oO 7346 rb: mmt$rb_ringi_segment_request, 
o 7347 sdt_entry: mmt$segment_descriptor ; 
} 7348 
oO 7349 sdt entry :: xsdt_entry,; 
4 7350 asti :+: fde_ entry _ p’.asti; ; 
4 7351 IF (asti = ©) OR (Sdt_entry.ste.asid = OFFFF(16)) OR (mmvSast_p = NIL) THEN 
2c 7352 ste _ pA := sdt_entry; 
32 7353 ELSE 
32 7354 sdt_entry.asti := asti; 
32 7355 mmpSasid (asti, asid); 
32 7356 sdt_entry.ste.asid := asid; 
32 7357 ste_pA = sdt_entry; 
32 7358 aste_p := Ammv$ast_p4 [sdt_entry.astil]; 
32 7359 
32 7360 IF (aste_pA.in_use) AND (aste_pA.sfid = sfid) AND 
172 7361 (((sfid.residence = gfc$tr_job) AND (aste_pA.ijl_ordinal = jmv$jcb.ijl_ordinal)) OR 
172 7362 ((sfid.residence = gfc$tr_system) AND 
172 7363 (((aste_pA.queue_id = mmc$pq_job_working set) AND [(aste_pr.ijl_ordinal = jmv$jcb.ijl_ordinal) AND 
172 7364 ((fde_entry_ p%.queve status = gfc$qs_job_working set) OR 
172 7365 ((fde_entry_pA.queue_status = gfc$qs_job_shared) AND (fde_entry_p%.attach_count = 1))))} OR 
172 7366 (((aste_pA.queue_id >= mmc$pq_ shared first) AND (aste_pA.queue_id <= mmc$pq_ shared_last)) AND 
172 7367 (aste_ p’.ijl_ordinal = jmv$system_ijl_ordinal) AND 
172 7368 ((fde_entry_pA.queue status = gfc$qs_global_shared) OR 
172 7369 ((fde_entry_p*.queue_ status = gfc$qs_job_shared) AND (fde_entry_p4.attach_count > 1)))}}})) THEN 
172 7370 
172 7371 mmv$sfid_ match := mmv$S$sfid_ match + 1; 
17E 7372 ELSE 
17E 7373 mmv$sfid mismatch := mmv$sfid_mismatch + 1; 
17E 7374 Ste pA := xsdt_entry; 
17E 7375 
17E 7376 { If the file is job shared and there is more that one user (attach) of the file, the above tests which 
17E 7377 { would have allowed the asid to be stored may have failed because pages of the file are being kept in 
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in the shared queue. 


(Or they may have failed because the 


looking at the ast.queue_ id. ) 


Issue a monitor request to straighten 


is more than one user, 


pages of job shared files must be removed 


NOS/VE - MMMSSEGMENT_MANAGER_SYSTEM_CORE 
STORE _STE_IN_SEGMENT_TABLE 
17E 7378 { the working set and should now be kept 
17E 7378 { asid changed--we can’t be sure by 
17E 7380 { out job shared files. If there 
17E 7381 { from the jws of the original 
17E 7382 { any of the pages. 
17E 7383 
17E 7384 IF (fde_entry_p4.queue_ status = 
19E 7385 rbo.reqcode := 
19E 71386 rb.request := 
19E 7387 rb.system_file_id :: sfid; 
19E 7388 rbh.segment number ;: segnum; 
19E 7389 rbo.server_ file :: FALSE; 
19E 7390 i#call_monitor (#LOC (rb), 
106 73391 IFEND; 
106 7392 IFEND ; 
1D6 7393 IFEND; 
1DE 7394 PROCEND store _ste_in_segment table; 
° 7395 


#SIZE 


gfc$qs_job_shared) AND 


syc$rc_ringi_segment_request ; 
mmc$sri_ remove job shared pages; 


(rb)); 


job and moved to the shared queue before a second user can reference 


(fde_ entry _pA.attach_ count > 1) THEN 
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Oo 7397 

co) 7398 { 

°° 7399 { The purpose of this procedure is to add the SDT and SDTX entries to the 
fe 7400 { SDT and the SDTX tables respectively. The caller can specify a segment 
° 7401 { number to use or this procedure will use the first available one. 

Oo 7402 { 

ce) 7403 { MMPS$ADD_SDT_SOTX_ENTRY (SDT_ENTRY, SDTX_ENTRY, FDE_ ENTRY, 

° 7404 { SHARED TASKID_ARRAY, SEGMENT_NUMBER, STATUS) 

fe 7405 { 

Oo 7406 { SDT_ENTRY: (input) This parameter is the SDT entry to be added to the 

° 7407 { SDT table. 

o 7408 { 

Oo 74089 { SDTX_ENTRY: (input) This parameter is the SDTX entry to be added to the 
° 7410 { SDTX table. 

° 7411 { 

Oo 7412 { FDE_ENTRY: (input) This parameter is the FDE entry for the segment being 
Oo 7413 { added. 

ce) 7414 { 

ce) 7415 { SHARED_TASKID_ARRAY: (input) This parameter specifies the list of task-ids 
o 7416 { in which this segment should be added. Currently, the only user of 
° 7417 { this capability is ADA-TASKING. Al} other callers should pass a NIL 
re) 7418 { pointer for this parameter. 

° 7a19 { 

Oo 7420 { SEGMENT_NUMBER: (input) This parameter specifies the segment number which 
° 7421 { the user passed or the system assigned for this inmstance of open. 
ce) 7422 { 

° 7423 { STATUS: {output) This parameter is where the request status 1S returned 
oO 7424 { to the caller. 

Oo 7425 { dme$unable_to_locate_fde 

o 7426 { dmeS$unable_to_get_fd_lock 

o 7427 { mme$contig mem _seg_ violation 

o 7428 { mme$invalid_length_requested 

o 7429 { mme$invalid pva 

o 7430 { mme$Sinvalid_ ring brackets 

Oo 7431 { mme$invalid_ shared _taskid 

o 7432 { mme$pages_already_assigned 

oO 7433 { mme$ref_ to _unrecovered file 

O 7434 { mme$ring violation 

Oo 7435 { mme$segment_number_is_in_use 

oO 7436 { mme$segment_number_not_in_use 

oO 7437 { mmeS$segment_number_too_big 

oO 7438 { mme$segment_origin_invalid 

Oo 7438 { mme$segment_table_is_full 

Oo 7440 { mmeSunable_ to_assign_contig_mem 

° 7441 { 

oO 7442 

° 7443 

+e) 74ag 

° 7445 

° 7446 

oO 7447 PROCEDURE add _ sdt_sdtx_entry 

oO 7448 ( sdt_entry: mmt$segment_descriptor ; 

o 7449 sdtx_entry: mmt$segment_descriptor_ extended; 

o 74506 fde_entry_ p: gft$locked_file_desc_entry_p; 

oO 7451 Shared _taskid_ array: Aarray [1 .. * ] of pmt$task_id; 
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Oo 7452 segment_number: ost$segment ) ; 

oO 7453 

ce) 7454 VAR 

° 7455 cache_bypass: boolean, 

° 7456 cell_p: Acell, 

te) 74S7 i: integer, 

Oo 7458 local _sdt: mmt$segment_descriptor, 

Oo 7459 local_sdtx: mmt$segment_descriptor_extended, 

© 7460 pva_p: Aost$pva, 

oO 7461 sdt_entry_ p: Ammt$segment_ descriptor, 

oOo 7462 sdtx_entry_p: Ammt$segment_descr iptor_extended, 
o 7463 shadow_fde_p: gft$locked file_desc_entry_p, 

o 7464 task_sdt_p: Ammt$segment_descriptor, 

o 7465 task_sdtx_p: Ammt$segment_descriptor_extended, 
oO T7466 task_xcb: Aost$execut ion control block, 

oO 7467 xcb_p: Aost$execut ion_control_ block; 

o 7468 

o 7469 local_sdt := sdt_entry; 

4 7470 Jocal_sdtx :* sdtx_entry; 

E 7471 

E 7472 pmp$find_executing task_xcb (xcb_p) ; 

14 «67473 

14 7474 { Set cache hypass if required for multiprocessing. 
14 T7475 

14 T7476 cache_bypass := FALSE; 

14 7477 IF osv$multiple cpus possible THEN 
3A 7478 IF (local_sdt.ste.xp = osc$non_executable) OR ((local_sdt.ste.xp <> osc$non_executabie) 
4Q 7479 (local_sdt.ste.wp <> osc$non_writabie)) THEN 
4A 7480 


aA 7481 { I dont think we need a clause for global_unnamed files because it appears 
4H 7482 { that they would drop out anyway. 


4A 7483 

4h 7484 IF (fde_entry_ pA.file_ kind <> gfc$fk_unnamed_ file) THEN 

S4 7485 IF (fde_ entry _ p%.queue_ status = gfc$qs_job_ working set) THEN 
SE 7486 IF (jmv$jcb.ijle_ p%.multiprocessing allowed) THEN 

6E 7487 cache_bypass :: TRUE; 

6E 7488 local_sdt.ste.vi := osc$vl_cache_bypass; 

78 7489 IFEND; 

7C¢ 7490 ELSE 

7C 7491 IF (fde_entry_p’.queue_ status = gfc$qs_global_shared) THEN 
8O 7482 cache _ bypass := TRUE; 

8O0 7483 lecal_sdt.ste.vl := osc$vl_cache_bypass; 

8A 7494 IFEND; 

8A 7495 IFEND ; 

8A 7496 IFEND; 

8A 7497 IFEND; 

8A 7498 IFEND; 

8A 7499 

8A 7500 


8A 7501 { Add sdt_entry to the task’s segment descriptor table (SDT) and the sdtx_entry to the 


8A 7502 { segment descriptor table extended (SDTX). 


8A 7503 
8A 7504 sdt_entry_p := mmp$get_sdt_entry_p (xcb_p, segment number ) ; 
8A 7505 sdtx_entry p := mmp$get_sdtx_entry_p (xcb_p, segment number ) ; 


8A 7506 local _sdtx.segment_ reservation state :* sdtx_entry pA.segment_reservation_state; 


AND 
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8A 7507 mmp$set_ segment _access_rights (local _sdt, local_sdtx); 
104 7508 
104 7509 sdtx_entry pA :2 local_sdtx; 
*WARN# 7510 store _ste_in_segment_table (loecal_sdt, local_sdtx.sfid, sdt_entry_p, fde_entry_p, segment_number ) ; 
134 7511 fde_ entry pA.open_count := fde_entry pA.open_count + 1; 
134A 7512 
13A 7513 IF local_sdtx.shadow_info.shadow_segment_kind <> mmc$ssk_none THEN 
14E 7514 gofp$get_locked fde_p (local _sdtx.shadow_info.shadow_sfid, shadow_fde_p); 
284 7515 shadow_fde_pA.open_count := shadow_fde_ p%.open_count + 1; 
284 7516 gofp$unlock_fde_p (shadow _fde_p); 
384 7517 IFEND; 
384 7518 
384 7519 {If a stack segment was just created, update the TOS pointer. 
384 7520 
384 7521 IF mmc$sa_stack IN sdtx_entry.software_ attribute set THEN 
3932 7522 cell_p := #ADDRESS (local_sdt.ste.ri, segment number, 
392 7523 (mmv$page_map_offsets [mmc$pmo_user stack] * osv$page_size) + mmc$ring crossing _ offset) ; 
392 7524 pva_p := #LOC (cell_p); 
3CA 7525 xcb_pA.xp.tos_registers [local_sdt.ste.ri].pva : = pva_p; 
3CA 7526 fde_entry p%.stack_for_ring := local sdt.ste.ri; 
3E6 7527 IFEND; 
3E6 7528 
3E6 7529 IF shared _taskid_array <> NIL THEN 
3F4 7530 
3F4 7531 { Mmc$sa_stack is removed from the software attribute set before the sdtx entry of the segment 
3F4 7532 { is propagated to ail of the other tasks. The task which opens the stack segment wil} 
3F4 7533 { the only task with mmc$sa_stack in its sdtx entry. 
3F4 7534 
3F4 7535 local_sdtx.software_attribute_set := local_sdtx.software_attribute set - 
3F4 7536 $S$mmt$software_attribute_ set [mmc$sa_stack] ; 
3F4 7537 FOR i := LOWERBOUND (shared_taskid_array’) TO UPPERBOUND (Shared_taskid_array4) DO. 
4190 7538 pmp$find_task_xcb (shared _taskid_array’ [i], task_xcb); 
436 7539 IF task_xcb <> xcb_p THEN 
446 7540 task_sdt_p := mmp$get_sdt_entry_p (task _xcb, segment _number ) ; 
446 7541 task_sdtx_p := mmp$get_sdtx_entry p (task_xcb, segment_number ) ; 
446 7542 task_sdtx pA := local _sdtx; 
4A2 7543 '  mmp$set_segment_access_ rights (local_sdt, task_sdtx_p); 
*#WARN* 7844 store ste _in_segment_tabie (local_sdt, local _sdtx.sfid, task_sdt_p, fde_entry_p, segment _number ) ; 
§08 7545 fde_ entry p4.open_ count :5 fde entry p%.open_count + 1; 
514 7546 IFEND; 
51A 7547 FOREND ; 
520 7548 IFEND; 
520 7549 
520 7550 IF (osv$cpus_logically_on > 1) AND (NOT cache bypass) THEN 
530 7551 cell_p := #ADDRESS (1, segment number, 0); 
530 7552 #PURGE BUFFER (osc$pva_purge segment_cache, cell_p); 
548 7553 IFEND; 
548 7554 
548 7555 PROCEND add_sdt_sdtx_entry; 
o 7556 
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o 7558 { 

o 7559 { Purpose: 

te) 7560 { This procedure assigns disk Space for all pages currently assigned to a segment/file. 
© 7561 { If necessary, it converts a transient file into a disk file. 

o 7562 { 

° 7563 { segment _nmumber: If mon zero, this specifies the segment number 

° 7564 { sfid: If segment number is zero, this is the SFID of the file 

° 7565 { min _allocation_length: Normally zero. If zero disk space is assigned to all 
ce) 7566 { pages that exist in the file. If non-zero, contiguous disk space is assign for 
o 7567 { offset zero thru this offset. NOTE if 

o 7568 { 

o 7569 { 

Oo $%7570 

o 7571 

o 067572 PROCEDURE [XDCL, #GATE] mmp$assign_mass_storage 

o 7573 { segment_number: ost$segment ; 

o 7574 xsfid: gft$system_file_identifier ; 

Oo 7575 min _allocation_length: ost$segment_length; 

o «67576 VAR status: ost$status); 

o 7577 

Oo 7578 VAR 

o 7579 assign_active: amt$file_byte_address, 

o 7580 fde_p: gft$locked_ file _desc_entry_p, 

o 7581 file _ attributes p: Aarray [1 .. * ] of dmt$file_attribute, 

o %75882 file limits: sft$file space _limit_ kind, 

o +7583 length_to_allocate: ost$segment_ length, 

Oo 7584 max pages no _ file: integer, 

o 7585 page streaming ts shift: © .. 15, 

o +7586 sdt_entry _p: Ammt$segment_descriptor, 

o 7587 sdtx_entry_p: Ammt$segment_descriptor_extended, 

o 7588 sfid: gft$system_file_identifier, 

o 7589 xcb_p: Aost$execution_control block; 

o 7590 

o 7591 

o 7592 status.normal := TRUE; 

A 17893 

A 7594 pmp$find_executing task _xch (xcb_p); 

1A 7595 IF segment _mumber <> O THEN 

36 7596 sdtx_ entry _p := mmp$get_sdtx_entry_p (xcb_p, segment_number ) ; 
36 7597 File Timits :: sdtx_entry pA.file_ limits _ enforced; 

36 75398 assign_active := sdtx_entry pA.assign_active; 

36 75939 Ssfid := sdtx_entry pA.sfid; 

36 7600 IF (mmc$sa_wired IN sdtx_ entry pA.software attribute set) OR 
7C 7601 (mmc$sa_fixed IN sdtx_entry_p4.software attribute _set) THEN 
7C 7602 osp$set_ status abnormal (‘MM’, mme$segment_not_pageable, ’’, status); 
AE 7603 RETURN; 

BO 7604 IFEND ; 

B4 7605 ELSE 

B4 7606 file _ limits := sfc$no_limit; 

B4 7607 assign active := mmc$assign_act ive_escaped; 

B4 7608 Sfid :: xsfid; 

c& 76069 IFEND; 

C8 7610 

cs 7611 


c8 7612 gfp$get_locked_fde_p (sfid, fde_p); 
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1F2 7614 IF NOT dmv$idle_ system THEN 

1FE 7615 IF fde_ pA.media = gfcS$fm_transient_segment THEN 

20H 7616 PUSH file_attributes_p: [1 .. 1]; 

224 7617 file attributes p4% [1].keyword := dmc$class; 

224 7618 IF jmv$executing within_system_job THEN 

234 7619 file_attributes_p* [1].class := rmc$msc_system_critical_ files; 
246 7620 ELSE 

246 7621 file attributes pA [1].class := rmc$msc_user_temporary_files; 
24E 7622 IFEND; 

24E 7623 dmp$create_ disk _ file (fde_p, file_attributes p, ©, sfid, status); 
27C 7624 IF (assign_active <> mmc$assign_active_escaped) AND 

292 7625 NOT (sdtx_entry_p’.stream.transfer_size_ specified) THEN 

292 7626 mmp$convert_ps_ transfer _size (fde_p”.transfer_unit_size, page_streaming ts_ shift); 
2D2 7627 sdtx_entry_pA.stream.transfer size := page _ streaming ts_shift,; 
2E2 7628 IFEND; 

2E2 7629 IFEND; 

2E2 7630 

2E2 7631 IF status.normal THEN 

2EE 7632 length_to_allocate := fde_pA.eoi_bpyte_address,; 

2EE 7633 IF (min_allocation_length > ©) OR (length_to_allocate < mmv$sparse_ threshold) OR 
314 7634 (fde_pA.media = gfc$fm_served_file) THEN 

314 7635 IF length _to_allocate < min_allocation_length THEN 

31C T7636 length_to_allocate := min_allocation_length; 

320 7637 IFEND; 

320 7638 dmp$allocate file space_ri1 (sfid, 0, length_to_allocate, 0, osc$nowait, file _ limits, 
34E 7639 ELSE 

34E 7640 dmp$sparse_allocate (sfid, assign_active, file_limits, status); 
36C 7641 IFEND ; 

36C 7642 IFEND; 

36C 7643 IFEND; 

36C 7644 

36C 7645 gfp$unlock_fde_p (fde_p); 


460 7646 


460 7647 { If everything worked OK, clear the assign active flag in the SDTX or XCB since there cannot 


460 7648 { be any more escaped allocation or allocation required. 
460 76483 


460 7650 IF status.normal THEN 

46C 7651 IF segment_number <> © THEN 

474 7652 sdtx_entry_ pA.assign_active := mmc$assign_active_null; 
47E 7653 ELSE 

47E 7654 ° xcb_ pA.assign_active_ sfid := gfv$null_sfid; 

48E 7655 IFEND; 

48E 7656 IFEND 


48E 71657 
48E 7658 PROCEND mmp$assign_mass_storage; 
te] 7659 
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oO 7661 

Oo 7662 PROCEDURE [XDCL, #GATE] mmp$bui 1d_segment 

oO 7663 ( attrib: mmt$segment_attrib_descriptor ; 

© 7664 Shared _ taskid_ array: Aarray [1 .. * ] of pmt$task_id; 

o 7665 VAR segment_pointer: mmt$segment_pointer ; 

Oo 7666 VAR status: ost$status) ; 

© 7667 

° 7668 VAR 

ce 7669 1: integer, 

oO 7670 fde_entry p: gft$file_desc_entry_p, 

12) 7671 File mash: O .. 255, 

oO 7672 locked fde_entry_p: gft$locked_ file desc_entry_p, 

oO 7673 page _ streaming ts_shift: O .. 15, 

oO 7674 page _ streaming transfer_size: integer, 

oO 7675 sdt_entry: mmt$segment_descriptor, 

3 7676 sdtx_entry: mmt$segment_descriptor_extended, 

o 7677 sdt_entry_p: Ammt$segment_descriptor, 

o 7678 sdtx_entry_p: Ammt$segment_descriptor_extended, 

o 7679 segment length: ost$segment_length, 

o 7680 segment number: ost$segment, 

o 7681 segment_res_ state: mmt$segment_reservation_state, 

oO 7682 Sfid: gft$system_file_identifier, 

Oo 7683 Shadow_fde_p: gft$file_desc_entry_p, 

oO 7684 shadow_sdt_p: Ammt$segment_ descriptor, 

oO 7685 Shadow_sdtx_ p: Ammt$segment_descriptor_ extended, 

o 7686 task_xcb: Aost$execution_control block, 

o 7687 xcb_p: Aost$execut ion_control_ block; 

Oo 7688 

o 7688 status.mormal := TRUE; 

4 7690 sdt_entry : = mmv$default_sdt_entry; 

4 7691 sdtx_entry := mmv$default_sdtx entry; 

20 76392 sdt_entry.ste.ri := attrib.validating ring number ; 

20 7683 sdt_entry.ste.r2 :: attrib.validating ring number ; 

20 7694 sdtx_entry.open validating ring number :=: attrib.validating ring number ; 
20 7695 sdtx_entry.file limits enforced :+= attrib.file_limits_ to_enforce; 
20 7696 segment number := 0; 

20 7697 IF shared _taskid_ array «> NIL THEN 

54 7698 FOR i := LOWERBOUND (Shared _taskid_array’) TO UPPERBOUND (Shared _taskid_array’) DO 
62 7699 pmp$find task_xcb (shared _taskid_array” [i], task_xcb); 

88 7700 IF task_xcb = NIL THEN 

$2 7701 esp$set_ status abnormal (‘MM’, mme$invalid_shared_taskid, ‘’‘, status); 
C2 71702 RETURN; 

c4 T7103 IFEND; 

c4 7704 FOREND ; 

CA 7705 IFEND; 

CA 7706 IF attrib.sfid = gfv$null_sfid THEN 

DE 1707 gfpS$assign_fde (gfc$tr_job, segment_number, sfid, fde_entry_p); 
108 7708 IF fde_entry_p = NIL THEN 
112 7708 osp$set_status_abnormal (’MM’, mme$Sunable_to_assign_fde, ‘’’, status); 
142 ‘7710 RETURN; 
144 #7711 IFEND; 
144 7712 gfp$get_locked fde_p (sfid, locked _ fde_ entry _p); 
274 7713 locked fde_ entry pA.queue status :* gfc$qs_job_working set; 
274 7714 locked fde_ entry pA.file_kind := gfc$fk_unnamed_file; 


286 7715 ELSE 


13:33:34 


status); 


13:33:34 


PAGE 858 


PAGE 859 


SOURCE LIST OF mmm$segment_manager_ system_core NOS/VE CYBIL/II 1.0 88102 1989-08-21 13:33:34 PAGE 8&60 


NOS/VE - MMMSSEGMENT_MANAGER_SYSTEM_CORE 
MMPSBUILD SEGMENT 


286 7716 Sfid := attrib.sfid; 
286 7717 gfp$get_locked fde_p (Sfid, locked fde_entry_p); 
3B8 7718 IF locked fde_ entry p = NIL THEN 
3C2 7719 esp$set status abnormal (’MM’, mme$invalid_sfid, ‘’, status); 
3FE 7720 RETURN; 
3F8 7721 IFEND; 
3FA 7722 IFEND; 
3FA 7723 
3FA 7724 sdtx_entry.sfid : = sfid; 
3FA 7725 
3FA 7726 /user_attributes/ 
3FA 7727 BEGIN 
3FA 7728 IF attrib.user_ attributes <> NIL THEN 
410 7729 FOR i := LOWERBOUND (attrib.user_ attributes‘) TO UPPERBOUND (attrib.user_attributes4‘) 00 
42h T7730 CASE attrib.user_attributes’ [i].keyword OF 
4BE 7731 = mmce$kw_null_keyword = 
4C2 7732 = mmc$kw ring numbers = 
4C2 17733 IF (attrib.user_attributes4 [i].r1 > attrib.user_attributes” [i].r2) OR 
402 7734 (attrib.user_attributes4 [i].r2 = 0) THEN 
402 7735 osp$set_status_abnormal (‘’MM’, mme$invalid_ ring brackets, ’’, status); 
506 7736 EXIT /user_attributes/; 
50A 7737 IFEND; 
5S0A 7738 sdt_entry.ste.r1t : = attrib.user_attributes’ [i] .r1; 
504 7739 sdt_entry.ste.r2 : = attrib.user_attributes” [i] .r2; 
516 7740 = mmc$kw_ segment number = 
516 7741 segment number :: attrib.user_attributes’ [i].segnum; 
522 7742 = mmc$kw_ hardware _attributes =: 
$22 7743 IF mmc$ha_read IN attrib.user_attributesA [i].hardware_attri_set THEN 
540 7744 sdt_entry.ste.rp :* osc$read_uncontroliled; 
548 7745 ELSE 
548 $7746 sdt_entry.ste.rp := osc$non_readablie; 
54C 7747 IFEND; 
54C 7748 IF mmc$ha_binding IN attrib.user_attributes* [i].hardware_attri_set THEN 
S64 7749 IF attrib.validating ring number <= 3 THEN 
574 7750 sdt_entry.ste.rp := osc$binding segment ; 
$7C 7751 ELSE 
S57C 7752 osp$set_status_ abnormal (’MM’, mme$binding_ attribute invalid, °’, status); 
SBO 7753 EXIT /user_attributes/; 
5B4 7754 IFEND; 
5B4 7755 IFEND; 
5B4 7756 IF mmc$ha_write IN attrib.user_attributess [i].hardware_attri_set THEN 
S502 7757 sdt_entry.ste.wp :* osc$write_ uncontrolied; 
SDA 17758 ELSE 
SDA 7759 sdt_entry.ste.wp := osc$non_writable; 
SDE 7760 IFEND; 
SDE 7761 IF mmc$ha_cache_bypass IN attrib.user_attributes4 [i].hardware_ attri _set THEN 
SFC 7762 sdt_entry.ste.vl :: osc$vl_cache bypass; 
606 7763 ELSE 
6O56 7764 sdt_entry.ste.vl := osc$vil_regular segment ; 
6OA 7765 IFENDO; 
60A 7766 IF mmc$ha_execute IN attrib.user_attributes’ [i].hardware_attri_set THEN 
628 7767 sdt_entry.ste.xp :: osc$non_privileged; 
630 7768 ELSE 
630 7769 IF mmc$ha_execute_ local IN attrib.user_attributesA [i].nhardware_attri_set THEN 
638 7770 sdt_entry.ste.xp :5 osc$local_ privitege; 
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640 T7771 ELSE 

640 7772 IF (mmc$ha_execute_ global IN attrib.user_ attributes” [i] .nardware_attri_set)} AND 
650 7773 (attrib.validating ring mumber > 1) THEN 

650 7774 osp$set_status_ abnormal (’MM’, mme$execute_global_invalid, ‘’, status); 

684 7775 EXIT /user_attributes/; 

S88C 7776 ELSE 

68&C T7717 ; sdt_entry.ste.xp := osc$non_executablie; 

690 7778 IFEND; 

690 7779 IFEND; 

690 7780 IFEND; 

694 7781 = mmc$kw_software attributes = 

694 7782 IF attrib.validating ring number <= 3 THEN 

6SE 7783 sdtx_entry.software attribute set := attrib.user_attributesA [i].software_attri_set; 
6BC 7784 ELSEIF ((attrib.validating_ ring mumber <= 6) AND (($mmt$software_attribute set [mmc$sa_stack] * 
7OA 7785 attrib.user_ attributes’ [i].software_attri_set) <> Smmt$software_ attribute _ set [])})} OR 
7OA 7786 (Cattrib.validating_ring_ number > 6) AND ((S$mmt$software_attribute_ set 

7OA 7787 [mmc$sa_wired, mmc$sa_fixed, mmc$sa_stack] * attrib.user_attributesA [i]. 

7OA 7788 software _attri_set) <> Smmt$software attribute set [])) THEN 

7OA 7789 osp$set_status_ abnormal (‘MM’‘, mme$software attribute _invalid, ‘’’, status); 

73E 7790 EXIT /user_attributes/; 

746 7791 ELSE 

746 7782 sdtx_entry.software_attribute_set :: attrib.user_attributes4 [i].software_attri_set; 
760 7793 IFEND; 

764 7794 = mmc$kw_error exit procedure = 

764 7795 esp$set_ status _ abnormal (’MM’, mmeSunsupported keyword, ‘’, status); 

798 T7796 EXIT /user_attributes/; 

7A0 7797 = mmc$kw_max_segment_length = 

TAO 7798 locked _fde_entry pA. file Timit :: attrib.user_attributesA [i].max_length; 

7B0 7799 = mmc$kw_gi_key = 

7BO 7800 sdt_entry.ste.key_ lock := attrib.user_ attributes’ [i].g1_key; 

7CE 7801 = mmc$kw_clear_ space = 

702 7802 = mmc$kw_preset_value = 

7D2 7803 locked fde_entry _pA.preset_value := attrib.user_attributes’ [i].preset_ value; 

7F4 7804 = mmc$kw_segment_access control = 

7F4 7805 IF attrib.user_attributess [i].access_control.cache bypass = TRUE THEN 

80E 7806 sdt_entry.ste.vl :2 osc$vl_cache_bypass; 

818 7807 ELSE 

818 7808 sdt_entry.ste.vl :* osc$vil_regular_ segment ; 

81C 7809 IFEND; 

81C 7810 

81C 7811 IF (attrib.user_ attributes [i].access control.execute privilege = osc$global_privilege) AND 
840 7812 (attrib.validating ring mumber > 1) THEN 

840 7813 osp$set_ status abnormal (’MM’, mme$execute _global_invalid, ‘’, status); 

874 7814 EXIT /user_attributes/; 

87C 7815 ELSE 

87C 7816 sdt_entry.ste.xp := attrib.user_ attributes’ [i].access_control.execute privilege; 
836 7817 IFEND; 

8396 7818 , 

896 78198 IF (attrib.user_attributes’ [i].access_control.read_privilege = osc$binding segment) AND 
&BA 7820 (attrib.validating ring nmumber > 3) THEN 

8BA 7821 osp$set_status_abnormal (‘MM’, mme$binding_ attribute invalid, ‘’, status); 

8EE 7822 EXIT /user_attributes/; 

8F2 7823 IFEND; 


8F2 7824 sdt_entry.ste.rp :* attrib.user_ attributes’ [i].access control.read_privi lege; 
8F2 7825 sdt_entry.ste.wp :+= attrib.user_attributesA [il.access control.write privilege; 
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918 7826 => mmc$kw_asid = 
$18 7827 IF attrib.validating ring nmumber <> 1 THEN 
$20 7828 osp$set_status_abnormal (’MM’, mme$asid_ specified, ‘’, status); 
954 7829 EXIT /user_attributes/; 
958 7830 IFEND ; 
$58 7831 
958 7832 IF (attrib.user_attributes” [i].asid = osc$asid_ei) OR 
$8A 7833 (attrib.user_attributes’ [i].asid = osc$asid_eie) OR 
S8H 7834 (attrib.user_attributes” [i].asid = osc$asid_nos) THEN 
98A 7835 sdt_entry.ste.asid := attrib.user_attributesA [i] .asid; 
SA8 7836 ELSE 
S$A8 7837 osp$set_status_ abnormal (’MM’, mme$invalid_asid_specified, ‘’’, status); 
$08 7838 EXIT /user_attributes/; 
soc 7839 IFEND; 
9EO 7840 > mmc$kw_wired segment = 
9EO 7841 sdtx_entry.software attribute set :: sdtx_entry.software attribute set + 
9EO 7842 $mmt$software attribute set [mmc$sa_ wired] ; 
SEO 7843 locked fde_entry pA.file_ limit : = attrib.user_attributess [i].wired_ segment_length; 
A10 7844 = mmc$kw_inheritance = 
A100 7845 sdtx_entry.inheritance := attrib.user_attributes’ [i].inheritance; 
A2E 7846 = mmc$kw_ shadow segment = 
A2E 7847 IF ((attrib.user_attributes4 [i].shadow_length MOD mmc$shadow_allocation_size) <> 0) THEN 
A4C 7848 osp$set_status_abnormal (‘MM’, mme$length_not_O mod_16384, ’’, status); 
A&8O 7849 EXIT /user_attributes/; 
A&84 7850 IFEND; 
A&84 7851 IF ((#OFFSET (attrib.user_attributes’ [i].shadow_p) MOD mmc$shadow_allocation_size) <> ©) THEN 
AAO 7852 osp$set_status_ abnormal (‘MM’, mmeS$address_mnot_O _mod_16384, ‘’, status); 
AD4 7853 EXIT /user_attributes/; 
ADS 7854 IFEND; 
AD& 7855 sdtx_entry.shadow_info.shadow_length_page_count :>: 
AD&S 7856 attrib.user_attributes’ [i].snadow_length DIV osv$page_ size; 
AD& 17857 sdtx_entry.shadow_info.shadow_start_page_ number :: #OFFSET (attrib.user_attributes” [i]. 
ADS 17858 shadow _p) DIV osv$page_size; 
AD& 7859 mmp$validate_ segment_number (#SEGMENT (attrib.user_attributes4 [i].shadow_p), 
BiA 7860 shadow_sdt_p, shadow_sdtx_p, status); 
BIA 7861 IF NOT status.normal THEN 
B22 7862 EXIT /user_attributes/; 
B26 7863 IFEND; 
. B26 7864 IF shadow sdtx_p4.shadow_info.shadow_segment_kind <> mmc$ssk_none THEN 
B32 7865 osp$set_status_ abnormal (’MM’, mme$invalid shadow _segment, ‘’, status); 
BS2 7866 EXIT /user_attributes/; 
B66 7867 IFEND ; 
B6& 7868 sdtx_entry.shadow_info.shadow_segment_kind := mmc$ssk_segment_number ; 
B66 7869 sdtx_entry.shadow_info.shadow_segment_number := #SEGMENT (attrib.user_attributesA [i].shadow_p); 
BEG 7870 sdtx_entry.shadow_info.shadow_sfid :: shadow _sdtx_pA.sfid; 
BEG 7871 shadow _sdtx_pA.shadow_info.passive for snhadow_by segnum := TRUE; 
BSC 7872 > mmc$kw_ps_ transfer size = 
BSC 7873 page _ streaming _ transfer size := attrib.user_attributes’ [i].ps_transfer_ size; 
BS9C 7874 IF page_streaming transfer _ size >» max_specified_transfer_size THEN 
BBA 7875 page_streaming transfer_ size := max_specified_ transfer_ size; 
BBE 7876 IFEND; 
BBE T7877 mmp$convert_ps_transfer_size (page_streaming transfer size, page streaming ts_ shift); 
BF&S 7878 sdtx_entry.stream.transfer size := page _ streaming ts_shift; 
BFé& 7879 sdtx_entry.stream.transfer_ size specified := TRUE; 
ci2 7880 ELSE 
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C12 7881 EXIT /user_attributes/; 
C16 7882 CASEND; 
Cig 7883 FOREND; 
CiE 7884 IFEND; 
CiE 7885 
C1E 7886 { Find an available segment number if the caller did not supply one. 
CiE 7887 
Ci1E 7888 pmp$find_executing task_xcbh (xcb_p); 
C24 78898 
C24 78980 IF segment number = 0 THEN 
C40 7891 IF shared_taskid_ array = NIL THEN 
C4E 7892 segment_res_ state := mmc$srs_not_reserved; 
C54 7893 ELSE 
c54 7894 segment _res_ state := mmc$srs_ reserved shared_stack; 
CcS& 7895 IFEND; 
CS6 7896 find_available_segment_number (xcb_p, segment _res_ state, segment number, status); 
C78 7897 ELSE 
C78 7898 mmp$validate_segment_number (segment_number, sdt_entry_p, sdtx_entry_p, status); 
CAO 7899 IF NOT status.normal AND (status.condition = mme$segment_number_not_in_use) THEN 
CB& 73900 status.normal := TRUE; 
CBS 7901 WHILE (segment_number > xcb_pA.xp.segment_tabie_length) DO 
CDO 7902 caace ia expand_segment_table (xcb_p, status); 
CE2 7803 ii IF NOT status.normal THEN 
CEA 7904 EXIT /user_attributes/; 
CF&4 7905 IFEND; 
CF4 7906 WHILEND; 
D16 7907 ELSEIF status.normal THEN 
DIE 7908 osp$set_status_abnormal (’MM’, mme$segment_number_is_in_use, ‘’, status); 
D4E 7909 IFEND ; 
D506 7810 IFEND; 
DSO 7911 END /user_attributes/; 
DS2 7912 
DS52 7913 IF NOT status.normal THEN 
DSE 7914 gfpS$unlock_fde_p (locked _fde_ entry _p)j; 
E54 7915 IF attrib.sfid = gfv$null_sfid THEN 
E68 7916 gfp$free_fde (fde_entry_p); 
E7C 7917 IFEND; 
E7C 7918 RETURN; 
EVE 7919 IFEND ; 
EVE 73820 
EVE 7921 locked fde_entry p%. last_segment_ number := segment number ; 
EVE 7922 locked _ fde_entry_pA.giobal_task_id := xcb_p4.global_task_id; 
EVE 7823 
ETE 7924 IF (mmc$sa_read_transfer_ unit IN sdtx_entry.software_ attribute set) THEN 
EA2 7925 sdtx_entry.stream.sequential accesses : = mmv$page_ streaming _prestream; 
EAE 7926 IFEND ; 
EAE 7927 
EAE 7928 IF NOT sdtx_entry.stream.transfer_ size specified THEN ( 
EB& 7929 mmp$convert_ps_transfer size (locked _fde_entry pA.transfer_unit_size, page_streaming_ ts_shift); 
EF& 7930 IF mmv$page_ streaming transfer > © THEN {override transfer size with mmv$page_ streaming transfer 
FO4& 7931 mmp$convert ps transfer size (mmv$page_ streaming transfer, page _streaming ts _ shift); 
F3A 7932 IFEND; 
F3A 7933 sdtx_entry.stream.transfer size := page _ streaming ts shift; 
F&4Q 7934 IFEND; 
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F4A 7836 add_sdt_sdtx_entry (sdt_entry, sdtx_entry, locked fde_entry_p, shared_taskid_array, segment_number ); 
FEA 7937 
FEA 78338 IF locked fde_entry pA.file_ limit < osc$maximum_offset THEN 
F7A 7939 segment_length :: locked_fde_entry_pA.file_limit; 
F7E 798490 ELSE 
FVJE 7941 segment length := osc$maximum_offset ; 
F&84 7942 IFEND; 
F84 7943 
F884 7944 CASE attrib.pointer_kind OF 
F98 7945 = mmcec$sequence_pointer = 
F938 7946 i#build_adaptable seq _ pointer (sdt_entry.ste.r1, segment_number, © {offset} , segment_length, Oo, 
FOO 7947 segment_pointer.seq pointer) ; 
FDO 7948 = mmc$heap_pointer = 
FDO 79498 i#build_adaptable_ heap_pointer (sdt_entry.ste.r1, segment number, © {offset} , segment_length, 
1004 7950 segment pointer .heap_pointer); 
1004 7951 ELSE 
1004 7952 segment_pointer.celil_pointer :=: #ADDRESS [(sdt_entry.ste.r1, segment_number, oO {offset} ); 
1022 7983 CASEND; 
1022 7954 
1022 7955 gfp$unitock_fde_p (locked _fde_ entry p); 
1116 7356 
1116 7957 PROCEND mmp$build_ segment ; 
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o 79359 

© 7960 PROCEDURE [XDCL, #GATE] mmp$change_seg_inheritance_ri 

o 7961 ( segment number: ost$segment ; 

o 7962 validating_ring: ost$valid_ring; 

ce) 7963 segment_inheritance: mmt$segment inheritance; 

o 7964 VAR status: ost$status) ; 

© 7965 

o 7966 VAR 

o 7967 sdt_entry_p: Ammt$segment_ descriptor, 

o 7968 sdtx_entry_p: Ammt$segment_descriptor_extended; 

© 7969 

o 7970 mmp$validate segment number (segment_number, sdt_entry_p, sdtx_entry_p, status); 
30 79871 IF NOT status.normal THEN 

38 7372 RETURN; 

3A 7373 IFEND; 

3A 7974 

3A 7975 IF (validating ring > sdt_entry_pA.ste.r2) THEN 

4E 7976 osp$set_status_abnormal (’MM’, mme$ring violation, ‘’, status); 
80 7977 RETURN; 

82 7978 IFEND; 

82 7879 

82 7980 IF (segment _inheritance = mmc$si_transfer_segment) AND (sdtx_entry p%.inheritance = 
$8 7981 sdtx_entry pA.inheritance := mmc$si_transfer_segment ; 

9E 7982 ELSEIF (segment_inheritance = mmc$si_share_segment) AND (sdtx_entry_pA.inheritance = 
B4 7983 sdtx_entry_ pA.inheritance := mmc$si_share_segment ; 

BA 7984 ELSE 

BA 7985 osp$set_status_abnormal (‘MM’, mme$illegal_segment_origin_chg, ‘’, status); 

EC 79386 IFEND; 

EC 79387 


Ec 7988 PROCEND mmp$change_seg_ inheritance rt; 


mmc$si_nmone) THEN 


mmc$si_nmone) THEN 
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o 7991 
o 67992 PROCEDURE [XDCL, #GATE] mmp$change_segment number rt 
o 7993 ( old _ segment_number: ost$segment ; 
o 7994 new_segment_number: ost$segment ; 
o 7995 validating _ring number: ost$valid_ring; 
o 7996 VAR status: ost$status) ; 
o 7997 
o 7998 VAR 
o 7399 fde_entry_p: gft$locked file desc _entry_p, 
o 8000 new_sdt_entry: mmt$segment_ descriptor, 
o 8001 new_sdtx_entry: mmt$segment_descriptor_extended, 
oO 8002 cold _sdt_p: Ammt$segment_descriptor, 
° 8003 old _sdtx_p: Ammt$segment_ descriptor extended; 
oO 8004 
oO 8005 mmp$fetch_sdt_sdtx_locked_fde (old _ segment_number, old_sdt_p, old _ sdtx_p, fde_entry p, 
38 8006 IF NOT status.normal THEN 
40 8007 RETURN; 
42 8008 IFEND; 
42 8008 sige 
42 8010 IF (validating ring number > old_sdtx_p’.op Nvalidating ring number ) THEN 
52 8011 osp$set_status abnormal (’MM’, mme$ring violation, ’’, status) ; 
84 8012 RETURN ; 
86 8013 IFEND; 
&6& 8014 
86 8015 new _sdt_entry := old _ sdt_p%; 
86 8016 new _sdtx_ entry := old sdtx p44; 
gc 8017 
sc 8018 add_sdt_sdtx_entry (new_sdt_entry, new_sdtx_entry, fde_entry_p, NIL, new segment number ) ; 
c4 8018 
C4 8020 mmp$invalidate_segment (old_segment_nupiber, 1, NIL {shared _taskid} , status); 
EE 8021 
EE 8022 gfpSunlock_fde_p (fde_entry _p); 
1E0 8023 
1E0 8024 PROCEND mmp$change_segment_number ri; 
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Oo 8026 
© 8027 PROCEDURE [XDCL, #GATE] mmp$change_ stack_attribute ri 
© 8028 ( stack_pages_to_be_ freed: boolean; 
c°) 80238 calier_ring: ost$valid_ring; 
© 8030 VAR status: ost$status); 
© 8031 
° 8032 VAR 
o 8033 xcb_p: Aost$execution_control block; 
oO 8034 
fe) 8035 status.normal := TRUE; 
4 8036 pmp$find_executing task_xcbh (xcb_p); 
14 8037 xcb_ pA.stack_pages saved [caller_ring] := NOT (stack _pages_to_be_ freed) ; 
14 8038 
14 8039 PROCEND mmp$change_ stack _attribute_r1; 
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8041 
8042 
8043 
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8046 
8047 
8048 
8049 
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8052 
8053 
8054 
8055 
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8057 
8058 
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8068 
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8071 


PROCEDURE [XDCL] mmp$close_asid_based_segment 
( segment_number: ost$segment ; 
VAR status: ost$status); 


VAR 
pyva: Acell, 
Ssdt_entry p: Ammt$segment_descriptor, 
xcb p: Aost$execut ion_control_block ; 


status.normal :=:= TRUE; 
pmp$find_executing_task_xcb [(xcb_p); 


IF segment _ number > xcb_ p4.xp.segment_table_ length THEN 
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osp$set_ status abnormal (’MM’, mme$segment_number_ too _ big, ‘’, status); 
RETURN; 

IFEND; 

sdt_entry_p := mmp$get_sdt_entry_p (xcb_p, segment_number ); 

IF sdt_entry_p%.ste.vil = osc$vl_invalid_entry THEN 
osp$set_status abnormal (’MM’, mme$segment_number_not_in_use, ‘’, status); 
RETURN ; 

IFEND ; 


Delete the Segment table entry. 

pva :: #ADDRESS (1, segment_number, 0); 

#PURGE BUFFER (osc$pva_purge_all_page_seg_map, pva); 
sdt_entry pA.ste.vl :: osce$vil_invalid_entry; 


PROCEND mmp$cilose_asid_based_ segment ; 
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8073 
8074 
8075 
8076 
8077 
8078 
8073 
8080 
8081 
8082 
8983 
8084 
8085 
8086 
80387 
8088 
8089 
80390 
80S 1 
8092 
8033 
8094 
8095 
8036 


PROCEDURE [XDCL, #GATE] mmp$c lose device file 
{ segment_number: ost$segment ; 
VAR status: ost$status); 


VAR 
fde_entry_p: gft$locked_file_desc_entry_p, 
pva: Acell, 
sdt_entry_p: Ammt$segment_ descriptor, 
sdtx_entry_ p: AmmtS$segment_ descriptor _extended; 


status.normal :=:= TRUE; 


mmp$fetch sdt_sdtx_locked_fde ({segment_number, sdt_entry_p, 


Delete the Segment table entry. 


pva := #ADDRESS (1, segment number, 0); 

#PURGE BUFFER (osc$pva_purge_all_page_seg_ map, pva); 
sdt_entry_pA.ste.vl := osc$vl_invalid_entry; 
fde_entry pA.open_count := fde_entry_p4A.open_count - 
gfp$unilock_fde_p (fde_entry_p); 


PROCEND mmp$c lose _device_file; 


sdtx_entry_ op, 
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s 


fde_entry_p, 


status); 
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MMM$SEGMENT_MANAGER_SYSTEM_CORE 
MMP$CREATE_INHERITED_SDT 
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The purpose of this request is to create the SDT and SDTX for a 
new task. All valid segments with an SDTX.INHERITANCE of mmc$si_share_segment 


in the parent’s SDTX are inherited by the new task. For segments in the parent’s 


SDTX with an inheritance of mmc$si_new_segment, a new segment is created in the 
new task (these are primarily the task template segments). All segments in the 
parent’s SDTX with a segment reservation of mmc$srs_reserved_ shared stack 

are inherited, regardiess, of whether or not the segment is valid. 


The ASID and ASTI of inherited segments are zeroed out. These values 
may be copied into the child’s segment table during a tater phase of 
task initiation, in the procedure MMPSCREATE TASK. 


MMPSCREATE_ INHERITED_ SDT (TASK_ID, STATUS) 
TASK_ID: (input) This parameter identifies the task being created. 


STATUS: (output) The request status is returned in this parameter. 
The possible error codes are: 
mme$invalid_ task_id 
mme$sdt_or _sdtx_exists 


PROCEDURE [XDCL, #GATE] mmp$create_inherited_sdt 
{ task_id: pmt$task_id; 
VAR status: ost$status) ; 


VAR 
caller_id: ost$caller_identifier, 
child_sdt_entry_p: Ammt$segment_descriptor, 
child sdtx_entry_p: Ammt$segment_descriptor_ extended, 
child_xcb _p {new task xcb pointer} : AostS$execution_ control block, 
fde_entry_p: gft$locked file desc entry _p, 
local_sdtp: Ammt$segment_descriptor_tabie, 
local_sdtxp: Ammt$segment descriptor table ex, 
leocal_status: ost$status, 
new sdt_ length: integer, 
new_table_ size: ost$segment_ length, 
parent_sdt_p: mmt$max_sdt_p, 
parent _sdtx_p: mmt$max_sdtx_p, 
parent_xcb_p {current task xcb pointer} : Aost$execution control _biock, 
Pva: Acell, 
rma: integer, 
sdt_entry: mmt$segment_descriptor, 
sdtx_entry: mmt$segment_descriptor_extended, 
segnum: ost$segment, 
sfid: gftSsystem_file identifier, 
software_attribute set: mmt$software_ attribute set, 
sti {segment table length} : ost$segment ; 


status.nmormal := TRUE; 
pmp$find_task_xcb (task_id, child_xcb_p); 


IF child_xcb_p = NIL THEN 
osp$set_status_abnormal (‘’MM’, mme$invalid_task_id, ‘’, status); 
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8160 
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RETURN; 
IFENOD; 


pmp$find_executing task_xcb (parent _xcb_p); 


stl: parent_xcb_ pA.xp.segment _ table length; 

mmp$get_max_sdt_sdtx_pointer (parent_xcb_p, parent_sdt_p, parent _sdtx_p); 

WHILE ((parent_sdtx p4%.sdtx_table [st1].inheritance = mmc$si_none) OR 
(parent_sdt_p4.st [stl].ste.v1l = osc$vl_invalid_entry)) AND 
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(parent_sdtx_pA.sdtx_table [st1].segment_reservation_state «> mmc$srs_reserved_ shared stack) AND 


(stl > mmc$default_sdt_length) po 


std := stl - 1; 
WHILEND ; 
ALLOCATE local _sdtp: [© .. sti] IN osv$job_fixed_hneaps; 


IF ({(sti + 1) * 8&8) > oSv$page_size THEN 
new_sdt_length := ((((st1 + 1) * 8&8) + osv$page_size) DIV osv$page_size); 
new _table_ size := new_sdt_length * osv$page_size; 

IFEND; 


Allocate and initialize the SDT. 
IF ((st1l + 1) * 8) > osv$page_ size THEN 
mmp$free_ pages [local_sdtp, new_table_ size, osc$nowait, status); 
mmp$assign_contiguous memory (local_sdtp, new _table_ size, status); 
IF NOT status.nmormal THEN 
RETURN; 
IFEND; 
ELSE 
pmp$zero_out_table (#LOC (local_sdtp4), #SIZE (local_sdtpA)}); 
IFEND; 


Allocate and zero out the SDTX. 


ALLOCATE local_sdtxp: [0 .. st1] IN osv$job_ fixed heap”; 
pmp$zero_out_table (#LOC (local_sdtxp’), #SIZE (local_sdtxp)); 
i#real_memory_address [(local_sdtp, rma); 

child_xcb pA.xp.segment_table_ address _1 = rma DIV 10000(16); 
child _xcb_p4.xp.segment_ table address _ 2 := rma MOD 10000(16); 
child xcbh pA.xp.segment_ table _ length := stl; 

child _xcb_pA.sdt_offset := #OFFSET (local_sdtp); 
child xcb_p4.sdtx_offset := #OFFSET (local_sdtxp); 
Create the SDT and SDTX in the new task. 


/create_sdt_and_sdtx/ 
FOR segnum := 0 TO sti DO 
IF (parent_sdt_p4.st [segnum].ste.vl <> osc$vil_invalid_entry) AND 
((parent_sdtx_p4.sdtx_ table [segnum].inheritance <> mmc$si_none) OR 
(parent _sdtx_pA.sdtx_tablie [segnum].segment_reservation state = 
mmc$srs_ reserved shared stack)) THEN 

sdt_entry : = parent _sdt_pA.st [segnum] ; 

sdt_entry.ste.asid := 0; 

sdt_entry.asti :: 0; 
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314 820608 
348 8209 
356 8210 
356 8211 
356 8212 
356 8213 
366 8214 
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sdtx_entry : = parent sdtx_pA.sdtx_ tabie [segnum]; 
IF (sdtx_entry.shadow_info.shadow_segment_kind <> mmc$ssk_none) AN 
(sdtx_entry.shadow_info.shadow_segment_kind <> mmc$ssk_segment_ number) THEN 
sdtx_entry.shadow_info.shadow_segment_kind := mmc$ssk_none; 
sdtx_entry.shadow_info.passive_for_shadow_by segnum := FALSE; 
sdtx_entry.sfid sdtx_entry.shadow_info.shadow_sfid; 
IFEND; 


sdtx_entry.assign_active : = mmc$assign_act ive_null; 


{ New FDE entries must be created for the task template segments. 


\ 


IF sdtx_entry.inheritance = mmc$si_new_segment THEN : 
gfpSassign_fde (gfc$tr_job, © {segment_number} , sfid, fde_entry_p); 
IF fde_enmtry_p <> NIL THEN 

Sfid.file_ hash := segnum; 


fde_entry_pA.open_count := 1; 
fde_entry_pA.attach_ count := 1; 
fde_entry_pA.file_kind := gfc$fk_unnamed_ file; 
fde_entry_pA.file_ hash := segnum; 
fde_entry_pA.last_segment _nmumber := segnum; 


IF mmc$sa_stack IN sdtx_entry.software_ attribute set THEN 
fde_entry p%.stack_for_ ring := sdt_entry.ste.ri; 


IFEND; 
sdtx_entry.sfid :: sfid; 
ELSE 
osp$set_status_abnormal (’MM’, mme$unabie_to_assign_fde, ‘’, status); 
RETURN; 
IFEND; 
ELSEIF parent_sdtx_p4.sdtx_table [segnum].inheritance = mmc$si_transfer_segment THEN 
sdtx_entry.inheritance :: mmc$si_none; 


pva :=: #ADDRESS (1, segnum, 0); 
#PURGE BUFFER (osc$pva_purge_all_page seg _ map, pva); 


442 8241 parent _sdt_pA.st [segnum].ste.vl1 := osc$vl_invalid_entry,; 
4sc 8242 ELSEIF sdtx_entry.open validating ring number > i THEN 
464 8243 gofp$get_locked_fde_p (sdtx_entry.sfid, fde_entry_p); 
S8E 8244 fde_entry pA.open_count := fde_entry_pA.open_count + 1; 
S8E 8245 gfp$unlock_fde_p (fde_entry_p); 
68E 8246 sdtx_entry.software_ attribute set := sdtx_entry.software_ attribute set - 
69E 8247 Smmt$software_ attribute set [mmc$sa_stack] ; 
6S9E 8248 IFEND; 
69E 8249 child sdt_entry_p := mmp$get_sdt_entry_p (child_xcb_p, segnum) ; 
69E 8&250 child sdtx_entry_p := mmp$get_sdtx_entry p (child _xcb_p, segnum) ; 
6SE 8251 child sdt_entry pA :5= sdt_entry; 
6SE 8252 child sdtx entry pA := sdtx_entry; 
6FC 8253 
6FC 8254 ELSEIF (parent_sdtx_pA.sdtx_table [segnum] .segment_reservation_state = 
728 8255 mmc$srs_reserved shared stack) AND 
728 8256 (parent _sdt_p4A.st [segnum].ste.v1 = osc$vi_invalid_entry) THEN 
728 8257 sdtx_entry : = parent_sdtx_p%.sdtx_table [segnum]; 
734 %$s&258 sdtx_entry.segment_reservation_state := mmce$srs_reserved shared stack; 
734 8259 child sdtx_entry_p : = mmp$get_sdtx_entry_p (child_xcb_p, segnum) ; 
734 8260 child _sdtx_entry pA := sdtx_entry; 
76E 8261 IFEND ; 
76E 8262 FOREND /create_sdt_and_sdtx/; 
e 
SOURCE LIST OF mmm$segment_manager_system_core NOS/VE CYBIL/II 1.0 89102 1989-08-21 
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772 8263 
772 8264 
° 8265 


PROCEND mmp$create_inherited_sdt ; 


13:33:34 


18:33:34 


PAGE 872 


PAGE 873 


[7 


oy 
comes 


SOURCE LIST OF mmm$segment_manager_system_core NOS/VE CYBIL/II 1.0 89102 


NOS/VE - MMM$SEGMENT_MANAGER_SYSTEM_CORE 
MMP$DELETE_NON_INHERITED_SEGS 


o 8267 { 
° 8268 f{ The purpose of this request is to close all segments in the task’s SDT 
ie) 8269 { that do not have the inherited attribute. Segments which have a reservation 
Oo 8270 { state of mmc$srs_reserved_ shared stack are not closed. 
oO 8271 { 
© 8272 { MMPS$DELETE NON _INHERITED_SEGS (STATUS) 
oO 8273 { 
© 8274 { STATUS: (output) The request status is returned in this parameter. 
Oo 8275 { The possible error codes are: 
oO 8276 { mme$S$invalid_close_segment_reg 
o 8277 { mme$invalid_shared_taskid 
o 8278 { mme$segment_number_not_in_use 
o 8279 { mme$segment_number_too_ big 
o 86280 { 
Oo 8281 
oO 8282 PROCEDURE [XDCL, #GATE] mmp$delete_non_inher ited segs 
© 8283 (VAR status: ost$status); 
° 8284 
oO 8285 VAR 
° 8286 pointer: mmt$segment_pointer, 
© 8287 sdt_p: mmt$max_sdt_p, 
oO 8288 sdtx_p: mmt$max_sdtx_p, 
oO 8289 segnum: ost$segment, 
o 8290 xcb_p: Aost$execution_control block; 
oO 8291 
° 82392 status.normal := TRUE; 
4 8293 pmp$find_ executing task_xcb (xcb_p); 
14 8294 
14 e295 { Close all user segments. 
14 8296 
14 8297 mmp$get_max_sdt_sdtx_ pointer (xcb_p, sdt_p, sdtx_p); 
14 82398 FOR segnum := 0 TO xcb_p4A.xp.segment_table_ length DO 
SA 8299 IF ((sdt_p4.st [segnum].ste.vl1 <> osc$vi_invalid_entry) AND 
94 8300 {sdtx_p4.sdtx_table [segnum].open_validating ring mumber > 1)) THEN 
$4 8301 mmp$invalidate_ segment (segnum, 1, NIL {shared taskid_array} , status); 
BC 8302 IFEND; 
BC 8303 FOREND ; 
CO 8304 
co 8305 PROCEND mmp$delete_non_inher ited _ segs; 
SOURCE LIST OF mmm$segment_manager_system_core NOS/VE CYBIL/II 1.0 88102 
“NOS/VE - MMMSSEGMENT_MANAGER_SYSTEM_CORE 
MMPSFETCH_OFFSET_MOD_PAGES Ri 
° 8307 
o 8308 PROCEDURE [XDCL, #GATE] mmp$fetch_offset_mod_pages_r1 
© 8309 ( segment_number: ost$segment ; 
° 83106 xsfid: gft$system_file identifier; 
© 8311 return_unallocated_ offsets: boolean; 
© 8312 VAR offset_list: Aarray [ * ] of ost$segment_offset ; 
° 8313 VAR offsets returned: integer ; 
Oo 8314 VAR status: ost$status); 
° 8315 
© 8316 TYPE 
oO 8317 offset array = array [1 .. * ] of ost$segment_offset ; 
° 8318 
° 8318 VAR 
° 8320 i: integer, 
° 8321 offset _array_index: integer, 
° 8322 offset count: integer, 
Oo 8323 offset_p: Aoffset_array, 
Oo 8324 request block: mmt$rb_fetch_offset_mod_pages, 
o 8325 sdt_entry_p: Ammt$segment descriptor, 
re) 8326 sdtx_entry p: Ammt$segment_ descriptor extended, 
Oo 8327 sfid: gft$system_file_ identifier ; 
oO 8328 
° 8329 status.normai := TRUE; 
4 8330 
4 8331 { Allocate array to hold all the offsets for the modified pages. 
4 8332 
4 8333 ALLOCATE offset_p: [1 .. UPPERBOUND (offset _list4)] IN osv$job_fixed_ heap”; 
66 8334 
66 8335 { Touch ail of the pages allocated so that referencing them in 
6&6 8336 { monitor will not cause a page fault. 
66 8337 
66 8338 mmp$touch_all_pages (offset _p, #SIZE (offset_p)); 
98 8339 
98 8340 { Issue monitor function to return offsets for modified pages. 
98 834i 
$8 8342 { If the segment number is non-zero, then the sfid passed into the request 
$é 8343 { is invalid. The correct sfid must be set from the segment’s SDTX entry. 
$8 8344 
§&8 8&345 IF segment_number <> O THEN 
AG 8346 mmp$validate segment_number (segment_number, sdt_entry_p, sdtx_entry_p, 
CA 8347 IF NOT status.normal THEN 
D2 8348 RETURN; 
D4 83493 IFEND; 
D4 8350 Sfid := sdtx_entry _pA.sfid; 
EO 8351 ELSE 
EO 8352 Sfid :: xsfid; 
E4 8353 IFEND ; 
E4 #8354 
E4 8355 request _block.reqcode := syc$rc_fetch offset _mod_ pages; 
E4 8356 request _ biock.sfid := sfid; 
E4 8357 request _bliock.offsets_ returned := UPPERBOUND (offset list); 
E4 8358 request bilock.offset_ list :+ offset op; 
4112 8359 request bilock.return_unallocated offsets :+ return unallocated offsets; 
112 8360 


112 8361 i#call_monitor (#LOC (request block), #SIZE (request _block)); 
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status); 
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SOURCE LIST OF mmm$segment_manager_system_core NOS/VE CYBIL/II 1.0 89102 


NOS/VE - MMMSSEGMENT_MANAGER_SYSTEM_CORE 
MMPSFETCH_OFFSET_MOD_PAGES Rt 


136 8362 syp$set_status_from_mtr_status (request _block.status, status); 
172 8363 IF NOT status.normal THEN 
17A 8364 FREE offset _p IN osv$job_fixed_ heaps; 
1AO) 868365 RETURN; 
1AC 8366 IFEND; 
1AC 8367 
1AC 8368 { If array not large enough to hold all offsets, create list_overfilow condition. 
1AC 8369 
1AC 8370 IF (request block.offsets returned > UPPERBOUND (offset_listA)) 
1CC 8371 (request_block.offsets returned = ©) THEN 
1CC 8372 FREE offset_p IN osv$job_fixed_heapA”; 
1F2 8373 offsets returned := request _ block.offsets_ returned; 
1F2 8374 RETURN; 
20A 8375 IFEND; 
20A 8376 
204 8377 { Move offsets to caller’s offset list. 
20A 8378 
208 8379 FOR i := 1 TO request_block.offsets returned DO 
214 8380 offset lVist* [i] :2 of fset_pA [i]; 
214 8381 FOREND; 
23C 8382 
23C 8383 offsets returned := request biock.offsets returned; 
23C 8384 FREE offset _p IN osv$job_fixed heap”; 
26E 8385 
26E 8386 PROCEND mmp$fetch_offset_mod_ pages ri; 
° 8387 


SOURCE LIST OF mmm$segment_manager_system_core NOS/VE CYBIL/II 1.0 898102 


NOS/VE - MMMSSEGMENT_ MANAGER_SYSTEM_CORE 
MMPSFETCH_SDT_SDTX_LOCKED_FDE 


OR 


e 
e 


aoe 


o 8389 

o 8390 PROCEDURE [XDCL, #GATE] mmp$fetch_sdt_sdtx_locked_ fde 

o 8391 ( segment_number: ost$segment ; 

oO 83392 VAR sdt_entry_ p: Ammt$segment_ descriptor ; 

o 8383 VAR sdtx_entry p: Ammt$segment descriptor _extended; 

o 8394 VAR locked fde_p: gftS$locked file _desc_entry_p; 

© 8395 VAR status: ost$status); 

o 8396 

o $8397 VAR 

o 8398 xcb_ p: Aost$execution_control block; 

o 8399 

o $8400 status.normal := TRUE; 

4 8401 pmp$find_executing task_xcb (xcb_p); 

14 8402 

14 8403 IF segment number > xcb_ pA.xp.segment_tabie_ length THEN 

38 8404 IF segment number > 4095 THEN 

40 8405 osp$set_ status abnormal (’MM’, mme$segment_number_too_big, ‘ 
74 8406 ELSE 

74 8407 osp$set status abnormal (’MM’, mme$segment_number_not_in_use, 
AG 8408 IFEND; 

A&B 8409 RETURN; 

A& 8410 IFEND; 

A&S 8411 

A& 8412 sdt_entry_p := mmp$get_sdt_entry_p (xcb_p, segment_number ) ; 
A&B 8413 sdtx entry p := mmp$get_sdtx_entry_p (xcb_p, segment number ); 
A& 8414 IF sdt_entry_pA.ste.vil = osc$vil_invalid_entry THEN 
116 8415 osp$set_status_ abnormal (’MM’, mme$segment_number_not_in_use, 
14AQ 8416 ELSE 
148A 8417 gofp$get_locked_ fde_p (sdtx_entry pA.sfid, locked fde_p); 
27H 8418 IFEND; 
274 8419 


27H 8420 PROCEND mmp$fetch_sdt_sdtx_locked_ fde; 
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SOURCE LIST OF mmm$segment_manager_system_core NOS/VE CYBIL/II 1 


NOS/VE - MMMSSEGMENT_MANAGER_SYSTEM_CORE 
MMPSFETCH SEGMENT_ATTRIBUTES Ri 


8423 
PROCEDURE 
8425 ( 


[XDCL, 
segment_number : 
validating _ ring: 


ostS$segment ; 
ost$valid_ring; 


8427 VAR seg_attributes: Aarray [ * ] 
8428 VAR status: ost$status) ; 
8429 

VAR 


fde_entry p: 
8432 i: integer, 

sdt_entry_p: 
sdtx_entry_p: 


gft$ locked file _desc_entry_p, 


AmmtSsegment descriptor, 


FPOoeOoaooooooo0o0o 000 
tJ 
S 
Q 
° 


-O 89102 


#GATE)] mmp$fetch_ segment attributes ri 


of mmt$attribute_ descriptor ; 


Ammt$segment_descriptor_ext ended ; 


1989-08-21 
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8436 status.normal := TRUE; 
8437 mmp$fetch_sdt_sdtx_locked_fde (segment_number, sdt_entry_p, sdtx_entry_p, fde_entry_p, status); 
3E 8438 FOR i := LOWERBOUND (seg_ attributes’) TO UPPERBOUND (seg_attributes4’) DO 
5C 8439 CASE seg_attributesA [i]. keyword OF 
DA 8440 = mmc$kw_ring_ numbers = 
DA 8441 seg_attributes4 [i]. = sdt_entry_p4.ste.ri; 
DA 8442 seg_attributes4 [i].r2 := sdt_entry_pA.ste.r2; 
10C 8443 = mmc$kw_segment_nmumber = 
10C 8444 seg_attributesA [i].segnum := segment_number ; 
118 8445 = mmc$kw_current_segment_length = 
118 8446 seg_attributesA [i].current_length := gfp$get_eoi_from_fde (fde_entry_p) ; 
15C 8447 = mmc$kw_max_ segment length = 
15C 8448 IF fde_entry_pA.file_ limit < UPPERVALUE (seg _ attributes’ [i].max_length) THEN 
17E 8449 seg _ attributes’ [i].max_length := fde_entry_p%.file_lTimit; 
186 8450 ELSE 
186 8451 seg_attributes’ [i].max_length := UPPERVALUE (seg attributes’ [i] .max_length) ; 
18E 8452 IFEND; 
192 8453 = mmc$kw_gl_key = 
192 8454 seg_attributesA [i].gl_key := sdt_entry_ p4.ste.key_ lock; 
1B4 8455 = mmc$kw_hardware_attributes = 
1B4 8456 seg_attributess [i].hardware_attri_set :: $mmt$hardware_attribute_set []; 
1B4 8457 CASE sdt entry _pr%.ste.rp OF 
1EC 8458 = osc$read_uncontrolled = 
1EC 8459 seg_attributes’ [i].hardware_attri_set :: seg_attributes4’ [i].hardware_attri_set + 
210 8460 $Smmt$hardware_attribute set [mmc$ha_read] ; 
210 8461 = osc$read_key_lock_controlled = 
210 8462 seg _ attributes’ [i].hardware_attri_set := seg attributes’ [i].hardware_attri_set + 
220 8463 SmmtS$hardware_attribute set [mmc$ha_read_key_lock] ; 
220 8464 = oesc$binding segment = 
220 8465 seg_attributes’ [i].hardware_attri_set := seg attributes’ [i].hardware_attri_set + 
22E 8466 Smmt$nardware_attribute_ set [mmc$ha_binding] 
22E 8467 ELSE 
22E 8468 CASEND; 
22E 8469 CASE sdt_entry_ p%.ste.wp OF 
246 8470 = osc$write_uncontrolled = 
246 8471 seg_attributesA [i].hardware_attri_set :+* seg attributes” [i].hardware_attri_set + 
264 8472 Smmt$hardware_attribute_ set [mmc$ha_write]; 
264A 8473 > osc$write Key, _leck_controlied = 
264 8474 seg_attributes’ [i].nardware_attri_set :+ seg _attributesA [i].hardware_attri set + 
28E 8475 $mmtS$hardware_attribute set [mmc$ha_write_key_lock] ; 
28E 8476 ELSE 
28E 8477 CASEND; 


SOURCE LIST OF mmm$segment_manager_system_core NOS/VE CYBIL/II 1.0 
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28E 8478 CASE sdt_entry_p’.ste.xp OF 

24C 8479 = osc$non _privileged = 

2AC 8480 seg_attributesA [i].hardware_attri_set :: seg _ attributes’ [i].hardware_attri 
2CE 8481 $S$mmtGhardware_ attribute set [mmc$ha_execute] ; 

2CE 8482 = osc$local_privilege = 

2CE 8483 seg_attributes” [i] .hardware_attri_set :+: seg _ attributes” [i].nhardware_attri 
2FO 8484 $mmt$hardware_attribute_ set [mmc$ha_execute_ local] ; 

2FO 8485 = osc$global_privilege = 

2FO 8486 seg_ attributes [i].hardware_attri_set := seg attributes’ [i].hardware_ attri 
310 8487 $S$mmt$hardware_attribute_ set [mmc$ha_execute_gliobal] ; 

3160 8488 ELSE 

310 8489 CASEND; 

310 8490 CASE sdt_entry_p4.ste.vi1 OF 

322 8491 = osc$vil_cache_ bypass = 

322 8492 seg_attributes4A [i].hardware_attri_set :+= seg _ attributes’ [i].hardware_attri 
342 8493 Smmt$hardware_ attribute_set [mmc$ha_cache_bypass] ; 

342 8494 ELSE 

342 8495 CASEND; 

346 8496 = mmc$kw_software_attributes = ' 

346 84397 seg_ attributes [i].software_attri_set :* sdtx_entry_pA.software_ attribute set; 
368 8498 = mmc$kw_error_exit_procedure = 

368 8499 seg_attributes’ [i].err_exit_proc := NIL; 

38E 8500 = mmc$kw_preset_ value = 

38E 8501 seg_attributes4 [i].preset_value := fde_entry _p4.preset_value; 

3BO0 8502 = mmc$kw_inheritance = 

3B0 8503 seg_ attributes’ [i].inheritance := sdtx_entry_ pA. inheritance; 

3D2 8504 = mmc$kw_clear_ space = 

3D2 8505 seg_attributes4 [i].clear_space := FALSE; 

3EE 8506 = mmc$kw_segment_ access control = 

3EE 8507 IF sdt_entry_pA.ste.vl = osc$vil_cache bypass THEN 

400 8508 seg_ attributes [i].access_control.cache_ bypass := TRUE; 

41A 8509 ELSE 

41A 8510 seg_attributes” [i].access control.cache_bypass := FALSE; 

432 6511 IFEND; 

432 8512 seg_ attributes’ [i].access_control.execute privilege := sdt_entry_pA.ste.xp; 
432 8513 seg attributes’ [i].access_control.read_ privilege := sdt_entry pA.ste.rp; 

432 8514 seg_attributes4 [i].access_control.write privilege := sdt_entry p%.ste.wp; 

46A 8515 ELSE 

46A 8516 esp$set_status_ abnormal (’MM’, mme$Sunsupported keyword, ’’, status); 

4sC 8517 CASEND; 

49C 8518 FOREND; 

8AO 8519 

4AO 8520 gfp$unilock_fde_p (fde_entry_p); 

S96 8521 

5836 8522 PROCEND mmp$fetch_segment_attributes_ ri; 


o 8523 


83102 
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MMM$SEGMENT_ MANAGER_SYSTEM_CORE 


MMP$GET_ALLOCATED_ADDRESSES_ R1 
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SOURCE LIST OF mmm$segment_manager_system_core NOS/VE CYBIL/II 


NOS/VE - 


8525 

8526 PROCEDURE [XDCL, #GATE] mmp$get_allocated_addresses_ri 

8527 segment_number: ost$segment ; 

8528 validating _ring: ost$valid_ring; 

8529 starting byte _ address: ost$segment_ offset ; 

8530 VAR addr_list: Aarray [ * ] of dmt$addr_length_pair; 
8531 VAR addr_returned: integer ; 

8532 VAR list _overflow: boolean; 

8533 VAR status: ost$status); 

8534 

8535 VAR 

8536 allocated_length: amt$file_byte_address, 

8537 dfd_p: Admt$disk_file_ descriptor, 

8538 fde_entry_p: gft$locked file _desc_entry_p, 

8539 sdt_entry_p: Ammt$segment_descriptor, 

8540 sdtx_entry_ p: Ammt$segment_descriptor_extended; 

8541 

8542 mmp$validate segment number (segment_number, sdt_entry_p, 
8543 IF NOT status.normal THEN 

8544 RETURN; 

8545 IFEND; 

8546 IF (sdt_entry pA.ste.rp = osc$non_readable) OR 

8547 esp$set_ status abnormal (‘MM’, mme$ring violation, ‘’, status); 
8548 RETURN; 

8549 IFEND ; 

8550 

8551 IF starting byte _ address = © THEN 

8552 gfp$get_locked fde_p (sdtx_entry_pA.sfid, fde_entry_p); 
8553 dmp$get_disk_file_descriptor_p (fde_entry_p, dfd_p); 
8554 dmp$get_total_allocated length (fde_entry_p, allocated. length) ; 
8555 gfp$unlock_fde_p (fde_entry_p); 

8556 IF allocated_length = dfd_ pA.highest _offset_aliocated THEN 
8557 {Return 1 address pair if not sparsely allocated 

8558 addr returned := 1; 

8559 list overflow :5 FALSE; 

8560 addr_listA [LOWERBOUND (addr_list4)].addr := 0; 

8561 addr_listA [LOWERBOUND (addr_list4)].length = 

8562 RETURN; 

8563 IFEND ; 

8564 IFEND; 

8565 

8566 admp$get_initialized_addaresses (sdtx_entry_p4.sfid, starting byte_address, 
8567 list_overfiow, status); 

8568 

8569 PROCEND mmp$get_allocated_addresses ri; 

8570 


MMM$SEGMENT_MANAGER_SYSTEM_CORE 


MMP$GET_SDT_FOR_JOB_TEMPLATE 


oo 


pcoo000000000c00 


1.0 89102 


1.0 89102 


sdt_entry_p, sdtx_entry_p, 


TRUE; 


sfc$no_ limit; 


8572 

8573 PROCEDURE [XDCL] mmp$get_sdt_for_job_template 

8574 ( pyva: Acell; 

8575 VAR sdt_entry: mmt$segment_descriptor ; 

&576 VAR sdtx_entry: mmt$segment descriptor _extended; 
8577 VAR status: ost$status) ; 

8578 

8579 

8580 VAR 

8581 fde_entry_ p: gft$locked file _desc_entry_p, 

8582 sdt_entry_p: Ammt$segment descriptor, 

8583 sdtx_entry_ p: Ammt$segment descriptor extended, 
8584 segnum: ost$segment ; 

8585 

8586 segnum :: #SEGMENT (pva); 

8587 mmp$fetch_sdt_sdtx_locked_fde (segnum, 

8588 IF status.nmormal = FALSE THEN 

8589 RETURN; 

8590 IFEND; 

8591 

8592 fde_entry pA.flags.global_template file := 

8593 sdtx_ entry pA.inheritance := mmc$si_share_segment ; 
8594 sdtx_entry pA.open_validating ring mumber := 0; 
8595 sdtx_entry pA. file _limits enforced := 

8596 sdtx_ entry :* sdtx_entry pa; 

8597 sdt_entry := sdt_entry_p4; 

a8s38 sdt_entry.ste.asid := Q; 

8599 gfp$unlock_fde_p (fde_entry_p) ; 

&600 

8601 PROCEND mmp$get_sdt_for_job_template; 


sdtx_entry_p, 


(validating ring > sdt_entry pA.ste.r2) 


fde_ entry _p, 


addr_list4, 
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status); 


fde_ entry pA.eoi_byte_ address; 
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status); 


THEN 
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SOURCE LIST OF mmm$segment_manager_system_core NOS/VE CYBIL/II 1.06 89102 
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e©oo0ooooco0o00080 


8603 
8604 
&605 
8606 
8607 
8608 
8609 
8610 
8611 
8612 
8613 
8614 
8615 
8616 
8617 
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8621 
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8623 
8624 
8625 
8626 
8627 
8628 
8629 
8630 


PROCEDURE [XDCL, #GATE] mmp$get_segment_length_r1 
( segment_number: ost$segment ; 
validating ring number: ost$valid_ring; 
VAR segment_length: ost$segment_length; 
VAR status: ost$status); 


VAR 
fde_p: gftS$file_desc_entry_p, 
sdt_entry_p: Ammt$segment_descriptor, 
sdtx entry _ p: Ammt$segment_descriptor_extended; 


1989-08-21 


mmp$validate segment number (segment_number, sdt_entry_p, sdtx_entry_p, status); 


IF status.normal = FALSE THEN 
RETURN; 
IFEND; 


{ Verify that caller is within read bracket of the segment. 

IF validating ring mumber > sdt_entry_pA.ste.r2 THEN 
osp$set_status_abnormal (’MM’‘, mme$caller_not_in_read_bracket, 
RETURN; 

IFEND ; 


gfp$get_fde_p (sdtx_entry_ pA.sfid, fde_p); 
segment length := gfp$get_eoi_from_fde (fde_p); 


PROCEND mmp$get_segment_length_rti; 
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MMPSINITIATE_ SHADOWING R1 


ecoooodoood0oooooodooooooco0o0o0oO coco c0o0o 000 


8632 
8633 
8634 
8635 
8636 
8637 
8638 
8639 
8640 
8641 


‘*' status); 
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The purpose of this request is to execute ring 1 code for MMP$INITIATE SHADOWING. 
Segment attributes are updated to transform that segment into an ACTIVE (shadow) 


segment. 


MMPSINITIATE_ SHADOWING R1 (SEGMENT_POINTER, SEGMENT_LENGTH, 


address assigned to the segment. 


SEGMENT_LENGTH: (input) This parameter specifies the segment length 


for the segment that is to he shadowed. 


STATUS: (output) This parameter specifies the request status. 


PROCEDURE [XDCL, #GATE] mmp$initiate shadowing ri 
( segment _pointer: Acel1; 
validating ring number: ost$valid_ring; 
shadow_segment_kind: mmt$shadow_segment_kind; 
VAR status: ost$status) ; 


VAR 
fde_p: gft$locked file _desc_entry_p, 
new _fde_p: gft$file_desc_entry_p, 
new_sfid: gft$system_file_identifier, 
segment_length: ost$segment_length, 
sdt_entry_p: Ammt$segment_ descriptor, 
sdtx_entry_p: Ammt$segment_descriptor extended; 


{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ SEGMENT_POINTER: (input) This parameter specifies the process virtual 
{ 
{ 
{ 
{ 
{ 
{ 
{ 


STATUS); 


mmp$fetch_sdt_sdtx_locked_fde (#SEGMENT (segment_pointer), sdt_entry_ p, sdtx_entry p, 


IF NOT status.normal THEN 


RETURN; 
IFEND ; 
{!lliwW## why was there a check for R1 = R2 777} 
{!tt### when ADA task crates a child task, what happens to debug-shadowed code segments?? 


/fde_locked/ 
BEGIN 


fde_p, 


13:33:34 


13:33:34 


status); 


IF (sdt_entry_pA.ste.ri1 < validating_ring_number) OR (sdtx_entry pA.open_validating ring mumber <= 
(mmc$sa_stack IN sdtx_entry_p4.software_attribute_ set) THEN 


osp$set_status_abnormal (°MM’, mme$ init _shadow_improper_seg, 
EXIT /fde_locked/ ; 
IFEND; 


gfpSassign_fde (gfc$tr_ job, ©, new_sfid, new_fde_p); 
IF new fde_p = NIL THEN 
osp$set_status_abnormal (‘MM’, mme$unable_to_assign_fde, °’, 
EXIT /fde_locked/; 
IFEND; 
new _fde_ pA.allocation_unit size :=5 mmc$shadow_allocation_size; 
new _fde_ pA.open_count := 1; 


‘’, status); 


status); 
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1, segment_length, status); 


(((segment_length + 16384 - 1) DIV 16384) * 


NOS/VE - MMMSSEGMENT_MANAGER_SYSTEM_CORE 
MMPS INITIATE SHADOWING R1 

118 8687 new fde_ pA.attach count := 1; 
118 8688 
118 8689 IF shadow segment_kind = mmc$ssk_read_only file THEN 
130 8690 sdt_entry pA.ste.wp :* osc$write uncontrolled; 
130 8691 sdtx_entry_ pA.access_ rights :+* mmc$sar_write_ extend; 
144 8692 IFEND; 
144 8693 
144 8694 mmp$get_segment_length_ri (#SEGMENT (segment_pointer), 
174 8695 
174 8696 sdtx_entry pA.shadow_info.shadow_segment_kind := shadow_segment_kind; 
174 8697 sdtx entry pA.shadow_info.shadow_sfid := sdtx_entry_pA.sfid; 
174 86398 sdtx_ entry pA.shadow_info.shadow_start_page_ number :=: 0; 
174 8699 sdtx_entry p”.shadow_info.shadow_length_page count := 
174 8700 16384) DIV osv$page_size; 
174 8701 new fde_ pA.file limit :5 fde_ pA.file_Timit; 
174 8702 sdtx_entry pA.sfid ::= new_sfid; 
174 8703 
174 8704 { Purge buffer space for PASSIVE segment and set ASID to zero. 
174 8705 
174 8706 sdt_entry_p%.ste.asid := 0; 
174 8707 #PURGE BUFFER (osc$pva_purge_all_page_seg map, segment_pointer) ; 
1CE 8708 
1CE 8708 END /fde_locked/; 
1D0 8710 
1D0 8711 gfp$uniock_fde_p (fde_p); 
2C6 8712 
2C6 8713 PROCEND mmp$initiate_ shadowing r1; 
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8715 
8716 
8717 
&718 
8719 


This procedure 
clears the map, located 
which segments have system privilege, 
in the map. Before this procedure is calied, 
been moved from the task private segment stat 
pageable. After this procedure is called, 
the initialized map from mainframe pageablie 


MMPSINIT_SYSTEM_PRIVILEGE MAP (offset) ; 


OFFSET: (input ) 


o 
J 
N 
be 
ear re es ees ee ee es oe rm ete 


PROCEDURE [XDCL, #GATE] mmp$init_system_pr ivi 


8730 ( offset: ost$segment_offset) ; 
8731 
VAR 
8733 i: ost$segment, 
8734 leftover: boolean, 
&735 mapend: ost$segment, 
8736 mp_p: Aost$system_privilege_map, 
8737 sdt_entry_ p: Ammt$segment_ descriptor, 
8738 ste: ost$segment_descriptor, 


Prprenodododooroodooodc9dodaoq0o0c0ocoo0o0o00o0 00 000000 
oo 
| 
W 
N 


1.0 83102 


initializes the system privilege bit map. 
in the mainframe pageable segment, 


1989-08-21 13:33:34 


It first 
then decides 


and sets the corresponding bits 


the bit map must have 


ic area 


lege _ map 


into mainframe 
each mew task will 
into 


pick up 


its task private segment. 


This parameter specifies the offset of the privilege map. 


THEN 


8739 xcb p: Aost$execution_control block; 
8740 
8741 { Calculate where the map is in mainframe pageable. 
8742 { Note - hard-coded [1] must be changed if multiple task private segments exist. 
8743 
8744 mp_p := #ADDRESS (1, #SEGMENT ( jmv$task_private_temp1_p4.segment [1] .content), 
8745 #OFFSET (jmv$task_private_temp1_p4.segment [1].content) + offset); 
8746 
8747 { Find the system job XCB. 
8748 
8749 pmp$find_ executing task_xcb (xcb_p); 
34 8750 
34 8751 { Capture the system privilege segments. 
34 8752 { Insure no array bounds errors. 
34 8753 
34 8754 IF xcb_pA.xp.segment_table_length < UPPERBOUND [(ost$system_privilege map) 
58 8755 leftover := TRUE; 
58 8756 mapend := xcb_p4.xp.segment_table_length; 
SE 8757 ELSE 
SE 8758 leftover :=: FALSE; 
5E 28759 mapend := UPPERBOUND (ost$system_privilege map) ; 
66 8760 IFEND ; 
66 8761 
66 8762 { Compute the bits for which both segment table entries and map entries exist. 
66 8763 
66 8764 FOR i := 0&0 TO mapend DO 
70 8765 sdt_entry p := mmp$get_sdt_entry_p (xcb_p, i); 
70 8766 ste := sdt_entry_pA.ste; 
70 8767 mp_p4 [i] :2 (ste.vl <> osc$vl_invalid_entry) AND (ste.xp <> osc$non_executable}); 
BO 8768 FOREND; : 
BA 8769 
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BA 8770 { Clear any leftover bits. 


BA &8771 

BA 8772 IF leftover THEN 

BE 8773 FOR i := mapend + 1 TO UPPERBOUND (ost$system_privilege_map) DO 
cs 8774 mp_pA [i] :: FALSE; 

C8 8775 FOREND; 

D4 8776 IFEND; 

D4 8777 


D4 8778 PROCEND mmpSinit_system_privilege_ map; 
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o 8780 

oO 8781 PROCEDURE [XDCL] mmp$issue_ring!_segment_request 

Oo 8782 (VAR rb: mmt$rb_ring1_segment_request }); 

o 8783 

ce) 8784 VAR 

° 8785 count: integer, 

Oo 8786 Status: ost$status, 

oO 8787 sfid: gft$system_file_identifier ; 

oO 8788 

° 8789 { Mmp$process_wmp_status (mtr) will set init_new_io to FALSE if the call is reissued for the wait option. 
© 8790 

o 8791 rb.init_mew_jio := TRUE; 

4 8792 FOR counmt := 1 TO 4 DO 

16 8783 i#call_monitor (#LOC (rb), #SIZE (rb)); 

2E 8794 IF NOT rb.status.normal THEN 

36 8785 IF rb.status.condition = mme$io_write error THEN 
46 8736 CASE rb.request OF 

60 8797 = mmc$sri_detach_file, mmc$sri_flush_delete_seg sfid, mmc$sri1_flush_ seg segnum = 
60 8788 {Only attempt reallocate for these requests 
60 8799 sfid := rb.sfid; 

6&8 8800 ELSE 

68 8801 RETURN; 

6A 8802 CASEND; 

6E 8803 ELSE 

6E 8804 RETURN; 

70 868805 IFEND; 

74 8806 ELSE 

74 8807 RETURN; 

76 8808 IFEND; 

76 8809 IF count = 4 THEN 

7C 8810 RETURN; 

7E 8811 IFEND; 
7E 8812 dmp$reallocate _file_space (sfid, TRUE, status); 

SA 8813 IF NOT status.normal THEN 

A2 8814 RETURN; 

A& 8815 IFEND; 

A&4 8816 rb.init_nmew_io := TRUE; 

A& 8817 FOREND ; 
Ac 8818 


AC 8819 PROCEND mmp$issue_ring1_segment_request ; 


SOURCE LIST OF mmm$Ssegment_manager_system_core NOS/VE CYBIL/II 1.60 89102 1989-08-21 13:33:34 
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MMPS INVALIDATE SEGMENT 
oO 8822 
© 8823 { 
Oo 8824 f{ The purpose of this procedure is to invalidate the specified segment 
Oo 8825 { in the SDT table. The backing store file is returned if one is assigned, 
© 8826 { and the open_count in the FDE is zero. 
Oo 8827 { 
oO 8828 { MMPSINVALIDATE_ SEGMENT (SEGMENT NUMBER, VALIDATING _RING_ NUMBER, 
o 882s { SHARED_TASKID_ ARRAY, STATUS) 
o 8830 { 
ce) 8831 { SEGMENT NUMBER: (input) This parameter specifies the segment number to 
Oo 8832 { be invalidated. 
o 8833 { 
© 8834 { VALIDATING RING NUMBER: (input) This parameter specifies the validating 
Oo 8835 { ring mumber of the request. 
o 8836 { 
© 8837 { SHARED _TASKID_ARRAY: (input) This parameter is a pointer to the list of 
ce g8a3s { taskids of tasks in which this segment is to be invalidated. 
o 8839 { 
ce 8840 { STATUS: (output) This parameter is where the request status is returned 
° 8eai { to the caller. The possible error codes are: 
oO 8842 { dme$file descriptor_not_deleted 
Oo 8843 { mme$invalid close segment _reg 1 
oO 8844 { mme$invalid shared _taskid 
oO 8845 { mme$segment_number_not_in_use 
Oo 8846 { mmeS$segment _number_too_ big 
© 88a7 { 
te) 8848 
Oo 8849 PROCEDURE [XDCL, #GATE] mmp$invalidate_ segment 
o 8850 ( segment_number: ost$segment ; 
oO 8851 validating ring number: ost$valid_ring; 
Oo 8852 shared _taskid_array: Aarray [1 .. * ] of pmt$task_id; 
© 8853 VAR status: ost$status); 
o 8854 
Oo 8855 VAR 
re) 8856 caller_id: ost$caller_identifier, 
oO 8857 fde_entry_p: gft$locked_ file _desc_entry_p, 
° 8858 i: integer, 
o 8859 open_count: integer, {must be integer} 
ce] 8860 pva: Acell, 
o 8861 rb: mmt$rb_ringi_segment_ request, 
oO 8862 sdt_entry_p: Ammt$segment_descriptor, 
o 8863 sdtx_entry p: Ammt$segment_descriptor_extended, 
o 8864 sdt_p: mmt$max_sdt_p, 
o 8865 sdtx_ p: mmt$max_sdtx_p, 
Oo 8866 segnum: ost$segment, 
Oo 8867 shadow_fde_p: gft$locked file _desc_entry_p, 
Oo 8868 Shadow _open_count: gftSopen_count, 
o 8869 shadow _sfid: gft$system_file_identifier, 
o 8870 task _xcb: Aost$execution_control_block, 
Oo 8871 task_sdt_entry p: Ammt$segment_descriptor, 
o 8872 xcb p: Aost$execution_control_biock; 
oO 8873 
o $8874 IF shared taskid_ array <> NIL THEN 
1E 8875 FOR i :+ LOWERBOUND (Shared_taskid_array’) TO UPPERBOUND (shared_taskid_array”) DO 
2E 8876 pmp$find_task_xcb (shared_taskid_array’ [i], task_xcb); 
SOURCE LIST OF mmm$segment_manager_system_core NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 
NOS/VE - MMMSSEGMENT_MANAGER_SYSTEM_CORE 
MMPS INVALIDATE SEGMENT 
54 8877 IF task _xcb = NIL THEN 
5E 8878 osp$set_ status abnormal (’MM’, mme$invalid shared_taskid, ’’, status); 
94 88793 RETURN ; 
96 &888O IFEND; 
$6 8881 FOREND; 
gc 8882 IFEND ; 
gc 8883 
sc 8884 #CALLER_ID (caller_id); 
gC 8885 mmp$fetch sdt_sdtx locked _fde (segment_number, sdt_entry_p, sdtx_entry_ op, fde_entry_p, status); 
bs 8&86 IF status.normal = FALSE THEN 
EO 8887 RETURN; 
E2 8888 IFEND; 
E2 8889S 
E2 8890 pva := #ADDRESS (caller_id.ring, segment number, 0); 
E2 8891 
E2 8892 {#***KLUDGE- the first conditional is necessary to delete task private in 
E2 8893 { job termination. 
E2 8894 IF validating ring mumber > 2 THEN 
102 8895 IF (sdtx_entry_pA.inheritance <> mmc$si_none) THEN 
10E 8896 gofpS$unlock_fde_p (fde_entry_p); 
202 8897 osp$set_status_ abnormal (’MM’, mmeSinvalid_ close segment_req, ‘’, status); 
232 8898 RETURN; 
234 889898 IFEND; 
234 8&s00 IFEND; {***KLUDGE*+** } 
234 8901 
234 ggso02 { Ciear any segment iecks left by the user. 
234 8303 
234 8904 IF sdtx_entry p4.segment_lock <> mmc$1ss_nmone THEN 
240 89065 mmp$unilock_ segment (pva, mmc$ius_ free, osc$nowait, status); 
262 8906 IF NOT status.normal THEN 
264A 8907 gfpSunilock_fde_ p (fde_entry_p); 
35C 83808 osp$system_error (‘Unexpected mmp$unlock_ segment error’, Astatus); 
380 68909 IFEND ; 
380 8910 IFEND ; 
380 8911 
380 8912 pmp$find_executing task_xcb (xcb_p); 
386 83813 IF shared _ taskid_ array <> NIL THEN 
3A6 8914 FOR i := LOWERBOUND (shared_taskid_array’) TO UPPERBOUND (shared _taskid_array4) DO 
3B4 8915 pmp$find task_xcb (shared_taskid_array” [i], task_xcb); 
SDA 8916 IF xcb_p <> task_xcb THEN 
3EA 8917 task _sdt_entry_p := mmp$get_sdt_entry_ p (task_xcb, segment_number ) ; 
3EA 8918 task _sdt_entry_p4.ste.vl := osc$vl_invalid_entry; 
3EA 8919 fde_entry_ pA.open_count := fde_ entry p%.open_ count - 1; 
424 8920 IFEND; 
442A 8921 FOREND,; 
434 89822 IFEND ; 
434 89823 
434 8324 open _count := 1; 
434 8825 IF sdtx_entry, pA.shadow_info.shadow_segment_kind <> mmc$ssk_none THEN 
442 89826 : gfp$get_ locked fde_p (sdtx_entry pA.shadow_info.shadow_sfid, shadow _fde_p);. 
570 8827 shadow _fde_ pA.open_count := shadow _fde_ pA.open_ count - 1; 
5760 8928 shadow_open_count := shadow_fde_pA.open_count ; 
570 8929 gfpSuniock fde_p (shadow _fde_p); 
66E 893306 IF (shadeow_open_count = 0) AND 


686 8931 ( (shadow _fde_pA.file_kind = gfc$fk_unnamed_file) OR 
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686 8932 {shadow _fde_ pA.file_ kind = gfc$fk_global_unnamed)) THEN 

686 8933 destroy segment (sdtx_entry_ pA.shadow_info.shadow_sfid, shadow _fde p, 

6aC 8934 sftfc$temp_file_ space_limit, status); {Can only destroy temp files} 

6AC 8935 IFEND; 

SBO 8936 ELSEIF sdtx_entry p4”.shadow_info.passive_for_shadow_by segnum THEN 

6B8 8937 pmp$find_executing task_xcb (xcb_p) ; 

6BE 8938 mmp$get_max_sdt_sdtx_pointer (xcb_p, sdt_p, sdtx_p); 

6BE 8935 FOR segnum := © TO xcb_ pA.xp.segment_ table_length DO 

714 8340 IF (sdt_p4.st [segnum].ste.v1 <> osc$vl_invalid_entry) AND 

748 8941 (sdtx_p4.sdtx_table [segnum].shadow_info.shadow_segment_number = segnum) AND 

748 8942 (sdtx_p%.sdtx_table [segqnum] .shadow_info.shadow_segment_kind = mmc$ssk_segment_number) THEN 

748 8943 sdtx_pA.sdtx_table [segnum] .shadow_info.shadow_segment_kind := mmc$ssk_none; 

748 8944 sdtx_p4.sdtx_table [segnum] .shadow_info.passive_for_ shadow _by segnum := FALSE; 

748 8945 open_count := open_count + 1; 

752 8946 IFEND; 

752 8347 FOREND ; 

756 8948 IFEND ; 

786 8949 

756 #8950 epen_count := fde_entry p%.open_count - open_count; 

756 8951 fde_entry_pA.open_count := open_count ; 

756 8952 gfpSunlock_fde_p (fde_entry _p) ; 

854A 8953 IF open_count < ©O THEN 

85E 8954 osp$system_error (‘MM - neg open count in invalidate’, NIL); 

8&2 gg55 IFEND; 

882 8956 

882 8957 IF (open_count = 0) AND ((fde_entry_p%.file_kind = gfc$fk_unnamed_file) OR 

89H 8958 (fde_entry_pA.file_kind = gfc$fk_global_unnamed)) THEN 

894 89359 destroy_segment (sdtx_entry_pA.sfid, fde_entry_p, sdtx_entry_p%.file_limits_enforced, status); 

8CO 8960 IFEND ; 

&8CcO 8961 

sco 8962 #PURGE_ BUFFER (osc$pva_purge_all_page_seg_ map, pva); 

8C2 8963 sdt_entry_pA.ste.vl := osc$vl_invalid_entry; 

8C2 83964 

8C2 8365 PROCEND mmp$invalidate_segment ; 
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9017 
9018 
9019 
9020 
9021 


{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 


we ot 


Tne purpose of this request is to delete all segments unique to this 
job. The ring 1 and 2 stack segments and the job fixed segment are 
not deleted. These will be deleted in another phase of job termination. 


NOTE: This procedure can not be called from above ring 2. 
MMPS$JOB_ DELETE INHERITED SDT (STATUS) 


STATUS: (output) This parameter is where the request status is returned. 
No error codes are returned. Osp$system_error is called if segments 
cannot be deleted. 


PROCEDURE [XDCL, #GATE) mmp$Sjob_delete_inherited_ sdt; 


VAR 
fde_entry_p: gft$locked file _desc_entry_p, 
ro: mmt$rb_ ring! segment_request, 
ring 1_stack_segnum: ost$segment, 
sdt_entry p: Ammt$segment_descriptor, 
sdtx_entry_ p: Ammt$segment descriptor extended, 
segnum: ost$segment, 
status: ost$status, 
xcb_p: Aost$execution_control block; 


status.normal :: TRUE; 


pmp$find_executing _task_xcb (xcb_p) ; 
ring 1 stack segnum := xcb_pA.xp.tos_registers [1].pva.seg; 


/scan_sdt_for_inher ited _segs/ 
FOR segnum := 0 TO xcb_p%.xp.segment_tabte_ length DO 

sdt_entry p := mmp$get_sdt_entry_p (xcb_p, segnum) ; 

IF (sdt_entry_p%.ste.vl <> osc$vl_invalid_entry) THEN 
sdtx_entry p := mmp$get_sdtx_entry_ p (xcb_p, segnum); 
IF (sdtx_entry _p4.open_validating ring _mumber > 0) AND (segnum <> osc$segnum_job_fixed_ heap) AND 

(segnum <> ring 1 stack_segnum) THEN 
gfp$get_fde_p (sdtx_entry_ pA.sfid, fde_entry_p); 


Cliese segment (free memory and ASID and return backing store if it exists), have to call device 
manager to return backing store during job termination. 


IF (fde_entry pA.media = gfc$fm_transient_segment) THEN 
IF fde_entry_pA.asti <> © THEN 
rb.reqcode = syc$rc_ring1 _segment_request ; 
rb.request := mmc$sri_delete seg segnum; 
rb.segnum := segnum; 
i#call_monitor (#LOC (rb), #SIZE (rb)); 
IFEND; 
ELSE 
fde_entry pA.open_count :: 60; {!!!### this is for fault tolerance - it should not be needed. } 
dmp$destroy file (sdtx_entry_p4A.sfid, sdtx_entry pA.file_ limits enforced, status); 


sdt_entry_pA.ste.vl :* osc$vl_invalid_entry; {Must be after call to destroy for job recovery!!} 
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176 9022 IFEND; 

176 9023 

176 9024 IFEND; 

176 9025 IFEND; 

176 9026 FOREND /scan_sdt_for_inherited_ segs/; 
17A $027 

17h 9028 ' syp$return_jobs_r1_resources; 

182 93029 


182 9030 PROCEND mmp$job_delete_inher ited_sat; 
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° 9032 

oO 9g033 PROCEDURE [XDCL] mmp$job_multiprocessing control 

o 9034 ( enabie: boolean; 

o 9035 VAR status: ost$status); 

° 9036 

0 9037 VAR 

o 9038 sdt_p: mmt$max_sdt_p, 

o 90393 sdtx_p: mmt$max_sdtx_p, 

o 93040 segnum: ost$segment, 

o $041 xcb p: Aost$execut ion control block; 

° $O42 

° 9043 status.normal := TRUE; 

4 9044 pmp$find_executing task_xcb (xcb_p); 

14 $045 

14 $046 mmp$get_ max sdt_sdtx_ pointer (xcb_p, sdt_p, sdtx_p); 

14 9047 FOR segnum := 0 TO xcb_pA.xp.segment_table_length DO 

6A 93048 IF (sdt_pA.st [segnum].ste.vi <> osc$vl_invalid_entry) AND (segnum <> osc$segnum_job_fixed_ heap) THEN 
84 $049 IF (sdtx_p%.sdtx_table [segnum].inheritance = mmc$si_Share_ segment) AND 
A2 9050 (sdtx_p4.sdtx_table [segnum].open_validating ring number <> ©) THEN 
A2 9051 IF enable THEN 
AA $052 sdt_pA.st [segnum].ste.vl :* osc$vil_cache_bypass; 

B8 $053 ELSE 

B8 sos4 sdt_pA.st [segnum].ste.vl := osc$vl_regular_segment ; 

c2 9055 IFEND; 

c2 SOS6 IFEND; 

C2 9057 IFEND ; 

C2 9058 FOREND ; 

cé 9059 


C6 $060 PROCEND mmp$ job mult iprocessing control; 
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o 9063 
o 9064 { 
3° 9065 { Tne purpose of this procedure is to assign a device to a segment 
3° so66 { if memory manager needs it done. This procedure is called by the ring 1 
© $067 { trap handier when a specified system flag is set. 
o 9068 { 
o sos6s9 { MMPSMFH_ FOR_SEGMENT_MANAGER 
© 9070 { 
Oo 9071 
Oo $072 PROCEDURE [XDCL, #GATE] mmp$mfh_for_segment_manager ; 
° $073 
o 93074 VAR 
oO 9075 allocated _length: amt$file_byte_address, 
Oo 9076 ctime: 0 .. OF FFFFFFFFFFF(IE), 
Oo 9077 gtid: ost$global_task_id, 
o 9078 status: ost$status, 
o 9079 xcb_p: Aost$execution_control block; 
© 9080 
© $osi { Allow escaped allocation if the task has system tables locked. 
1) $082 
o $083 pmp$find executing task_xcb (xcb_p); 
A 9084 IF xcb pA.system_table_lock_count > 255 THEN 
2C $085 xch_pA.stic_allocation := TRUE; 
2C 9086 RETURN; 
32 9087 IFEND ; 
32 9088 
32 $089 mmp$process_ file alloc (allocated_Jength, status); 
4E 9090 IF NOT status.normal THEN 
56 9091 IF (status.condition <> dfe$family_not_served) AND (status.condition <> dfe$server_not_active) AND 
76 $092 (status.condition <> dfe$server_has_terminated) THEN 
76 $093 ctime := #FREE RUNNING CLOCK (0); 
7E 9094 REPEAT 
TE 9095 pmp$delay (1000, status); 
SA 9096 mmp$process_ file_alloc (allocated_length, status); 
B2 90397 UNTIL (status.normal) OR ((#FREE RUNNING CLOCK (0) - ctime) > 10000000); 
Ca 9098 IF NOT status.normal THEN 
D2 3099 pmp$get_executing task_gtid (gtid); 
D& 9100 pmp$set_system_fiag (mmc$failed_ file_alloc_flag, gtid, status); 
116 #9101 IF NOT status.normal THEN 
11E 9102 osp$system_error (‘Error setting system flag-MMSMSC’, NIL); 
142 $103 IFEND ; 
142 93104 IFEND; 
142 9105 IFEND ; 
142 9106 IFEND; 
142 9107 
142 9108 PROCEND mmpSmfh_for_segment_manager ; 
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© $110 
Oo 9111 PROCEDURE [XDCL] mmp$mfh_shadow_file_reference; 
oO $112 
° 9113 { The purpose of this procedure is to move data from the shadowed file to the active 
3° 9114 { file. & page fault nad occurred and the page was found to reside on the shadowed 
© $115 { file. Mmp$page_pull filled in the necessary information in the XCB and set the 
© $116 { monitor flag, mmcS$mf_shadow_file_ reference. The ring 1 trap Nandier called this 
o 9117 { procedure. 
ce 9118 
° $119 VAR 
° 9120 i: integer, 
° 91271 in_memory: boolean, 
©o 9122 rma: integer, 
Oo $123 status: ost$status, 
oO $124 xcb_p: Aost$execution_control block; 
o 9125 
oO 9126 pmp$find_ executing task_xcb (xcb_p); 
& $127 in memory := TRUE; 
A 9128 
A 9128 /memory_check/ 
A $130 FOR i :* © TO xcb_pA.shadow_reference_info.page count - 1 DO 
30 869131 i#real_memory_address (#ADDRESS (1, #SEGMENT (xcb_pA.shadow_reference_info.source_ pva), 
74 #9132 #OFFSET (xcb_p4.shadow_reference_info.source_ pva) + i * osv$page_ size), rma); 
74 $133 IF rma < 0 THEN 
7C 4869134 in_memory := FALSE; 
7C 9135 EXIT /memory_check/ ; 
84 9136 IFEND; 
84 9137 FOREND /memory _check/ ; 
&8& 9138 
8& 9139 IF NOT in _memory THEN 
8c 9140 mmp$advise_in (xcb_p4.shadow_reference_info.source_pva, 
C2 $141 xcb_pA.shadow_reference_ info.page_count * osv$page_ size, status); 
c2 $142 IFENO; 
C2 $143 i#move (xcb_ p4.shadow_reference_info.source_pva, xcb_p4.shadow_reference_info.destination_pva, 
C2 98144 xcb_pA.shadow_reference_info.page_count * osv$page_size); 
108 9145 


108 9146 PROCEND mmp$mfh_shadow_filie_reference; 


PAGE 8&94 


PAGE 895 


SOURCE LIST OF mmm$segment_manager_system_core NOS/VE CYBIL/II 1.0 891062 1989-08-21 


NOS/VE - 


o $148 
o $149 PROCEDURE [XDCL] mmp$mfh_volume_unavai lable; 
o $150 
° 9151 VAR 
o $152 gtid: ost$giobal_task_id, 
o $3183 mmv$pf_ system core, 
o 9154 mmv$pf_job_template: [xXDCL] integer := 0, 
Oo $155 psa: Aost$minimum_save_ area, 
o $156 status: ost$status, 
° 9157 stri: integer, 
o 9158 str: string (80), 
o $159 xcb: Aost$execution_control block; 
te) $160 
© §161 psa := #PREVIOUS SAVE AREA (); 
4 $8162 {This code assumes: 
4 $163 { Page fault for bad disk; trap to TH; TH calls this procedure 
4 $164 IF #RING (psar.a2_previous_save_area) = 1 THEN 
16 9165 
16 9166 mmv$pf osystem_core :: mmv$pf_system_core + 1; 
16 9167 {We have interrupted the system core 
16 9168 {Allow rollback - then check for system tables locked 
16 9169 Syp$cause_condition (syc$volume_unavailabte}) ; 
3c 9170 
3C 9171 {We still have control, so we must wait 
3c 9172 {If there are system resources tied up, we will be in trouble 
3C 9173 pmp$delay (30000, status); 
SA $174 
5A 9175 {Return and attempt page fault again 
SA 9176 ELSE 
5A 9177 
SA 9178 mmv$pf_job_template := mmv$pf_job_template + 1; 
5A 9179 {we nave interrupted the job template 
5A 9180 pmp$get_executing task_gtid (gtid); 
GE 9181 pmp$set_system_flag (mmc$volume_unavailable flag, gtid, status); 
AA $182 IF NOT status.normal THEN 
B2 9183 osp$system_error (‘Error setting system flag-MMSMSC’, NIL); 
DA 9184 IFEND; 
DA 9185 IFEND; 
DA $186 
DA $187 PROCEND mmp$mfh_volume_unavai lable; 
o 9§188 
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MMM$SEGMENT_MANAGER_SYSTEM_CORE 
MMP$MM_MOVE_MOD_SERVER_PAGE 
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NAME : 

MMP$MM_MOVE MOD _ SERVER_PAGE 
PURPOSE: 

This procedure makes a request to move a single modified page from a source 
File to a destination file. Only modified pages of the server file are moved; 
non-modified pages are discarded. It is used to update the server image file 
on the client in the case of a server crash. The procedure executes in job 


mode in a system task which writes the server image file with pages from ai] 
of the currently attached server files. 


ASSUMPTIONS: 

The following assumptions are made in designing this interface: 
The state of the server will not change while this request is 
removing pages 
The destination file (as specified by "destination_pva") is not on 
the server 
All space for the destination file must be preallocated 
A page has not aiready been assigned to the destination pva 
Access to the server file whose page is being moved has been 
inhibited by the SDTX access state 
The “destination_pva" is en & page boundry 
All server I10 on the file has been dequeued and pages associated with 
server I0 have been unlocked 
This precedure is called only in the system job 
The File Descriptor for the file is expected to be locked and will 
remain so during the monitor call 


PROCEDURE [XDCL] mmp$Smm_move_mod_server_ page 
( sfid: gft$system_file_identifier; 
destination pva: Acell; 
VAR byte _offset: ost$segment_ offset ; 
VAR status: ost$status); 


SFID: (INPUT) Specifies the System File ID of the file whose pages must be 
moved to the destination file. 

DESTINATION _ PVA: (INPUT) Specifies the location within the server image file 
to which a lioecated modified page will be written. 

BYTE OFFSET: (OUTPUT) Specifies the beginning offset of the located page 
which has been moved. 

STATUS: (OUTPUT) Status processing. Conditions which can be returned are: 


mme$io_active_on_move_page (retry) 
mme$no_pages_found_for_move {normal exit condition) 
mme$page_table_ full (retry) 


PROCEDURE [XDCL] mmp$mm_move_mod_server_page 
( system_fite_id: gft$system_file_identifier; 
destination _pva: Acell; 
VAR byte_offset: ost$segment_ offset ; 
VAR status: ost$status) ; 


VAR = 
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o $245 rb_ring!_server_seg_ request: mmt$rb_ ring! server seg request ; 
oO $246 
ce) 9247 status.normal :=:= TRUE; 
4 3248 
4 93249 rb_ring1_ server _seg request .reqcode := syc$rc_ringi_server_seg request ; 
4 93250 rb ring! server seg request .sfid := system _file_id; 
4 9251 rb_ring1 server seg request .request := mmc$ssri_move_modified_df_ page; 
4 9252 rb _ring!_ server seg request .destination_pva :: destination _pva; 
4 9253 rb_ring1_server_seg request .byte_offset := O7fFFFFFFF(IE); {dummy initialization} 
4 $254 
4 9255 i#call_monitor (#LOC (rb_ring!_server_seg request), #SIZE (rb_ring1!_server_seg request) ); 
50 $256 
$0 9257 byte _ offset :* rb_ring! server seg request .byte_ offset ; 
50 3258 syp$set_status from_mtr_status (rb_ring!i_server_seg request.status, status) ; 
9E 9259 
9E 9260 PROCEND mmp$mm_move_mod_server_page; 
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o 9262 

© 9263 PROCEDURE [XDCL] mmp$open_asid_based_segment 

o $264 ( sdt_entry: mmt$segment_descriptor ; 

Oo 9265 sdtx_entry: mmt$segment descriptor extended; 

o 9266 VAR segment _number: ost$segment ; 

Oo 9267 VAR status: ost$status); 

° $268 

o $269 VAR 

Oo $270 sdt_entry p: AmmtS$segment_descriptor, 

o 9271 sdtx_entry_p: Ammt$segment_descriptor_ extended, 

© $272 segnum: ost$segment, 

oO $273 xcb_ p: Aost$execution_controi_block; 

Oo $274 

° 9275 status.normal := TRUE; 

4 9276 pmp$find_executing task_xcb (xcb_p); 

14 $277 

14 9278 find_available_segment_number (xcb_p, mmc$srs_not_reserved, segnum, status); 
40 93279 IF NOT status.normal THEN 

48 93280 RETURN; 

4A $281 IFEND; 

4A 3282 

4A 9283 { Add sdt_entry to the task’s segment descriptor table (SDT) 
4A 3284 sdt_entry p := mmp$get_sdt_entry_p (xcb_p, segnum) ; 
44 $285 sdt_entry_paA = sdt_entry; 

4A 9286 sdtx_entry p :=* mmp$get_sdtx_entry_p (xcb_p, segnum) ; 
4A 93287 sdtx_enmtry pA := sdtx_entry; 
AE 9288 

AE 9289 segment number : = segnum; 

AE 9290 


AE $291 PROCEND mmp$open_asid_based_ segment ; 
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o $294 

oO $295 PROCEDURE [XDCL, #GATE] mmp$open_file_ by sfid 

Oo 92396 ( sfid: gft$system_file_identifier ; 

Oo $297 ri: ost$valid_ring; 

Oo $298 r2: ost$valid_ring; 

o $2983 sequential _random_selection: mmt$access_ selections; 
oO 93300 read write access selection: mmt$segment_access_rights; 
Oo $301 VAR segment number: ost$segment ; 

Oo 9302 VAR status: ost$status) ; 

o $303 

oO $304 VAR 

o $305 fde_entry_p: gft$locked file desc_entry_p, 

© $306 page streaming ts_shift: oO .. 15, 

Oo $307 sdt_entry: mmt$segment_descriptor, 

Oo 9308 sdt_entry_p: Ammt$segment descriptor, 

o $309 sdtx_entry_p: Ammt$segment_descriptor_extended, 

o 9310 segment_res_state: mmt$segment_reservation_ state, 

Oo $311 segnum: ost$segment, 

o 9312 ste: mmt$segment_descriptor, 

© $9313 xcb_p: Aost$execution_control_ block; 

oO 9314 

o 9315 status.nmormal := TRUE; 

4 9316 pmp$find_executing task_xcb (xcb_p); 

14 9317 

14 9318 { Find an available segment number if the caller did not supply one. 
14 9319 

14 $320 segment_res_ state ::= mmc$srs_not_reserved; 

14 9321 find_available_segment_number (xcb_p, segment_res_state, segnum, status) ; 
40 9322 IF NOT status.normal THEN 
4&8 9323 RETURN; 

4A 9324 IFEND; 
4A 9325 


1989-08-21 


4A 9326 { Add sdt_entry to the task‘s segment descriptor table (SDT) and the sdtx_entry to the 


4A 93327 { segment descriptor table extended (SDTX). 


44 $328 

4A $329 sdt_entry_p :+ mmp$get_sdt_entry p (xcb_p, segnum) ; 

44 $3330 sdtx_entry_p := mmp$get_sdtx_entry_p (xcb_p, segnum) ; 
4A 93331 { THIS SOTX ENTRY SHOULD BE THE DEV FILE 

4A $332 

4A 9333 sdtx_entry pA := mmv$default_sdtx_entry; 

A4 $334 sdtx_ entry pA.sfid :: sfid; 

A4 $335 sdt_entry := mmv$default_sdt_entry; 

Aa 9336 sdt_entry.ste.ri oo: = ri; 

AG 9337 sdt_entry.ste.r2 :* 72; 

A4 93338 gfp$get_locked_fde_p (sfid, fde_entry_p); 

1F4 9339 fde_entry pA.open_ count := fde entry pA.open_count + 1; 
1F4 9340 gfp$unlock fde_p (fde_entry_p); 

2F4 9341 IF osv$multiple cpus possible THEN 

300 93342 sdt_entry.ste.vl := osc$vi_cache_bypass; 

306 $343 IFEND; 

306 9344 IF read_write_ access selection = mmc$sar_read THEN 

30E 9345 sdt_entry.ste.wp := osc$non_writable; 

312 9346 IFEND; 

312 9347 IF sequential _random_selection = mmc$as_sequential THEN 
314 9348 sdtx_entry_p4.software_ attribute set := SmmtS$software_attribute_set 
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314A 9349 [mmc$sa_read_transfer_unit, mmec$sa_free_ behind] ; 

314 9350 sdtx_entry_pA.stream.sequential accesses := mmv$page_ streaming prestream, 

32C 9351 IFEND; 

32C 9352 mmp$convert_ps_transfer_size (16384, page _streaming_ts_ shift); {force transfer size of 16384 
362 9353 sdtx_entry _p%.stream.transfer_size :+ page streaming ts_shift; 

362 9354 mmp$set_segment_access_rights (sdt_entry, sdtx_entry pA); 

342 9355 

3A2 93356 store_ste_in_segment_table (sdt_entry, sfid, sdt_entry_p, fde_entry_p, segnum); 
3BC 9357 

3BC 9358 segment number := segnum; 

3BC 93593 


3BC 9360 PROCEND mmp$open_file_by_ sfid; 
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o $362 { 
° 9363 { The purpose of this procedure is to preallocate file space. The request will 
ve) $364 { attempt to allocate the mumber of bytes up to the length which is input by the user. 
o s365 { 
o 9366 { MMP$OS_ PREALLOCATE_FILE_ SPACE (PROCESS _VIRTUAL_ADDRESS, LENGTH, STATUS) 
o $367 { 
© 9368 { PROCESS_VIRTUAL_ADDRESS: (input) This parameter specifies the address of 
° 363s { the segment to which space is to be preallocated. 
o $370 { 
© 9371 { LENGTH: (input) This parameter specifies the desired length of the segment 
© 9372 { after preallocation. This raquest will altocate (length - segment.eoi ) 
o 9373 { number of bytes. 
o $374 { 
te) 9375 { STATUS: (output) This parameter will return the request status to the user. 
o 9376 { 
o 93377 
° 9378 PROCEDURE [XDCL, #GATE] mmp$os_preallocate_ file space 
o $378 ( process virtual _address: Ace11; 
o 9380 length: ost$segment_length; 
o $381 VAR status: ost$status); 
©} 9382 
Oo $383 VAR 
o $384 bytes _to_allocate: integer, 
o $385 current_time: 0 .. Of fFFFFFFFFFFF(IE), 
Oo $386 delay status: ost$status, 
oO $387 dfd_ip: Admt$disk_file descriptor, 
oO $388 eoi: amt$Ffile byte _ address, 
o 93389 segment number: ost$segment, 
o 93390 sd_p: Ammt$segment_descriptor, 
o 9391 sdtx_p: Ammt$segment_descriptor_ extended; 
° $332 
o $393 segment_number := #SEGMENT (process_virtual_address) ; 
4 9394 mmp$validate segment _number (segment_number, sd_p, sdtx_p, status); 
36 9395 IF NOT status.normal THEN 
3E s396 RETURN; 
40 93397 IFEND; 
40 9398 
40 933993 admp$fetch_eoi (sdtx_pA.sfid, eoi, status); 
64 9400 IF NOT status.normal THEN 
6C 9401 RETURN; 
6E 940602 IFEND; 
6E 9403 
SE 94804 bytes_to_ allocate := length - eoi; 
6E 9405 IF bytes _ to _ allocate <= © THEN 
7C 9406 RETURN; 
7E 9407 IFEND ; 
TE 9408 
7E 94809 current_time := #FREE RUNNING CLOCK (0); 
8&6 9410 REPEAT 
86 9411 mmp$assign_mass_ storage (segment_number, sdtx_pA.sfid, length, status); 
AE 9412 IF NOT status.normal AND (status.condition = dme$unable_to_alloc_all_space) THEN 
C6 9413 pmp$delay (1000, delay_status); 
E2 9414 IFEND; 
E2 9415 UNTIL (Status.mormal) OR ((#FREE_ RUNNING CLOCK (0) - current_time) > 60000000) ; 
FE 9416 
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FE 9417 


PROCEND mmp$os_preallocate_ file space; 
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NOS/VE - MMMSSEGMENT_MANAGER_SYSTEM_CORE 
MMPSPRESET_ PAGE STREAMING 
o 9419 
o 93420 PROCEDURE [XDCL, #GATE] mmp$preset_page_ streaming ri 
Oo 9421 ( segment_number: ost$segment ; 
© 9422 validating ring number: ost$valid_ring; 
o $423 preset _and_save_fb_and_ts: boolean; 
GO $424 temp_transfer_ size: integer; 
Oo 9425 VAR saved_transfer_size: © .. 15; 
Oo 9426 VAR saved free behind: boolean; 
Oo 9427 VAR status: ost$status); 
oO $428 
3° 94239 { Validate the pva and get a pointer to the segment descriptor. 
fel 9430 
oO $431 VAR 
oO $432 page streaming ts_shift: © .. 15, 
oO 9433 sdt_entry p: Ammt$segment_descriptor, 
oO 9434 sdtx_entry_p: Ammt$segment_descriptor extended; 
oO 93435 
O $9436 status.normal := TRUE; 
4 9437 mmp$validate_ segment number (segment_number, sdt_entry_p, sdtx_entry_p, status); 
36 9438 IF NOT status.normal THEN 
SE 9439 RETURN; 
40 9440 IFEND; 
40 9441 
40 9442 { Verify that the pointer is in the read bracket of the segment. 
40 $443 
40 9444 IF (validating ring number > sdt_entry_pA.ste.r2) OR (validating ring number > sdt_entry p%.ste.r2) THEN 
58 9445 osp$set_status_abnormal (‘MM’, mme$ring violation, status) ; 
8A 9446 RETURN; 
8C 9447 IFEND; 
sC 9448 
sC 9449 IF preset_and_ save fb_and_ts THEN 
34 9450 
94 9451 { Save the current setting of transfer size and free behind. Then set transfer size as specified, 
94 $452 { and if the streaming boolean is false, set the preset streaming boolean TRUE. 
$4 9453 
94 9454 saved free behind := (mmc$sa_free_behind IN sdtx_entry_pA.software attribute set); 
94 9455 IF NOT saved free behind THEN 
AC $456 sdtx_ entry pA.software attribute set :* sdtx_entry_pA.software attribute set + 
B4 9457 S$mmt$software_ attribute set [mmc$sa_free_behind]; 
B4 9458 IFEND ; 
B&4 9459 saved _ transfer size := sdtx_entry pA.stream.transfer_ size; 
B4 9460 mmp$convert_ps_ transfer _size (temp_transfer_size, page streaming ts_shift]; 
106 9461 
1906 9462 IF sdtx_entry_pA.stream.transfer size < page streaming ts shift THEN 
114A 3463 sdtx_entry p%.stream.transfer_ size := page streaming ts_ shift; 
122 9464 IFEND; 
122 9465 IF NOT sdtx_entry_p4.stream.streaming THEN 
130 39466 sdtx_entry pA.stream.preset_ streaming := TRUE; 
130 9467 IF sdtx_entry_p4.stream.sequential_accesses < mmv$page_ streaming prestream THEN 
148 9468 sdtx_entry_p4.stream.sequential_accesses := mmv$page_streaming_prestream; 
14C 9469 IFEND; 
14C€ 9470 IFEND ; 
14E 9471 
14E S472 ELSE 
14E 9473 
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14E 9474 { reset SDTX with the saved transfer size and free behind from a previous call to mmp$preset_page_streaming 


14E 9475 

14E S476 sdtx_ entry _p%.stream.preset*streaming := FALSE; 

14E 9477 IF NOT saved _ free _ behind THEN 

168 9478 sdtx_entry_ pA.software_ attribute set :: sdtx_entry pA.software attribute set * 
1748 9479 (-Smmt$software attribute set [mmc$sa_free_behind]}; 

17h 9480 IFEND ; 

174 9481 IF sdtx_entry pA.stream.transfer size >» saved _ transfer_size THEN 
192 9482 sdtx_entry pA.stream.transfer_ size :: saved transfer size; 

19A 93483 IFEND ; 

198A 9484 IFEND ; 

19A 9485 


184 9486 PROCEND mmp$preset_page_streaming ri; 
oO 9487 
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NOS/VE - MMMSSEGMENT_MANAGER_SYSTEM_CORE 
MMPSPROCESS FILE ALLOC 
o 9489 
° gag0 { The purpose of this procedure is to process file allocation 
° $491 { if memory management has set the assign active flag in the SDTX. 
© 9492 { This procedure is either called as a result of a trap by the 
te) 9493 { ring 1 trap handier or because a previous attempt to expand 
© 9494 { a file failed. 
° 9495 { In the case of a previous failure, this procedure is called periodically 
° 9496 { from the ring 3 Segment manager until it successfully expands the 
© 9497 { file, or the user terminates the task. 
o 9498 { 
o 94989 { MMPS$SPROCESS FILE ALLOC (allocation_length, status) 
© 9500 { 
Oo $501 { ALLOCATION LENGTH: (output) This parameter returns the total amount of space 
© 9502 { that was allocated by this request. 
o 9503 { 
re] 9504 { STATUS: (output) This parameter returns the request status. 
o 9505 { 
° 9506 
oO 93507 PROCEDURE [XDCL, #GATE] mmp$process_ file_aliloc 
o 9508 (VAR allocated length: amt$file_byte_address; 
o 9509 VAR status: ost$status) ; 
° $510 
Oo 9511 VAR 
oO $512 accumulated_allocated_ length: amt$file_byte_address, 
o $513 fde_p: gftS$locked file_desc_entry_p, 
° 9514 flush_ pages: boolean, 
© 9515 rb: mmt$rb_ringi_segment_ request, 
© 9516 segnum: integer, 
o 9517 sdt_p: mmt$max_sdt_p, 
o 9518 sdtx_p: mmt$max_sdtx_p, 
o 93519 tstatus: ost$status, 
o 9520 xcb_p: Aost$execut ion_control_ block; 
© 9521 
oO 9522 status.normal := TRUE; 
4 $523 osp$begin_system_activity; 
16 9524 accumulated allocated length := 0; 
16 9525 rb.reqcode ::= syc$rc_ring!_ segment_request ; 
16 9526 rb.request := mmc$sri_f lush_avai1_modified; 
16 9527 pmp$Sfind_executing task_xcb (xcb_p); 
2E 9528 mmp$get_max_sdt_sdtx_pointer (xcb_p, sdt_p, sdtx_p); 
2E 3529 
2E 9530 /allocate_loop/ 
2E 9531 FOR segnum := 0 TO xcb_pA.xp.segment_ table length O00 
84 $9532 
84 9533 IF segnum = O THEN 
8&8 9534 IF xcb_ pA.assign_active_sfid <> gfv$null_sfid THEN 
AO 93535 gofp$get_locked_fde_p (xcb_pA.assign_active_sfid, fde_p); 
1CE $536 IF fde_p <> NIL THEN 
1D8 9537 mmp$Sassign_mass_storage (06, xcb_pA.assign_active_sfid, ©, tstatus); 
200 9538 gfpS$unlock_fde_p (fde_p); 
2F2 9539 IFEND; 
2F2 3540 IFEND; 
2F6 $541 
2F6 9542 ELSEIF (sdt_p%.st [segnum].ste.vl <> osc$vl_invalid_entry) AND 
324 9543 (sdtx_p%.sdtx_table [segnum] .assign_active <> mmc$assign_active_nul1) THEN 
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324 9§544 rb.sfid := sdtx_pA.sdtx_table [segnum].sfid; 
324 9545 gfp$get_fde_p (rb.sfid, fde_p); 
380 9546 flush_pages := (fde_pA.media = gfc$fm_transient_segment } ; 
380 9547 mmp$assign_ mass storage (segnum, gfv$nuli_sfid, 9, tstatus); 
3B8 9548 IF tstatus.normal THEN 
3CO 95493 IF flush_pages THEN 
3c4 $550 i#call_monitor (#LOC (rb), #SIZE (rb)); 
SEO 9551 IFEND; 
3E4 9552 ELSEIF (tstatus.condition = dmeS$unable_to_alloc_all_space) OR 
414 $3553 (tstatus.condition = dmeSunable_ to_get_fd_lock} OR 
414 9554 (tstatus.condition = dfe$family_not_served) OR (tstatus.condition = dfe$server_not_active) OR 
414 9555 (tstatus.condition = dfe$server_has_terminated) THEN 
414 9556 IF (tstatus.condition = dme$unable_to_alloc_alil_space) THEN 
420 9557 gofp$get_fde_p (rb.sfid, fde_p); 
476 9558 dmp$get_total_allocated_length (fde_p, allocated length) ; 
482 93559 accumulated _ allocated Jength := accumulated _allocated length + allocated length; 
498 $3560 IFEND; 
498 $561 status := tstatus; 
4B4 9562 ELSEIF tstatus.condition = dme$unable_to_create_fdt_entry THEN 
4BC 9563 syp$terminate_ task (osc$rtr_sft_full); 
4cc $564 EXIT /allocate_loop/; 
4D4 9565 ELSE 
4p4 9566 osp$end_system_activity; 
4DC $567 syp$mfh_for_hang task; 
4E4 9568 IFEND; 
4E4 93569 IFEND; 
4E4 9570 FOREND /allocate_loop/; 
4E&8 9571 
4E& 93572 allocated length := accumulated allocated length; 
4E&8 3573 
4E&8 9574 osp$end_system_activity; 
4F& 9575 PROCEND mmp$process file_alloc; 
oO 9576 
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The purpose of this request is to reserve a segment number within the 
requesting task’s 
address space for subsequent explicit assignment. The reserved segment does 
not have any 
file or segment associated with it as a result of this request; the segment 
number is simply 
not chosen by memory management on any subsequent requests for an empty 
segment. 
The segment can be used in subsequent requests that explicitly pass 
segment management the 
segment number to be used. 


MMPS$RESERVE SEGMENT _NUMBER (SEGMENT_NUMBER, STATUS) 


SEGMENT_NUMBER: (output) This parameter specifies the segment number that 
has been reserved. 


STATUS: (output) This parameter specifies the request status. 


PROCEDURE [XDCL, #GATE] mmp$reserve_segment_number_r1 
( ada_stack_flag: boolean; 
VAR segment_num_list: Aarray [ * ] of ost$segment; 
VAR status: ost$status); 


VAR 
segment table length: integer, 
i: integer, 
sdt_entry p: Ammt$segment_descriptor, 
sdtx_entry p: Ammt$segment _descriptor_extended, 
xcb_p: Aost$execution_ control block, 
segnum: ost$segment ; 


pmp$find_executing task _xcb (xcb_p); 


status.normal :=: TRUE; 
.segnum :: mmv$first_ transient seg index - 1; 
segment _ tabie_length := xcb_pA.xp.segment_tabie_ length; 
FOR i := LOWERBOUND (segment_num_list4) TO UPPERBOUND (segment_num_list4) 
REPEAT 
segnum := segnum + 1; 


IF segnum > segment table _tength THEN 
expand _segment_table (xcb_p, status); 
IF NOT status.normal THEN 


RETURN; 
IFEND ; 
segment _table_ length := xcb pA.xp.segment_ table length; 
IFEND; 
sdt_entry_p := mmp$get_sdt_entry_p (xcb_p, segnum) ; 
sdtx_entry p := mmp$get_sdtx_entry_p (xcb_p, segnum) ; 
UNTIL (Sdt_entry_pA.ste.vl = osc$vi_invalid_entry) AND 
(sdtx_entry_ pA.segment_reservation_state = mmc$srs_not_reserved) ; 
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$633 
9634 
$635 
9636 
$637 
9638 
$6358 
§640 
$641 


IF ada_stack flag THEN 
sdtx_entry p%.segment_reservation_state 


ELSE 
sdtx_entry_pA.segment_reservation_ state := mmc$srs_reserved; 
IFEND; 
segment _nmum_list”’ [i] := segnum; 
FOREND ; 


PROCEND mmp$reserve_ segment _number_r1; 


mmc$srs_ reserved shared stack; 
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+ $pft$S$usage selections 


Oo $643 

° s644 { 

° 9645 { The purpose of this procedure is to set the access mode of a segment 
© 98646 { based on its hardware attributes. 

o 9647 { 

o 9648 { MMPS$SET_ACCESS_ MODE (SEGMENT_DESCRIPTOR, ACCESS MODE) 

o 9649 { 

Oo 9650 { SEGMENT_DESCRIPTOR: (input) This parameter is the segment descriptor 
o 9651 { from the segment table. 

o 9652 { 

ce) 9653 { ACCESS MODE: (output) This parameter is where the access mode for the 
° 9654 { specified segment descriptor is returned. 

o 9655 { 

° 9655 

Oo 9657 PROCEDURE [XDCL, #GATE] mmp$set_access_mode 

4 9658 ( segment_descriptor: ost$segment_descriptor ; 

4 9659 VAR access _ mode: pft$usage_selections) ; 

4 93660 

4 9661 access _mode := $pft$usage_ selections []; 

4 9662 

4 9663 IF segment_descriptor.xp <> osc$non_executable THEN 

14 9664 access mode := access_mode + $pft$usage selections [pfc$exeacute] ; 
22 9665 IFEND; 
22 9666 
22 9667 IF segment_descriptor.rp <> osc$non_readablie THEN 
2E 9668 access _ mode := access_mode + $pft$usage_ selections [pfc$readgd] ; 
3c 9669S IFEND; 
3c 9670 
3c 9671 IF segment _descriptor.wp <> osc$non_writable THEN 
48 9672 access mode := access_mode + $pft$usage_selections [pfc$shorten] 
SC 9673 $pft$usage selections [pfecSmodify] ; 
5c 9674 IFEND; 
Sc 9675 


SC 9676 PROCEND mmp$set_access_mode; 
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o 9678 

° 9679 PROCEDURE [XDCL, #GATE] mmp$set_access_selections_ri 

o 9g$680 ( segment_nmumber: ost$segment ; « 

oO 9681 validating ring number: ost$valid_ ring; 

oO $682 access selections: mmt$access selections; 

oO 9683 VAR status: ost$status) ; 

oO 9684 

o $685 VAR 

oO s686 sd_p: Ammt$segment_descriptor, 

o 93687 sdtx_p: Ammt$segment_descriptor_ extended; 

1°) 9688 

° 9689 { Validate the pva and get a pointer to the segment descriptor. 

o $3690 

o s691 mmp$validate_ segment number (segment number, sd_p, sdtx_p, status); 
30 96392 IF NOT status.normal THEN 
38 9693 RETURN; 
34 96394 IFEND ; 
3A s695 
3A geese { Verify that the pointer is in the read bracket of the segment. 
3A 36397 
3A 9698 IF (validating ring number > sd_pA.ste.r2) THEN 
4E 9699 osp$set_status_ abnormal (’MM’, mme$ring violation, ‘’, status); 
8O $700 RETURN; 
82 $701 IFEND; 
82 9702 IF access _ selections = mmc$as_sequential THEN 
sC $7063 sdtx_pA.software_ attribute set := sdtx_pA.software_ attribute set + 
AO $704 Smmt$software_attribute_ set [mmc$sa_read_ transfer_unit, mmc$sa_free_ behind] ; 
AO $705 ELSEIF access _ selections = mmc$as_ random THEN 
AG S706 sdtx_pA.software_ attribute set := sdtx_pA.software_ attribute set - 
BA 9707 Smmt$software attribute set [mmc$sa_read_transfer_unit, mmc$sa_free_ behind] ; 
BA 9708 ELSEIF access_selections = mmc$as_read_tu THEN 
co 3709 sdtx_pA.software attribute set := sdtx_pA.software_ attribute _ set + 
D4 $7190 $S$mmt$software_ attribute set [mmc$sa_read_transfer_unit] - 
D4 $711 Smmt$software_ attribute set [mmc$sa_free_ behind] ; 
D4 9712 IFEND; 
D4 $713 
D4 93714 IF (mmc$sa_read_transfer_unit IN sdtx_ pA.software_attribute set) THEN 
E4 $715 IF sdtx_p4A.stream.sequential_accesses < mmv$page_streaming prestream THEN 
F4 93716 sdtx_pA.stream.sequential_accesses := mmv$page_streaming_prestream; 
F8 93717 IFEND; 
F&S 3718 IFEND; 
Fs 9719 PROCEND mmp$set_access_selections_ri; 


o 38720 


13:33:34 


[pfc$append] 


13:33:34 


+ 


PAGE 910 


PAGE 911 


SOURCE LIST OF mmm$segment_manager_system_core NOS/VE CYBIL/II 1.0 889102 


NOS/VE - MMMSSEGMENT_MANAGER_SYSTEM_CORE 
MMPSSET_ SEGMENT_ACCESS RIGHTS 


o $722 . 

Oo $723 PROCEDURE [XDCL, INLINE] mmp$set_segment_access rights 
4 938724 sd: mmt$segment_descriptor ; 

4 $725 VAR sdtx: mmt$segment_descriptor extended) ; 

4 $3726 

4 9727 IF sd.ste.wp = osc$non_writabie THEN 

10 $728 sdtx.access rights := mmc$sar_read; 

1¢ 06.9729 ELSEIF mmc$sa_no_append IN sdtx.software_attribute set THEN 
2C 9730 , sdtx.access rights := mmc$sar_modify; 

34 9731 ELSE 
34 $732 sdtx.access rights := mmc$sar_write_ extend; 

3A $733 IFEND; 
34 3734 


3A 9735 PROCEND mmp$set_segment_access_ rights; 
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oO 9737 
oO 9738 PROCEDURE [XDCL, #GATE] mmp$set_segment_length_ri 
o 9739 ( segment_number: ost$segment ; 
o $740 validating ring number: ost$valid_ring; 
o 9741 segment _ length: ost$segment_length; 
o 9742 VAR status: ost$status) ; 
oO $743 
o 9744 { 
o 9745 { The purpose of this procedure is to set or get the segment 
° 9746 { specified segment. Whether to set or get segment iength is based on the 
° 9747 { ‘set_or_get_ segment length’ parameter. 
o 9748 { 
o 97493 
o 9750 VAR 
Oo s751 request block: mmt$rb_set_get_segment_length, 
oO 93752 sdt_entry_p: Ammt$segment_descriptor, 
o 93753 sdtx_entry_ p: Ammt$segment_descr iptor_extended; 
o $754 
° $755 mmp$validate segment _number (segment_number, sdt_entry_p, 
30 S756 IF status.mormal = FALSE THEN 
38 9757 RETURN; 
3A 9758 IFEND; 
34 $759 
34 $3760 { Verify that caller is within write bracket and has write access. 
34 9761 
3A 93762 IF validating ring mumber > sdt_entry_p4.ste.ri THEN 
4E S763 osp$set_status_abnormal (’MM’, mme$caliler_not_in_write_bracket, 
80 39764 RETURN; 
86 $9765 ELSEIF sdt_entry pA.ste.wp = osc$non_writable THEN 
82 93766 osp$set_ status abnormal (’MM’, mme$no_write_access, ‘’, status); 
C4 3767 RETURN; 
c& 3768 IFEND; 
C& S769 
c&8& 3770 gfp$get_fde_p (sdtx_entry_pA.sfid, request _bliock.fde_p); 
128 3771 request _block.request_ code := syc$rc_set_get_segment_length; 
128 93772 request block.subfunction_code := mmc$sf_set_segment_length_fde_p; 
128 $773 request block.segment_length := segment_length; 
128 3774 
128 93775 i#call_monitor (#LOC (request_block), #SIZE (request_block)); 
156 9776 


156 9777 PROCEND mmp$set_segment_length_r1; 
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o $780 
te) $781 PROCEDURE [XDCL, #GATE] mmp$store_segment_attributes_r1 
oO $782 ( segment_number: ost$segment ; 
© 9783 validating ring: ost$valid_ring; 
o 9784 segment_attributes: Aarray [ * ] of mmt$attribute_descriptor ; 
o $785 VAR status: ost$status) ; 
Oo $786 
o 9787 VAR 
o $788 access _ mode: pft$usage_ selections, 
o $789 scratch_segment_number: ost$segment, 
Oo 9790 fde_entry_ p: gft$locked file _desc_entry_p, 
ce) $791 i: integer, 
ce $792 pyva: Acell, 
Oo $793 sdt_entry_p: Ammt$segment_descriptor, 
o 3794 sdtx_entry p: Ammt$segment_descriptor_extended; 
o 9795 
ce) 97956 { Validate the pva and get a pointer to the segment descriptor. 
Oo $3797 
o $798 mmp$validate_ segment_number (segment_number, sdt_entry_p, sdtx_entry_p, status); 
30 3799 IF NOT status.normal THEN 
38 39800 RETURN ; 
34 $801 IFEND; 
34 9802 
3A 9803 IF (validating ring > sdtx_entry_ p%.open_validating_ring number) THEN 
4A 9804 osp$set_ status abnormal (‘MM’, mme$ring violation, ‘’, status); 
7C 9805 RETURN; 
7E 9806 IFEND; 
7E $807 
7E 9808 { Validate that attributes can be modified. 
7E 9809 
7E 9810 FOR i := LOWERBOUND (Segment_attributes4) TO UPPERBOUND (segment_attributesA) DO 
SE 9811 CASE segment_attributes’ [i].keyword OF 
E2 9812 = mmc$kw_null_keyword = 
ES 9813 => mmc$kw_ring numbers = 
E6 9814 sdt_entry pA.ste.r1 := segment_attributes’ [i] .r1; 
E&6 $8815 sdt_entry_ pA.ste.r2 := segment_attributes [i] .r2; 
104 98816 = mmc$kw_max_segment_length = 
104 9817 gofp$get_locked _fde_p (sdtx_entry pA.sfid, fde_entry p); 
240 8699818 fde_entry_ pA.file_limit := segment_attributes” [i] .max_length; 
240 98193 agfp$untock_ fde_p (fde_entry_p); 
356 $820 = mmc$kw_error_ exit procedure = 
356 3s:821 osp$set_status abnormal (’MM’, mme$S$unsupported_ keyword, ‘’, status); 
388 9822 RETURN; 
38E 93823 = mmc$kw_hardware attributes = 
38E 9824 IF (mmc$ha_execute_local IN segment_attributes’ [i].hardware_attri_set} AND (validating _ ring > 3) 
3B6 9825 osp$set_status_abnormal (’MM’, mme$execute local_invalid, ‘’, status); 
3E8 9826 RETURN; 
3EA 93827 IFEND; 
SEA 9828 
ZEA $829 IF mmc$ha_read IN segment_attributesA [i].nhardware_attri_set THEN 
408 9830 sdt_entry_p%.ste.rp := osc$read_uncontrolied; 
41E $831 ELSE 
41tE 9832 sdt_entry pA.ste.rp := osc$non_readablie; 
432 9833 IFEND; 
432 9834 IF mmc$ha_binding IN segment_attributess [i].hardware_attri_set THEN 
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450 9835 IF validating ring <= 3 THEN 

4S5A 9836 sdt_entry_ pA.ste.rp : = osc$binding segment ; 

46E 9837 ELSE 

46E 9838 osp$set_status abnormal (’MM’, mmeSbinding_attribute_invalid, ‘’, status); 
4A0 $839 RETURN; 

4A2 9840 IFEND; 

4A2 9841 IFEND; 

4A2 93842 IF mmc$ha_write IN segment_attributesA [i].hardware_attri_set THEN 

4coO 9843 sdt_entry_pA.ste.wp : = osc$write_ uncontrolled; 

404 9844 ELSE 

4b4 9845 sdt_entry_p4%.ste.wp := osc$non_writable,; 

4E6 9846 IFEND; 

4E6 9847 IF mmc$ha_cache_ bypass IN segment_attributes” [i].hardware_attri_set THEN 

504 9848 sdt_entry_p%.ste.vi :: osc$vl_cache_bypass; 

S1Aa $8493 ELSE 

514A 9850 sdt_entry_p%.ste.vi := osc$vil_reguilar_segment ; 

524 93851 IFEND; 

S2A 9852 IF mmc$ha_execute IN segment_attributes” [i].hardware_attri_set THEN 

548 9853 sdt_entry_p4.ste.xp := osc$non_privileged; 

S5C 9854 ELSE 

55C $855 IF mmc$ha_execute local IN segment_attributesA [i].hardware_attri_set THEN 
S564 9856 sdt_entry p%.ste.xp := osc$local_privilege; 

578 93857 ELSE 

578 9858 IF (mmc$ha_execute_ global IN segment_attributes’ [i].hardware_attri_set) AND 
588 9859 (validating ring > 1) THEN 

588 93860 osp$set_status_ abnormal (’MM’, mme$execute global_invalid, ‘’, status); 
SBA 9861 RETURN; 

5CO 38862 ELSE 

5CcoO $863 sdt_entry_p%.ste.xp :: osc$non_executable; 

$02 9864 IFEND; 

SD2 9865 IFEND; 

5D2 $8866 IFEND; 

5D6 9867 = mmc$kw_segment access control = 

5D6 s868 IF segment_attributes’ [i].access_control.execute privilege = osc$local_privilege THEN 
SF2 9869 osp$set_status_abnormal (’MM’, mme$execute_local_invalid, ‘’, status); 

624 3870 IFEND; 

624 9871 

624 9872 IF segment_attributesA [i].access_control.cache_bypass = TRUE THEN 

63E 9873 sdt_entry_p4.ste.vl := osc$vl_cache_ bypass; 

654 3874 ELSE 

654 9875 sdt_entry_pA.ste.vl := osc$vl_regular_segment ; 

664 9876 IFEND; 

664 9877 , 

664 9878 IF {segment_attributes’ [i].access control.execute privilege = osc$giobal_privilege) AND 
688 9875 (validating ring > 1) THEN 

688 9880 osp$set_status_abnormal (’MM’, mme$execute_global_invalid, ‘’, status); 

SBA 9881 RETURN; 

6CO 9882 ELSE 

6CO $883 sdt_entry_p4.ste.xp := segment_attributes4 [i].access control.execute privilege; 
6E&8 9884 IFEND; 

GES 93885 

6E&8 s3886 IF (segment_attributes4’ [i].access_control.read privilege = osc$binding_ segment) AND 
70C $887 {validating ring > 3) THEN 

70C 98888 osp$set_status_abnormal (’MM’, mmeS$binding attribute invalid, ‘’, status); 


73C 9889 RETURN; 
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73E 98390 IFEND; 

73E 9891 sdt_entry_p’.ste.rp := segment_attributes4 [i].access_control.read_ privilege; 
T3E $832 sdt_entry_p4.ste.wp := segment_attributes4 [i] .access_control.write privilege; 
776 $8393 ELSE 

776 9894 osp$set_status_abnormal (‘MM’, mme$set_unmodifiable_ attribute, ‘’, status); 
TAS 9835 RETURN; 

TAA 98396 CASEND; 

TAA 98397 FOREND ; 

TAE 9898 

7AE 9899 pva : = #ADDRESS (1, Segment_number, 0); 

TAE gs3s00 #PURGE BUFFER (osc$pva_purge_ all page seg map, pva); 

704 9901 


7C4 9902 PROCEND mmp$store_ segment_attributes ri; 
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THEN 


° ggo0q { 
ce) sso5s f{ The purpose of this request is to delete all segments with the 
ce] $906 { inheritance attribute of mmc$si_new_segment. These segments are primarily 
o 93907 { the task template segments. The SDT and SOTX tables are deallocated. 
o $908 { This request is used during task termination. 
o 9908 { 
© 9910 { MMPSTASK DELETE INHERITED _ SDT (TASK_ID, STATUS) 
° s911 { 
° $912 { TASK_ID: (input) This parameter identifies the task being terminated. 
© 9913 { 
© $914 { STATUS: (output) This parameter is where the request status is returned. 
© 9915 { The possibile error codes are: 
o 9916 { mme$ invalid _pva 
o 9917 { mme$invalid_ task_id 
o 9918 { mme$ref_to_unrecovered file 
o $3919 
o $920 PROCEDURE [XDCL, #GATE] mmp$task_delete_ inherited sdt 
o $9821 ( task_id: pmt$task_id; 
Oo $822 VAR status: ost$status) ; 
o 9923 
o 9924 VAR 
o 93925 fde_entry p: gft$file desc _entry_p, 
Oo 93926 local_sdt_p: Acell, 
te) $9327 local_sdtx_p: Acell, 
o $928 rb: mmt$rb_ ring! segment request, 
o 93829 sdt_p: mmt$max_sdt_p, 
o 9830 sdtx_p: mmt$max_sdtx_p, 
o 9931 segnum: ost$segment, 
Oo $9832 xcb_p: Aost$execution_control biock; 
o «693833 
oOo 869934 status.normal := TRUE; 
4 9835 pmp$find_task_xcb (task_id, xcb_p); 
24 9936 IF xcb_p = NIL THEN 
38 9937 osp$set_status_ abnormal (’MM’, mme$invalid_task_id, ‘’’, status); 
6A 9838 RETURN; 
6c 998339 IFEND; 
6C 99340 
6c 9941 mmp$get_max_sdt_sdtx_pointer (xcb_p, sdt_p, sdtx_p); 
6C $942 
6C 9943 /scan_sdt_for_inher ited_segs/ 
6C 9944 FOR segnum := © TO xcb_ pA.xp.segment_table length DO 
B4 9945 IF (sdt_pA.st [segnum].ste.v1 <> osc$vl_invalid_entry) AND 
EO 9946 (sdtx_pA.sdtx_table [segnum].inheritance = mmc$si_new_ segment } 
EO 9947 
EO 93948 { Close or delete the segment based on whether it is assigned to a file or not. 
EO 9949 gfp$get_fde_p (sdtx_pA.sdtx_table [segnum].sfid, fde_entry_p); 
134 939350 IF fde entry pA.open_count <> 1 THEN 
140)06=— $981 osp$system_error (’ FDE.OPEN_ COUNT incorrect’, NIL); 
164 $952 IFEND; 
164 $3953 fde_entry_pA.open_count :: fde entry _p4.open_count - 1; 
164 9954 destroy _ segment (sdtx_p4A.sdtx table [segnum].sfid, fde_entry_p, 
1A0 639355 sdtx_pA.sdtx_table [segnum].file_limits enforced, status) ; 
1A0 9956 IFEND; 
1A0 «$957 FOREND /scan_sdt_for_inher ited _segs/; 
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NOS/VE - MMM$SEGMENT_MANAGER_SYSTEM_CORE 
MMP$TASK_DELETE_INHERITED_SDT 


1A4 s9s9 { Release the SDT and SDTX table space. 
1A4 g9ss60 


1A&4 $961 local_sdt_p := #ADDRESS (1, osc$segnum_job_fixed_ heap, xcb_pA.sdt_offset) ; 

1A4 9962 local_sdtx_p :+ #ADDRESS (1, osc$segnum_job_fixed_heap, xcb_p.sdtx_offset) ; 

1AS4 8699963 IF #SIZE (local _sdt_p4) > osv$page_ size THEN 

1D6 $964 mmp$free_ pages (#ADDRESS (1, #SEGMENT [(local_sdt_p), #OFFSET (local_sdt_p)), #SIZE (local_sdt_pA), 
208 9965 osc$wait, status); 

208 93966 ITFEND ; 

208 9967 FREE local_sdtx_p IN osv$job_fixed_heap4; 

22E 9968 FREE local_sdt_p IN osv$job_fixed_ heaps; 


250 9969 
250 9970 PROCEND mmp$task_delete_inherited_sdt ; 
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NOS/VE - MMMSSEGMENT MANAGER_SYSTEM_CORE 
MMPSTERMINATE SHADOWING R1 


o s8s72 { 
° 9973 { The purpose of this request is to invalidate an ACTIVE segment in the SOT. 
o 9974 { The backing store file is destroyed and returned if one is assigned. 
o 99875 { 
o ss76 { MMPSTERMINATE SHADOWING R1 (SEGMENT_NUMBER, STATUS) ; 
o 9877 { 
° 9978 { SEGMENT_NUMBER: (input) This parameter specifies the SEGMENT NUMBER 
© $3879 { to be invalidated. 
o 3980 { 
° $9381 { STATUS: (output) This parameter specifies the request status returned. 
o 9982 { 
o 9983 
Oo 9984 
o 9985 PROCEDURE [XDCL, #GATE] mmp$terminate_shadowing ri 
o $986 ( segment number: ost$segment ; 
o $887 VAR status: ost$status) ; 
o 33988 
o $3989 VAR 
o 93990 i fde_ entry _p: gft$locked file desc _entry_p, 
o $3891 epen_count: gft$open_count, 
° $992 pyva: Acell, 
o 99383 rb: mmt$rb_ringi_segment_request , 
o 93996 sdt_entry_p: Ammt$segment_descriptor, 
o $3895 sdtx_entry_p: Ammt$segment_descr iptor_extended; 
o ss96 
o 93987 
o 39898 Ppva := #ADDRESS (1, segment_number, 0); 
& $9993 mmp$fetch sdt_sdtx_locked_ fde (segment_number, sdt_entry_p, sdtx_entry_p, fde_entry_p, status); 
4&8 10000 IF status.normal = FALSE THEN 
50 10001 RETURN; 
§2 10002 IFEND ; 
§2 1000603 
§2 10004 
52 10005 { Verify if shadow active. Only READ WRITE shadowed segments can be terminated 
52 10006 
52 10007 IF sdtx_entry_p’.shadow_info.shadow segment_kind <> mmc$ssk_read_ write _ file THEN 
SE 10008 osp$set_status_abnormal (‘MM’, mme$invalid_shadow_segment, ’’, status); 
8E 100098 gfp$unlock fde_p (fde_entry_p); 
17TA 106010 RETURN; 
17C 10011 IFEND; 
17C 10012 
17C 10013 
17€ 10014 { Clear any segment locks left by the user. 
17€ #10015 
17C 10016 IF sdtx_entry pA.segment_lock <> mmc$iss_ none THEN 
188 10017 mmp$unlock_ segment (pva, mmc$lus_ free, osc$nowait, status); 
1A8 10018 IF NOT status.normal THEN 
1BO 10019 ofp$untlock_fde_p (fde_entry_p); 
2A6 10020 osp$system_error (‘Unexpected mmp$unlock segment error’, Astatus); 
2CA 10021 IFEND; 
2CA 10022 IFEND; 
2CA 10023 
2CA 10024 { Decrement active file open count. Delete the active FDE if open count is now zero. 
2CA 16025 


2CA 10026 fde_entry_ pA.open_count : = fde_entry pA.open_count *- 1; 
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2CA 10027 open count ::= fde_entry pA.open_count; 

2CA 10028 gfp$uniock_fde_p (fde_entry_p); 

3ccC 10029 

3Cc 10030 IF open_count = 0 THEN 

3D0 10031 destroy segment (sdtx_entry pA.sfid, fde_entry_p, sdtx_ entry pA. file limits enforced, status); 
3EE 10032 IFEND ; 

3EE 10033 

3EE 10034 { Change segment table entry to be unshadowed. 

3EE 10035 

3EE 10036 sdt_entry p%.ste.asid := 0; 

SEE 10037 sdtx_ entry pA.sfid := sdtx_entry p4.shadow_info.shadow_sfid; 

SEE 10038 sdtx_entry pA.shadow_info.shadow_segment_kind := mmc$ssk_none; 
3EE 100398 sdtx entry pA.shadow_info.passive_for_ shadow _by segnum := FALSE; 
3EE 10040 

SEE 10041 #PURGE BUFFER (osc$pva_purge_ali_page_seg map, pva); 

40C 10042 


4o0C 10043 PROCEND mmp$terminate_ shadowing ri; 
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Oo 10045 
© 10046 { 
o 10047 { The purpose of this procedure is to validate a segment. Pointers to the 
© 10048 { segment’s SDT and SDTX entries are returned. The segment number is 
© 10049 { checked to see if it is within the bounds of the segment table and whether the 
© 10050 { valid bit is set. 
o 10051 { 
© 10052 { MMPSVALIDATE SEGMENT NUMBER (SEGMENT_NUMBER, SOT_ENTRY_P, 
© 10053 { SDOTX_ENTRY_P, STATUS) 
o 10054 { 
© 10055 { SEGMENT _ NUMBER: (input) This parameter specifies the segment to he 
o 10056 { validated. 
© 100857 { 
© 10058 { SDT_LENTRY_P: (output) This parameter is where a pointer to the SDT entry 
o 10059 f{ is returned. 
© 10060 { 
© 10061 { SDTX_ENTRY_P: (output) This parameter is where a pointer to the SDTX entry 
© 10062 { is returned. 
o 10063 { 
© 10064 { STATUS: (output) This parameter is where the request status is returned 
o 10065 { to the caller. The possibile error codes are: 
o 10066 { mme$segment_number_not_in_use 
o 10067 { mme$segment_ number too_big 
o 10068 { 
© 10069 
Oo 100706 
Oo 10071 PROCEDURE [XDCL, #GATE] mmp$validate_ segment number 
© 10072 ( segment_number: ost$segment; 
© 10073 VAR sdt_entry_p: Ammt$segment_descriptor ; 
Oo 10074 VAR sdtx_entry_ p: Ammt$segment_descriptor_extended; 
© 10075 VAR status: ost$status); 
Oo 10076 
Oo 10077 VAR 
o 10078 xcb p: Aost$execution_control_ block; 
Oo 10079 
o 10080 Status.normal := TRUE; 
4 10081 pmp$find_executing task_xcb (xcb_p); 
14 19082 
14 10083 IF segment number > xcb_ pA.xp.segment table length THEN 
38 10084 IF segment number > 4035 THEN 
40 10085 osp$set_status_abnormal (’MM’, mmeSsegment_number_too_ big, ’’, status); 
74 10086 ELSE 
74 10087 osp$set_status abnormal (’MM’, mme$Ssegment_number_not_in_use, ’’, status); 
AGB 10088 IFEND; 
&A& 10089 RETURN; 
A& 10090 IFEND; 
A& 10091 
A& 100892 sdt_entry p := mmp$get_sdt_entry_p (xcb_p, segment_number ); 
A& 1060093 sdtx_entry p := mmp$get_sdtx_entry op (xcb_p, segment_number ) ; 
A&B 10094 IF sdt_entry_pA.ste.vil = osc$vi_invalid_entry THEN 
116 10095 esp$set_ status _abnormal (‘MM’, mme$segment_number_not_in_use, ‘’’, status); 
148 100956 IFEND; 
148 10097 


148 10098 PROCEND mmp$validate_ segment number ; 
© 10100 MODEND mmm$segment_manager_ system_core; 
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exx* [2$05578173AS0102D19890821T183254 L=ZZ2XXLIST BeLGO DANONE LO=R RC=NONE OPT=SCHED EL=F LF=CS612 PAD=0 
ERROR LIST OF mmm$segment_manager_system_core NOS/VE CYBIL/II 1.90 898102 1989-08-21 13:33:34 PAGE $23 
ERROR LINE TEXT 
NARNING CY 821 7510 Code scheduling abandoned for this block due to register jamming. 
WARNING CY 821 7544 Code scheduling abandoned for this bliock due to register jamming. 


LEVEL SUMMARY 
ee aX 2 warning diagnostics 


REFERENCES OF mmm$segment_manager_system_core NOS/VE CYBIL/II 1.0 891062 
IDENTIFIER: --+--e- 2 ee eee eee ee DEFINED ee cee === +--+ REFERENCES 
ON LINE 
a2_previous_save_area 4877 9164 
access _ control 3860 7805 7811 
8512/M 8513/M 
$831 9892 
access_mode $659 S661/M 9664/M 
access rights 4495 7507/M 7507/M 
$354/M $354/M 
access selections $682 9702 9705 
accumu lated_allocated length $512 9524/M 9559/M 
ada_stack_filag $601 $633 
add_sdt_sdtx_entry 7447 7555 7936 
addr 5458 8560/M 
addr list 8530 8560/S &8560/M 
addr_returned 8531 &8558/M 8S566/P 
allocate _loop $530 3530 9564 
allocated length 8536 &8554/pP 8556 
allocated length $075 3083/P 3096/P 
allocated length $508 9558/P 9559 
allocation_unit_size 2009 8685/M 
already_ locked 5572 5577 5577 
already_ locked 5588 5612 5613 
already_ locked 5789 5797 5737 
already locked T4447 7514 7514 
already_ locked 7572 7612 7612 
already locked 7662 7712 7712 
already, locked 8121 8243 8243 
already, lecked 8390 8417 8417 
already, locked 8526 8552 8552 
already. locked 8849 8926 8926 
already_ locked $295 9338 $338 
ailready_ locked 9507 9535 $535 
already_locked 9781 9817 $817 
amc$access_ mode 1134 611 
amcS$average_record_ length 1136 686 
amc$block_type 1137 613 
amc$cell_pointer 16 20 
ame$character_conversion 1138 615 
amc$c lear space 1138 617 
amc$collate_ table name 1141 688 
amc$compression_procedure_name 1194 690 
amc$data_padding 1142 693 
amc$dynamic_home_block_space 1195 635 
amc$embedded_key 1143 697 
amc$error_exit name 1144 6139 
amc$error_ limit 1146 699 
amc$error_ options 1147 621 
amc$est imated record count 1148 701 
amc$file access procedure 1149 623 
amc$file_byte_limit =) 12 438 
amc$file_contents 1150 625 
amc$file_ limit 1152 627 
amc$filte organization 1153 629 
amc$fitle processor 1154 631 
eK REFERENCE ABBREVIATIONS Mzmodify, 


REFERENCES OF 


IDENTIFIER------- erent eee 


amc$file structure 
amc$forced write 
amc$hashing_ procedure name 
amc$heap_pointer 
amc$index_ levels 
amc$index_ padding 
amc$initial nome block count 
amc$internal_code 
amc$key length 

amc$key_ position 
amc$key_ type 

amc$ label_exit_name 

amc$ label _options 

amc$ label type 
amc$1ine_number 

amc$ loading factor 

amc$ lock _expiration_time 
amc$log_ residence 

amc$ logging options 
amc$max_attribute 
amc$max_block_length 
amc$max_block_number 
amc$max_error_count 
amc$max_file_id_ ordinal 
amc$max_home_blocks 
amcS$max_index_level 
amc$max_key_ length 
amc$max_key_ position 
amc$max_ line number 
amc$max_lines_per_inch 
amc$max_page_width 
amc$max_path_name_size 
amc$max_record length 
amc$max_ records per _block 
amc$max statement_id_length 
amc$max_user_info 
amc$max imum_block 
amc$max imum_keyed_ record 
amc$maximum_record 
amc$message_ contro} 
amc$min_block_length 
amc$min_record length 
amc$nuli_attribute 
amc$open_position 
amc$padding_ character 
amc$page_format 
amc$page_length 
amcS$page_width 
amc$preset_value 
amc$record limit 
amc$record type 
amc$records_ per_block 
amc$return_option 


xxx 


ON LINE 


REFERENCE ABBREVIATIONS 


mmm$segment_ manager _system_core NOS/VE CYBIL/II 


“--°- “REFERENCES 


Memodify, 


1.0 89102 


1301 


1044 


7816 
8514/M 


9664 
7507/M 
9728/M 
9708 
S559 
8018 
8561/S 


9570 


9572/M 


7717 


895 


Atattribute, 


1305 


Atzattribute, 


7819 
9868 


9668/M 
7543/™M 
9730/M 


9572 


8561/M 


7717 


$333 


S=subscript, 


$S:subscript, 
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7824 7825 8508/M  8510/M 

9872 $878 $883 8886 

S668 9672/M 9672 

7543/M 7543/M 8691/M $354/M 

S732/M 

8566/P 

969 1248 1310 

I=1/O0 ref, Rtread, Wewrite, Pzparameter 
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Is1/0 ref, 


Reread, Wewrite, P=sparameter 


REFERENCES OF 


KEE 


REFERENCES OF 


IDENTIFIER----- ee eee ee ee eee eee 


_ amt$max_record_ length 
amt$message_control 
amt$min_bilock_length 
amt$min_ record length 
amtSopen_position 
amt$padding character 
amt$page_format 

. amt$page_ length 
amt$page_width 

amt $path_name 

- amt$pointer kind 
-amt$preset value 
amt$record limit 
amt$record type 
amt$records_ per block 
amt$return_option 
amt$ring attributes 

. amt$statement_id_length 
amt$statement_id_location 
amt$statement_identifier 
amt$tape_error_action 
amt$tape_error_options 
amt $unused_ bit _count 
amt$user_info 
amt$vertical_ print _density 
asid 

asid 

asid 

asid 

asid 

asid 

assign_active 
assign_active 
assign_active sfid 
aste_p 


asti 
asti 
asti 


“Vasti 


asti 

asti 

attach count 
attrib 


es 


IDENTIFIER +6 78 2823 5:6 22 eee = ----DEFINED 
: ON LINE 
amc$ring_ attributes 1190 
amc$sequence_pointer 17 
amc$statement_identifier 1191 
‘amc$user_info 1192 
amc$vertical print density 1193 
amt$access_ selection 600 
- amt$average_record_length 1044 
amt$block_header_ type 736 
amt$block_number 758 
amt$biock_status 737 
amt$block_type 1047 
amt$collation_vatlue 1052 
amt$compression_procedure_name 9603 
-amt$data_ padding 1055 
amt$dynamic_home_block_space 922 
amt$entry point_reference 906 
amt$error_ limit 1122 
amt$estimated_ record count 1131 
amt$file_ attribute _ keys 1246 
amt$file_byte_address 12 
amt$file_ contents 781 
amt$file_id_ordinal 1070 
amt$file_id_ sequence 1071 
amt$file identifier 1066 
amt$file_item 604 
amt$fitle_ limit 438 
amt$file organization 1252 
amt$file position 1255 
amt$file_ processor 842 
amt$file structure 888 
amt$forced_ write 1258 
" amt $hashing_ procedure_name $24 
amt$index levels $31 
amt$index padding 1262 
amt$initial_home_biock_count $36 
amt$internai_code 1264 
amt$key_length 1271 
amt$key position 1273 
-amtSkey type 1282: 
amt$label_options 5833 
amt$ label type 1289 
amt$line_number 9406 
amt$line_number_ length 949 
amt$line_ number location 951 
amt$ loading factor 954 
-, amt$lock_expiration_time 956 
-amt$log residence 958 
amt$ logging _options 961 
amt$ logging possibilities 964 
y amt$max_block_length 760 


REFERENCE ABBREVIATIONS 


DEFINED 
ON LINE 
972 
1299 
1301 
1305 


F127 


REFERENCE ABBREVIATIONS 


mmm$segment_manager_system_core NOS/VE CYBIL/II 


REFERENCES 


M=modify, 


mnm$segment_manager_system_core NOS/VE CYBIL/II 


REFERENCES 


650 
726 


Memodify, 


1.0 891062 


745 
748 


824 


411 
1790 
5403 
9075 


1285 
603 
628 


740 


1.0 89102 


951 
958 


668 


749 


7833 
7356/M 
7141/S 
7157/™M 
7355/M 
7356 
76S2/M 
7607/M 
$534 
7360 


7350 
7358/S 
7141/M 
7155/8 
7355/S 
7351 
7369 
7693 
7730 
7748 
7782 
7800 
7824 
7845 
7315 


7155 


451 
1816 
5467 
$388 


1663 


746 


Azattribute, 


$98 


1661 


7834 
7835 /M 
7142/M 
7187 
7355 


8216/M 
7624 
9535/P 
7360 


9012 
8207/M 
7141 
7155/8 
7355/Ss 
7354 
7384 
7694 
7733 
7749 
71783 
7803 
7825 
7847 
7944 


7185 


Azsattribute, 


4s5 
1840 
5474 
9508 


2011 


747 


S$=subscript, 


2898 


7835 
8206/M 
7142 
7157 
7355 


9543 
T640/P 
$537/P 
7361 


7144 
7155/8 
7355/8 
7355/P 
8225/M 
7695 
7733 
7756 
7784 
7805 
7827 
7851 


7155 


S=subscript, 


467 
2007 
5487 
9512 


2888 


8598/M 


7363 


7156/S 
7355/S 


8687/M 
7706 
7734 
7761 
7785 
7811 
7832 
7856 


7186 


I=1/0O ref, 


I=I/0 ref, 
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8706/M 


7363 


7716 
7738 
7766 
7786 
7812 
7833 
7887 


7355 
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469 485 1741 
3760 5361 5362 
5512 5512 7579 

R=read, Wewrite, P=2parameter 
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10036/M 

7366 7366 
7728 7729 
77393 7741 
77693 7772 
7787 7792 
7816 7819 
7834 7835 
7859/P 7869 
7355 7355 


Reread, Wewrite, P«parameter 


REFERENCES OF mmm$segment_manager_system_core NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 928 
IDENTIFIER---+---2---- 2222+ - ++ -DEFINED--------- eee eee REFERENCES 
ON LINE 

7355 

byte offset 3774 $253/M 9257 

byte offset $241 $257/M 

bytes _ to_allocate 9384 9404/M 9405 

cache_bypass 3923 7805 &508/M 8510/M 9872 

cache bypass 7455 7476/M 7487/M 7432/M 7550 

caller_id 8856 8884 8890 

caller_ring 8029 8037/S 

cell_p 7456 7522/M 7524 7551/™M 7552 

cell pointer 3905 7952/M 

child _sdt_entry_p 8127 8249/M 8251/M 

child sdtx entry op 8128 8250/M 8252/M 8259/M 8260/M 

child _xcb_p 8129 8150/P 8151 8191/M 8192/M 8193/M 8194/M 8195/M 8249 /P 
8250/P &8259/P 

class 459 7619/M 7621/M 

clear space 38439 8505/M 

cnv 5572 5577/M 5577 

env 5589 5622/M 5623 

cnv S706 5710/M 57190 

cnv 5715 5746/M 5746 

env $759 5771/M 5772 

cnv 5789 5797/M 5797 

env T4477 7514/™M 7514 

cnv 7447 7516/M 7516 

env 7572 7612/M 7612 

env 7572 7645/M 7645 

cnv 7662 7712/M 7712 7717/M 7717 

env 7662 7914/M 7914 7955/M 7955 

cnv 7392 8022/M 8022 

cnv 8074 8094/M 8094 

env 8121 8243/M 8243 

cnv 8121 8245/M 8245 

env 8390 8417/M 8417 

env 8424 8520/M 8520 

crv 8526 8552/™M 8552 

cnv 8526 8S555/M 8555 

cnv 8573 8599/M 8599 

env 8649 8711/M 8711 

cnv 8849 8896/M 8896 8907/M 83907 88329/M 8329 8952/M 83952 

env 884g 8926/M 8926 

env $295 $338/M $338 

cnv 9235 $340/M 9340 

env 9507 9535/M 9535 

env $807 $538/M 9538 

env 9781 $817/M 9817 

env $781 9819/M 9819 

env g9é5 10003/M 10009 10019/M 10018 10028/M 10028 

code 5692 5577/™M 5620/M 5710/M 5746/M 5770/M 5797/M 7514/M 7516/M 
7612/M 7645/M 7712/M 7717/M 79814/M 7955/M 8022/M 8094/M 
8243/M 8245/M 8417/M 8520/M 8552/M 8555/M 8593S/M &8711/M 
&8896/M 8907/M &8926/M 8929 /M 8352/M 8338/M S340/M 8$535/M 
$538/M $817/M 9819/M 10009/M 10019/M 10028/M 

eX REFERENCE ABBREVIATIONS Memodify, Azattribute, Sssubscript, Is1/0 ref, Reread, Wewrite, Pzparameter 


REFERENCES OF 


IDENTIFIER 


code 
code 
code 
code 
code 
code 
code 
code 
code 
code 
code 
cade 
code 
code 
code 
code 
code 
code 


condition 


condition 


content 
count 


count 


create sdt_and_sdtx 


ctime 


current length 
current time 


cycle rb 
cycle rb 
cycle rb 
cycle rb 
cycle rb 
cycie rb 


cycie rb 
cycie rb 
cycle rb 
cycle rb 
cycle rb 
cycle rb 


—e ewe ew mw ewe ee ee ee ee 


*e* 


DEFINED 
ON LINE 
5706 
5715 
S754 
7447 
7572 
7662 
7992 
8074 
8121 
8424 
8526 
8573 


REFERENCE ABBREVIATIONS 


mmm$segment_ manager _system_core NOS/VE CYBIL/II 


1.0 89102 
REFERENCES 

5710 
5746 
5770 
7516 
7645 
7914 7355 
8022 
80394 
8245 
8520 
8555 
8599 
8711 
88396 8907 83293 
$340 
$538 
9819 
100093 10019 10028 
78399 9091 9091 
9554 Ssss55 sS56 
6120/P 7264/P &8362/P 
8744 8745 
5577/™M 5577 S607/M 
5733/M $733 5797/M 
7516 7612/M 7612 
7717/M 7717 7914 
8022 8022/M 8022 
8245 8245/M 8245 
8552/M 8582 8555 
8711 8711/M 8711 
83907 8926/M 8326 
8S52 9338/M $338 
9538 §8538/M 9538 
10009 10009/M 10009 
190028 
8792 8&OS 
8199 8262 
$033/M 9037 
8446/M 
94039/M 9415 
5577/M 5577/M 5577/M 
561393/M 5620/M 5621/M 
5797/M S5797/M 5737/M 
7514/M 7514/M 7514/M 
7612/M 7612/M 7612/M 
7712/M 7712/M 7712/M 
7717/™M T717/M 7717/M 
&8243/M 8243/M 8243/M 
&8417/M 8417/M 8417/M 
&8552/M 8552/M 8552/M 
8926/M 8926/M 8926/M 
$338/M 8338/M 8$338/M 
§535/M gs535/M $535/M 

Msmodify, Azattribute, 


83952 


sos2 
9562 
8795 


5607 
57397 
7645 
7914/M 
8094 
8417/M 
8555/M 
8896 
8329 
9340 
9817/M 
10019 


5577/M 
5623/M 
5797/M 
7514/M 
7612/M 
7712/M 
7717/M 
8243/M 
8417/M 
8552/M 
8826/M 
9338/M 
$535/M 


Setsubscript, 


1989-08-21 


9412 $552 
$258/P 

5710 5710/M 
7514/M 7514 
7645/M 7645 
7914 7955 
8094/M 8094 
8417 8520 
8555 85399 
8896/M 8896 
89239/M 8923 
9340/M $3406 
9817 $8139 
10018/M 10019 
5577/M SS77/P 
5624/M 5625/P 
S5S797/M 5797/P 
7514/M 7514/P 
7612/M 7612/P 
7712/M 7712/P 
7717/P 7717/*P 
8243/M 8243/P 
8417/M 8417/P 
&8552/M 8552/P 
8926/M 89326/P 
§$338/M 9338/P 
8535/M 9535/P 

Is1/0 ref, 


13:33:34 
$553 $554 
§710 $732 
7516 7516/M 
7712/M 7712 
7955/M 7955 
8243/M 8243 
8520/M 8520 
8599/M 8599 
&307 8907/M 
8352 8952/M 
8535/M $535 
$819/M 9818 
10028 10028/M 
5577/P 
5625/P 
5797/P 
7514/P 
7612/P 
7712/P 7717/M 
8243/P 
8417/P 
8552/P 
88326/P 
9338/P 
§535/P 


R=read, Wewrite, P=zp 


PAGE 9298 


arameter 


REFERENCES OF mmm$segment_manager_system_core NOS/VE CYBIL/II 1.0 88102 1889-08-21 13:33:34 PAGE 330 
IDENTIFIER------- cer r rere reece DEFINED~-----2-ce rer ecee REFERENCES 
a ON LINE 
cycie rb $781 §$817/M 9817/M 9817/M 9817/M $817/M 9817/P 8817/P 
cycite task S706 5710/M 5710/M 5710/M 5710/M 5710/M 5710/P 5710/P 
cycie_ task 5715 5746/M S5746/M 5746/M 5746/M 5746/M 5746/P 5746/P 
“cycle _task S767 5769/M 5770/M 5772/M 5773/™M 5774/M 5775/P 5775/P 
cycle _ task 7447 7516/M 7516/M 7516/M 7516/M 7516/M 7516/P 7516/P 
cycie_ task 7572 7645/M 7645/M 7645/M 7645/M 7645/M 7645/P 7645/P 
~cycle task 7662 7914/M 7914/M 7914/M 7914/M 7914/M 7914/P 7914/P 7955/M 
7955/M 7955/M 7955/M 7955/M 7955/P 7955/P 
cycle _task 7992 8022/M 8022/M 8022/M 8022/M 8022/M 8022/P 8022/P 
cycle task 8074 8094/M 8094/M 8094/M 80934/M 8094/M 8094/P 8094/P 
cycle task 8121 &8245/M 8245/M 8245/M 8245/M 8245/M &82a5/P 8245/P 
cycle task 8424 8520/M 8520/M &8520/M 8520/M 8520/M 8520/P 8520/P 
cycle task 8526 8555/M 8555/M 8555/M 8555/M 8555/M 8555/P &8555/P 
cycie task 8573 8599/M 8599/M &8539/M 8599/M 8599/M 8599/P 8599/P 
cycle task 86493 8711/M 8711/M 8711/M 8711/M &8711/M 8711/P 8711/P 
cycie_ task 8849S 8896/M 8896/M 8896/M 8896/M 8896/M 8896/P 8896/P 8307/M 
8907/M 8907/M 8907/M 8907/M 8907/P 8907/P 8929/M 8929/M 
8929/M 8929/M 8929/M 8929/P 89259/P 8952/M 89352/M 8952/M 
8952/M 8952/M 8952/P 8952/P 
cycle task $295 $340/M 9340/M 9340/M 9340/M 3340/M 9340/P 9340/P 
“cycle task $507 9538/M 8538/M 9538/M 9538/M 9538/M 9538/P 9538/P 
cycle _ task $781 $819/M 9819/M 9819/M 9819/M 9819/M 9819/P 9819/P 
cycle_ task 9385 10003 /M 10009/M 10009/M 10003/M 10009/M 10009/P 10009/P 10019/M 
10019/M 100139/M 10019/M 10019/M 10019/P 10019/P 10028/M 10028/M 
10028/M 10028/M 10028/M 10028/P 10028/P 
delay status 9386 9413/P 
dest 5819 58293 
dest 9111 9144 
destination_pva 3773 §$252/M 
destination_pva 4621 9143/P 
destination_pva $240 §$252 
destroy segment 7161 7184 8933 8359 $954 10031 
dfc$command_record_bytes 6345 6353 
“dfc$division_overwrite words 6332 6360 
dfc$esm_command_record size 6353 6361 
dfc$esm_header_record_size 6354 6361 
dfc$esm_maintenance_buf_size 6333 6364 
‘dfc$esm_memory_base_shift 6339 6361 6362 6362 
dfc$header_record bytes 6344 6354 
dfc$max_esm_memory_size 6334 6363 
, dfc$max_ number _of_ mainframes 6341 6326 
dfc$min_cdcnet_errors 327 333 335 338 341 344 347 350 353 
356 359 362 382 
cdifc$min_data_record bytes 6349 6360 
- dfcSmin_driver_test_errors 322 370 373 376 3793 
dfc$min_ecc 32 38 41 44 a7 50 54 58 61 
64 67 790 73 76 73 82 85 
88 $1 95 38 101 105 108 111 
114 117 120 123 126 1293 132 135 
138 141 144 148 182 155 158 162 
165 168 171 174 177 180 183 186 
190 183 197 200 203 206 209 212 
* ex REFERENCE ABBREVIATIONS Mzmodify, Atattribute, Stsubscript, I21/0 ref, Reread, Wewrite, Psparameter 
‘ od 
REFERENCES OF mmm$segment_manager_system_core NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 931 
IDENTIFIER------- err ere rere DEF.UNED: 2822s ses coe Se REFERENCES 
ON LINE 
215 219 223 227 230 233 236 240 
244 247 250 253 256 259 263 266 
270 273 276 279 282 285 289 232 
295 299 303 308 311 315 322 324 
327 329 
dfc$min_esm_division_size 6359 6363 
dfc$min_mm_recovery_ errors 3293 385 389 332 
dfd_p 5409 5423/M 
dfd_p 8526 8553/M 
dfd_p 8537 8553/P 8556 
dfeSfamily not served 197 9091 $554 
‘dfe$server_has_ terminated 180 9092 9555 
dfeS$server_ not _active 129 sogi 9554 
dft$mainframe_ set 6326 6276 6277 6397 6398 
aisk_ file descriptor p 2021 5422 8553 
dmc$a2 1351 1355 
dmc$allocated_ltength 512 450 1839 
dmc$asid 512 4S2 
dmcSbyte_address 513 454 ; 
dmc$bytes_per_allocation 513 456 
dmc$bytes per_level_2 1772 1780 
dmc$chapter length 520 504 2905 
dmc$c lass 513 458 1541 2881 7617 
dmc$c lass_ordinal 513 460 1543 2883 
dmc$clear_space 514 462 2885 
“dmc$default_number_fau_entries 1984 1977 
dmc$device_file_list_index 514 464 1841 
dmc$device_manager_error_ code 2223 2224 2227 2230 2233 2236 2239 2242 2245 
2248 2251 2254 2257 2260 2263 2266 2269 
2272 2275 2278 2281 2284 2287 22390 2293 
2296 2239 2302 2305 2308 2311 2314 2317 
2320 2323 2326 2329 2332 2335 2338 2341 
2344 2347 2350 2353 2356 2359 2362 2365 
2368 2371 2374 2377 2380 2383 2386 2389 
2392 2395 2398 2401 2404 2407 2410 2413 
2416 2419 2422 2425 2428 2431 2434 2437 
2440 2443 2446 2449 2452 2455 2458 2461 
2464 2467 2470 2473 2476 2479 2482 2485 
2488 2491 2494 2497 2500 2503 2506 2509 
2512 2515 2518 2521 2524 2527 2530 2533 
2536 2539 2542 2545 2548 2551 2554 2557 
2560 2563 2566 2569 2572 2575 2578 2581 
2584 2587 2590 2533 2596 2599 2602 2605 
2608 2611 2614 2617 2620 2623 2626 2629 
2632 2635 2638 2641 2644 2647 2650 2653 
2656 2659 2662 2665 2668 2671 2674 2677 
2680 2683 2686 2689 2682 2695 2698 2701 
2704 2707 2710 2713 2716 2719 2722 2725 
2728 2731 2734 2737 2740 2743 2746 2749 
2752 2755 2758 2761 2764 2767 2770 2773 
2776 2779 2782 2785 2791 27394 2797 2800 
2803 2806 2808 2812 2815 2818 2821 2824 
2827 2830 2834 2837 2840 2845 2848 2851 
ee REFERENCE ABBREVIATIONS Msmodify, Atattribute, S*subscript, I21/0 ref, Rzread, Wewrite, P=parameter 


REFERENCES OF mmm$segment_manager_system_core NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 932 


IDENTIFIERs +--+ - rer eee en eee + DEP INED- = +++ eee 20% ----REFERENCES 
ON LINE 
2854 2857 2860 2863 2866 2869 2872 

dmc$eof_byte_address 514 466 
dmc$eoi_byte_address 515 468 
dmc$file_hash 515 470 
dme$file_ kind 516 - 476 i847 
dmce$file_Timit 515 472 2887 
dmc$file status 515 474 
dmc$global_file_ name 516 478 
dmc$internal_vsn 516 480 1843 
dmc$level_i_table_ size 1768 1772 1775 
dmc$ locked file 516 482 2889 
dmc$ logical length 517 484 
dmc$master_volume_ required 517 486 1549 2891 
dmc$max_bytes_per_allocation 1347 406 1340 1342 1343 
dmc$max_bytes_per_dau 1881 1873 
dmc$max_bytes_per_mau 1917 1903 
dmc$max_class_ordinal 1372 1369 
dmc$max_dau_address 1883 1877 1925 
dmc$max_daus_ allocation 1885 1874 
dmc$max_daus position 1887 1875 1927 
dmc$max_daus_ transfer 1889 1876 
dmc$max_ device file _list_index 1390 1387 
dmc$max_fau_entries 1985 1978 
dmc$max_ file hash 1400 432 434 1397 
dmc$max_mau_address 1925 1913 
dmc$max maus per allocation 1919 1905 1906 
dmc$max_ maus_ per_dau 1921 1907 1908 1925 1927 
dmc$max_maus_per_transfer 1923 1910 1911 
dmc$max_maus_ position 1927 1912 
dmc$max_ transfer size 1689 1684 
dmc$min_bytes_per_allocation 1346 1341 
amc$min_bytes_per_dau 1880 1873 
dmc$min_dau_address 1882 1877 
dmc$min_mau_address 1824 1913 
dmc$min_maus_per_allocation 1918 1904 
dmc$min_maus_per_dau 1820 1907 
dmc$min_maus_per_ transfer 1922 19093 

. ame$over fF low 517 488 2893 
dmc$owner 518 490 2895 
dmc$preset value 518 4392 2887 
dmc$queue_status 520 508 
dmc$recorded vsn 518 494 1845 1845 
dmc$requested_allocation_size $18 496 1551 28939 
dmc$requested_ transfer size 519 498 2901 
dmc$requested_ volume 519 500 2903 
amc$set name 518 502 1553 
dmc$wr ite mode 520 506 
dme$unabie_to_alloc_alil_space 2710 9412 $552 S556 
dme$unable_to_ create _fdt_entry 2308 $562 
dme$unable_to_get_fd_ lock 2332 9553 
dmp$allocate_ file space _ri 5359 7638 

. Gmp$create_disk_file 5385 7623 
dmp$destroy_file 5395 7181 9020 


HEE REFERENCE ABBREVIATIONS : Mtmodify, Atattribute, S=ssubscript, I:I1/0 ref, Reread, Wewrite, Pzparameter 


REFERENCES OF mmm$segment_manager_system_core NOS/VE CYBIL/II 1.0 89102 1889-08-21 13:33:34 PAGE $333 
IDENTIFIER- +--+ rere ere ne eer eee DEFINED-------- scores" “REFERENCES 
ON LINE 
dmp$fetch_eoi 5401 $399 
dmp$get_disk_file_descriptor_p 5408 8553 
dmp$get_ initialized addresses 5447 8566 
dmp$get_ total _allocated_length 5465 8554 $558 
dmp$reallocate file space 5480 8812 
dmp$sparse_ allocate 5485 7640 
dmt$access_kind 1521 1827 
dmt$active_volume_table_ index 1858 1812 
dmt$addr_length_pair 5457 5449 8530 
dmt$allocation_size 1340 414 457 437 1552 1667 2900 
dmt$aitocation_styiles 1351 1824 
amt$bytes per_mau 1903 1817 
amt$chapter number 5374 5363 
dmt$c lass_member 1364 415 459 1363 1542 © 2882 
amt$c lass ordinal 1369 416 461 1544 2884 
dmt$dau_address 1877 1971 
dmt$daus_per_allocation 1874 1819 
dmt$daus_ per position 1875 1818 
damt$delete_ count 427 403 
dmt$detete logging count 1828 1814 
dmt$device_ file _list_index 1387 465 1813 1842 
dmt$disk_file_ descriptor 401 5409 8537 9387 
dmt$fau_states 1979 1972 
admt$file allocation_unit 1970 1800 1801 1968 
dmt$file attribute 448 5387 7581 
dmt$file attribute keywords 512 449 1540 1838 2880 
dmt$file_hash 13897 471 
dmt$file hash thread 430 432 
dmt$file medium_descriptor 1809 420 1823 
dmt$fmd_attribute 1837 1833 
dmt$fmd_ index 1897 4093 419 1832 1873 
dmt$giobal_file_name 1403 479 1666 
dmt$internal_ovsn 1514 481 1820 1844 
dmt$level_1_ index 1775 408 1789 
dmt$level_1_table 1789 407 
dmt$level_2_ index 1780 1800 
dmt$itocked_ file , 1524 483 2890 
dmt$maus_per_dau 1907 1821 
dmt$maus_per_transfer 1909 1822 
dmt$ms_over f low_al lowed 1738 2894 
dmt$queue_ status 1677 1664 
dmt$requested volume 1557 418 501 2904 
dmt$system_file_id 1942 1811 3742 3746 3747 3755 3759 S360 S396 
5402 S4a7 5473 $480 6308 
dmt$transfer_ size 1684 417 499 1668 2902 
amt$usage_count 1696 1665 
dmt$write lock 1523 1529 
dmv$idie system 6135 7614 
enable $034 $051 
eoi $388 $3939/P 8404 
eoi_byte address 2007 5524 7632 S446 8561 8628 
eoi_state 2008 5518 8446 8628 


** REFERENCE ABBREVIATIONS : Mtmodify, Azattribute, S:subscript, I:I/0 ref, Rtread, Wewrite, Psparameter 


REFERENCES OF mmm$segment_manager_system_core NOS/VE CYBIL/II 1.0 89102 


REFERENCES OF 


mmm$segment_ manager _system_core NOS/VE CYBIL/II 


1.0 §9102 


IDENTIFIER: - + --- rere re eee eee DEFINED-------er- eee eee REFERENCES 
: ON LINE 
err_exit_proc 3853 8499/M 
execute privilege 3924 7811 73816 8512/M $868 
expand segment table 7187 7285 7311 71902 $623 
fde_entry_p 7163 7172 7173 7179/P 
fde_ entry p 7328 7350 7364 7365 7365 
7384 
fde_entry p 7450 7484 7485 7491 7510/P 
7545/M 7545 
¥fde_entry_p 7670 7707/P 7708 7916/P 
fde_ entry _p 7999 8005/P 8018/P 8022/P 
fde_ entry _p 8079 8086/P 8093/M 8093 8094/P 
fde_ entry p 8130 8221/P 8222 8224/M 8225/M 
: 8243/P &8244/M 8244 8245/P 
fde_ entry op 8431 8437/P 8446/P 8448 8449 
fde_entry_ p 8538 8552/P 8S553/P 8S554/P 8555/P 
fde_ entry _p 8581 8587/P 8532/M &8599/P 
fde_entry_p 8857 8885/P &8896/P 8907/P 8919/M 
8357 8958 89539/P 
fde_entry_p 8985 9006/P 9011 9012 9019/M 
‘fde_ entry p 9305 9338/P 9339/M $339 $340/P 
fde_entry p $790 9817/P 9818/M 9819/P 
fde_entry_p 9925 $949/P s3s50 9953/M $953 
fde_entry p 99306 9999/P 10003 /P 10019/P 10026/M 
fde_ locked 8672 8672 86877 8683 8709 
fde_p 3792 5521/M 8446/M 8628/M 9770/P 
fde_p 5408 5417 5420 
Fde_p 5512 §518 §521 5524 
fFde_p 5534 55439/M S550 5551/™M 
fde_p 5572 §577/P 
fde_p 5706 5710/P 
fde _p 5789 5795/M 5795 5735/M 
fde_p 57390 5795/P 5796 5787/P 
fde_p 7447 7514/P 7514 7514/P 
fde_p 7447 7514/M 7514 7514/M 
fde_p 7447 7516/P 
fde op 7572 7612/P 7612 7612/P 
fde_p 7572 7612/M 7612 7612/M 
Fde_p 7872 7645/P 
fde_p 7580 7612/P 7615 7623/P 7626/P 
fde_p 7662 T712/P T7712 TT12/P 7717/P 
fde_p 7662 7712/M T7712 7712/M 7717/M 
‘€de_p 7662 7914/P 7955/P 
fde_p 79392 8022/P 
#de_p 8074 8094/P 
fde_ p 8121 8243/P 8243 8243/P 
fde_p 8121 8243/M 8243 8243/™M 
fde_p 8121 8245/P 
fde_p &3390 8417/P 8417 8417/P 
Ffde_p 8390 8417/M 8417 8417/M 
fde_ p 8424 8446 8446 8446 
fde_p 8424 8520/P 
fde_p 8526 8552/P 8552 8552/P 
x * REFERENCE ABBREVIATIONS Msmodify, Azattribute, Sssubscript, 


IDENTIFIER- ++ +e - eee ree ee renee DEFINED-~-------er2++ee--- REFERENCES 
ON LINE 
fde_ p 8526 8S52/™M 8552 8552/M 
fde_p 8526 8553 8553 
fde_p 8526 8555/P 
fde_p 8573 85399/P 
fde_p 8604 8627/M 8627 8627/M 
fde_p 8604 8628 8628 8628 
fde op 8611 8627/P 8628/P 
fde_p 8649 8711/P 
fde_p &656 8664/P 8701 &8711/P 
fde_p 8849 8896/P 8307/P 8829/P 8952/P 
fde_p 8849 8926/P &8S26 &8926/P 
fde_p 8849 8926/M 89326 8S26/M 
fde_p 8382 9006/M 9006 9006/M 
fde_p 9295 9338/P $3238 9338/P 
fde p $295 $338/M $338 $338/M 
fde_p 3235 $340/P 
fde_p 9507 $535/P $535 9535/P 
fde_p 9507 9535/M $535 $535/M 9545/M 
9557/M 
fde_p 9507 9538/P 
fde_p 9513 §$535/P 9536 $538/P $545/P 
fde_p 9738 S770/M $770 9770/M 
fde_p 9781 $817/P 9817 $817/P 
fde_p $781 $817/M $817 9817/M 
fde_p 9781 8819/P 
fde_p $320 99349/M $949 9949/M 
fde_p $985 10009/P 10019/P 10028/P 
File attributes _p 7581 7616 7617/M 7619/M 7621/M 
file _entry_index 1947 5549 5795 7514 7612 
8552 8627 8926 9006 
$770 $817 9949 
file hash 1949 5550 5795 7514 7612 
8417 8552 8627 &§3926 
$557 3770 93817 9949 
file hash 2004 5550 5795 7514 7612 
8417 8552 8627 8926 
9557 9770 9817 93949 
file _ kind 2003 7484 7714/M &8226/M 8931 
file _Timit 2011 77938/M 7843/M 7338 7339 
$818/M 
file_limits 7582 7597/M 7606/M 7638/P 7640/P 
File _ limits enforced 4498 75397 76935/M &8595/M 8959/P 
File limits enforced 7164 7181/P 
File limits to _enforce 3804 7695 
fFind_avai lable _ segment number 7289 7320 7896 $278 $321 
Flags 1987 8592/M 
' # lush_pages 9514 8546/M 9549 
gfc$fde_size 5566 5549 5795 7514 7612 
: 8552 8627 8926 $006 
$770 $817 $9458 
afc$fde_ table base 5564 5549 5565 5795 7514 
8417 8552 8627 8926 


*** REFERENCE ABBREVIATIONS 


Memodify, Atattribute, Stsubscript, 


$878 


7368 


7511/M 


8226/M 


8501 
&8S61 


8319 


9356/P 


9954/P 
10026 


7632 
7717 
7717 


9545 


$546 


7623/P 


9020/P 


7712 
$338 


7612 
9006 


I=I/0O ref, 


I=z1/0 ref, 


1989-08-21 


9545/M 


s557/P 


7717 
$535 


7717 
$338 


7717 
$338 


83957 
84493 


9955/P 


7717 
$535 


7TT12 
$338 


1989-08-21 13:33:34 
9883 
7369 7369 7384 
7511 7526/M 7544/P 
8227/M 8228/M 8230/M 
&8520/P 
8350 8951/M 8952/P 
10027 10028/P 10031/P 
7634 7645/P 
T717/P 
7717/M 

Rz=read, Wewrite, 


13:33:34 
9557/M 9557 
9558/P 
8243 8417 
9545 9557 
8223/M 8243 
$535 9545 
8227/M 8243 
$535 9545 
8958 
8701/M 8701 

10031/P 

8243 8417 
9545 9557 
7717 8243 
9535 9545 


Reread, Wewrite, 


PAGE 934 


P=:parameter 


PAGE 935 


P=parameter 


REFERENCES OF 


IDENTIFIER: ---- eect eee ee er eee 


gfc$fk_ catalog 
gfc$Ffk_gliobal_unnamed 
gfc$fk_job_local_file 
gfc$fk_ unnamed _ file 
gfcSfm_mass_ storage _ file 
afc$fm_served_file 
gfc$fm_transient_segment 
gfc$qs_global_shared 
gfc$qs_job_shared 
gfc$qs_job_working set 
gfc$tr_job 


gfc$tr_ system 


gfpSassign_fde 
gfp$clear_signature_lock 


gfpS$free fde 
gfp$get_eoi_from_fde 
gfp$get_eoi_from_fde 
gfp$get_fde_p 


gofp$get_locked fde_p 


gfp$lock_fde 
gfpSset_signature_lock 


gfpSuntlock fde_p 


gftS$allocation_unit_size 
gftS$attach_ count 
gft$fde_ fiags 
gft$file_desc_entry_p 


gft$file_descriptor_entry 
gft$fite descriptor index 


gft$file_kind 
gft$file media 


gftS$locked file _desc_entry _p 


gftSopen_count 
gftS$queue_ status 
gft$segment_lock_info 
gftS$signature_lock 


gft$system_file_identifier 


REFERENCES OF 


IDENTIFIER-------------------- 


gft$table residence 
gft$transfer_unit_size 
oftS$trick_pointer 
gfvS$nulil_sfid 

g1_kKey 

global_task_id 

giobal task _id 


giobal 
giobal 
giobal 
giobal 
gtid 


task_id 
task_id 
task_id 
template file 


— 
—_ 
— 
— 


gtid 
gtid 


hardware _attri_set 


heap _pointer 
highest_offset_allocated 


ee ee 


wt allt 


eet 


*ex 


mmm$segment manager _system_core NOS/VE CYBIL/II 1.0 89102 


DEFINED---=-++e eee eee REFERENCES 
ON LINE 
$857 $770 
1576 1588 
1580 8932 8958 
1878 1587 
1579 7484 7714 
2058 2020 5417 
2059 2023 7634 
2058 7172 7615 
1753 7368 7491 
1753 7365 7369 
1753 7364 7485 
1960 5543 5795 
8221/P 8243 
$338 9535 
1960 5542 S795 
8417 8552 
9557 9770 
5495 7707 8221 
5715 5710 5750 
8245 6520 
8952 9340 
5505 7179 7316 
5511 5526 8446 
5512 5524/™M 8446/M 
5533 5554 5785 
8552 8627 
3770 9817 
5789 5800 7514 
8926 $338 
§572 5578 
§582 5877 5629 
8417 8552 
5706 5712 7516 
8520 g5s55 
$340 9538 
2044 2009 
2049 2000 2001 
2023 1997 
2912 3792 5386 
5790 7163 
1994 430 1999 
1987 1947 
1572 477 1548 
2058 2019 
2916 S466 5706 
8079 8130 
8867 8985 
2088 2002 2033 
1753 509 2012 
2082 2005 
2064 1935 5583 
1946 1942 3591 
5389 5486 
REFERENCE ABBREVIATIONS M=modify, 


1.0 88102 
DEFINED---------------- REFERENCES 
ON LINE 
7169 7326 
8658 8787 
1960 1948 5496 
2055 2010 
5430 5415 
6138 7654 7706 
3847 7800 8454/M 
2016 7922/M 
ao6s 5577 5604 
7612 7645 
8094 8243 
8711 8896 
9338 9340 
10028 
6033 6050/M 
9072 9099/M 
9149 9180/M 
2033 8592/M 
2067 5577 5577/M 
5710 5710/M 
7514 7514/M 
7612 7612 
7717 7717/M 
8022 8022/M 
8245 8245/M 
8582 8552/M 
8711 8711/M 
8926 8926 
9338 9338 
9538 9538/M 
10009 0009 /M 
9077 9099/P 9100/P 
$152 9180/P 9181/P 
3856 7743 7748 
8459/M 8459 
8474/M 8474 
8492/M 8492 
9855 9858 
3909 7350/P 
410 8556 
5572 5577/M 
5592 5622/M 
5706 5710/M 
5715 5746/M 
5762 5771/M 
5789 5737/M 
7134 7140 
7447 7514/M 
T7467 7516/M 
7487 7537 7538/58 
7572 7812/M ; 
REFERENCE ABBREVIATIONS Memodify, 


mmm$segment_manager_system_core NOS/VE CYBIL/II 


9817 


8226 
8553 


9011 


7384 
7713 
7361 
8417 
9545 
7362 
8627 
9817 
8689 
7516 
8Ss55 
9538 


8628 
8628/M 
7514 
8926 
$349 
7612 
$535 


$797 
8926 
7645 
8599 
9819 


5408 
7670 
29312 


1584 


7328 
8394 
9305 
8868 


5716 
3768 
$498 


Azattribute, 


78574 
8869 


7915 


5710 
7712 
8245 
8307 
9535 


5577 
5728 
7814 
7645 
T7117 
8094 
8417 
8552 
8886 
8329 
9340 
$817 
10018 


7756 
8462/M 
8480/M 
9824 


Azattribute, 


gs3s49 


8931 


9546 


7514 
8552 
9557 
7514 
83826 
9949 


7645 
8599 
9819 


7612 
9006 


7712 
$817 


7514 
$338 
7914 
8711 
10008 


54993 
7683 
2916 


2003 


7450 
8431 
$513 
$991 


3806 
5533 


Szsubscript, 


7588 
$233 


9534 


5726 
7717 
8417 
8326 
$538 


5577 
5735/M 
7514 
7645/M 
7717 
8094/M 
8417/M 
8552 
8896/M 
88329/M 
9340/M 
9817/M 
10019/M 


7761 
8462 
8480 
$829 


S=subscript, 


1889-08-21 13:33:34 PAGE 9336 
8357 
7612 T7707 /P 7712 T7717 
8627 8680/P 8926 SOO6 
9770 9817 $949 
7612 7712 7717 8243 
9006 $8338 9535 9545 
7314 7955 8022 8094 
8711 88396 8907 8929 
10009 10019 106028 
7712 7717 8243 8417 
9338 9535 9545 9557 
7717 8243 8417 8552 
7612 7712 T7717 8243 
9535 9817 
7955 8022 8084 8245 
8896 8907 83829 89352 
100183 10028 
5506 5512 5534 5572 
8611 8657 $925 
5414 
7463 7580 7672 7399 
8538 8581 8656 8857 
$790 9990 
4104 4491 4583 5352 
57893 6138 67998 7162 
I:1/0 ref, Reread, Wewrite, P=parameter 
1889-08-21 13:33:34 PAGE 337 
7682 8144 8310 8327 
8236 
9547/P 
S797 6050 7514 7516 
7914 7922 7955 8022 
8520 8552 &s55 8599 
89298 89352 9099 $180 
9817 $819 10009 10019 
5606 5614/M 5621 5621 
5797 5797/M 5737 5797 
7516 7516/M 7612 7612/M 
T7712 7712/M 7712 7712 
7914 7914/M 7955 7955/™M 
8243 8243/M 8243 8243 
8417 8417 8520 8520/M 
8555 8555/M 8599 8599/M 
8307 8907/M 8326 8926/M 
8352 8952/M 9338 9338/M 
9535 §535/M 9535 9535 
9817 9817 9819 9819/M 
10028 10028/M 
7766 7769 7772 8456/M 
8465/M 8465 8471/M 8471 
8483/M 8483 8486/M 8486 
$834 $842 $847 $852 
Iz:l/O ref, R=read, Wewrite, P=parameter 


REFERENCES OF mmm$segment_manager_system_core NOS/VE CYBIL/II 1.0 ,89102 1989-08-21 13:33:34 PAGE 938 
EDENTIF IER< 9 <6 <9 5 56 ese eo Se DEFINED------->-- --cr*-*-REFERENCES 
ON LINE 

i 7572 7645/M 

i 7662 7712/M 7717/M 

i 7662 7914/M 7355/M 

i 7669 7698 7699/S 77293 7730/S 7733/S 7733/8 7734/S 7738/S 
7739/8 7741/S 7743/8 7748/S 7756/S 7761/S 7766/S 7769/S 
7772/8 7783/S 7785/8 7787/S 7792/8 7798/S 7800/S 7803/S 
7805/S 7811/S 7816/S 7819/8 7824/S 7825/S 7832/S 7833/S 
7834/S 7835/S 7843/8 7845/S 7847/8 7851/S 7856/S 7887/S 
7859/S 7869/S 7873/S 

4 7392 8022/M 

i 8074 8094/M 

i 8121 8243/M 

i 8121 8245/M 

a) 8320 8378 8380/S 8380/S 

i 8390 8417/M 

i 8424 8520/M 

i 8432 8438 84339/S 8441/S 8442/S 8444/S 8446/S 8448/S 8449/S 
8451/S 8451/8 8454/5 8456/S 8459/5 8459/S 8462/S 8462/5 
8465/S 8465/S 8471/8 8471/S 8474/8 8474/58 8480/S 8480/5 
8483/S 8483/S 8486/S 8486/S 8492/S 8492/S 8497/8 8499/S 
8501/S 8503/5 8505/S 8508/S 8510/S 8512/58 8513/58 8514/S 

i 8526 8552/M 

i 8526 8555/M 

1 8573 8599/M 

i 8649 8711/M 

i 8733 8764 &8765/P 8767/S 8773 8774/58 

i 8849 8896/M 83907/M 83929/M 8952/M 

i 8849 83826/M 

i 8858 8875 8876/S 8914 8915/S 

i 9120 9130 $132/P 

i $2395 3338/M 

i $295 8340/M 

i $507 $535/M 

i 3507 9538/M 

i $607 $619 $638/S 

i $781 9817/M 

i 3781 $818/M 

i $791 $810 9811/S $814/S $815/S 9818/S §$824/S 9829/8 9834/S 
$842/S $847/S $852/Ss $855/S 9858/S §868/S $872/S 9878/S 
9883/S $886/S 9891/S $882/S 

i $985 10008/M 10018/M 10028/M 

i#build _adaptabie_ heap_pointer 5804 79498 

i#build adaptable seq _ pointer 5810 7946 

t#call_monitor 5529 5522 5577 5625 5710 5746 5775 5737 T1777 
7263 7390 7514 7516 7612 7645 7712 7717 
7914 7955 8022 8034 8243 8245 8361 8417 
8446 8520 8552 8555 8599 8628 8711 8783 
8896 8907 8926 8929 8352 $O16 $255 9336 
9340 $535 $538 §550 $775 $817 $819 10009 
100198 10028 

i#move 5818 5834 9143 

i#fprogram_error 5444 5418 8553 

i#freal_memory_address 5836 81380 9131 

* eX REFERENCE ABBREVIATIONS Memodify, Azattribute, Stsubscript, I2I1/O0 ref, Reread, Wewrite, Pztparameter 


REFERENCES OF mmm$segment_manager_system_core NOS/VE CYBIL/II 1.0 89102 198S$-08-21 13:33:34 PAGE 338 
IDENTIFIER------ See e ee senate ee DEFINED---+-+-+e-+--2+--- REFERENCES 
ON LINE 

ijl_ordinal 6188 7361 7363 

ijl_ordinal 6732 7361 7363 7367 

ijle_p 6187 7486 

in _memory 9121 9127/M 9134/M $1398 

in_use 6783 7360 

index 2075 5577 5621 5797 7514 7612 7712 7717 8243 

8417 8552 8826 $338 9535 9817 

“inheritance 3864 7845 &8503/M 

inheritance 4492 7845/M 7980 7981/M 7982 7383/M 8160 8160 8202 

8220 8237 8238/M &503 85933/M 8895 $049 9946 

.init_new_io 3720 8791/M 8816/M 

ioc$max_unit_number 1864 1858 1867 

iot$io_error 6860 6309 6835 

iot$Stransfer count 4662 4650 

jmc$detached_job_wait_t ime_max 6216 6213 

jmc$highest_det_job_wait_time 6226 6216 6227 
_jmec$highest_prio_age_interval 4343 4340 4350 
jmc$highest_service_accumulator 4381 4382 

jmc$highest_service_factor_valu 4423 4416 

jmc$highest_working set_size 69323 6914 6924 6S26 63828 69830 
' jmc$ies  job_swapped 6429 6438 

jmc$ies_ swapin_in_progress 6428 6437 

jmc$iss_idie_tasks_ initiated 6444 6471 
. jmc$iss_ swapin_io_complete 6469 6472 
 jmc$iss_swapin_requested 6465 6472 

jmc$iss_swapout_ complete 6464 6471 

jmc$iss_swapped_io_cannot_init 6455 6482 
' jmc$iss_swapped_no_io 6446 6481 

jmc$keyword offset_maximum 4366 4341 6915 

jmc$k ji_maximum_entries 4314 4307 4308 6552 
. Jmc$kol_maximum_entries 4324 4309 

jmc$max_active_jons 4305 4292 4300 4301 

jmc$max_ajl_ord 4306 4305 6373 

jmc$max_ dispatching control 4250 4254 

‘jJmc$max_ dispatching priority 4151 4111 8114 4115 
jmc$maximum_job_classes 6541 6544 

jmc$maximum_job_count 4321 4314 
.. jmc$max imum_out put_count 4331 4324 

.jmc$maximum_service_cilasses 4399 4402 

jmc$min dispatching control 4249 4253 

jme$null service _ciass 4332 43393 
~jme$priority_aging_interval_max 4340 4337 

jmc$priority_pt1 4165 4112 

jmc$priority pio 4174 4113 
«imcSpriority p14 4178 4113 

jme$priority_ps& 4172 4112 

jimc$required offset 4364 6329 

jme$reserved ajis 4310 4305 

/jme$service_accumulator_maximum 4373 4370 

jmc$service factor value_max 4aié6 4413 

imc$system_default_offset 4365 4366 6931 
. gmc$system_supp lied name_size 6714 6711 


* es REFERENCE ABBREVIATIONS Memodify, Azattribute, S=subscript, I=t1/O0 ref, Reread, Wewrite, Psparameter 


REFERENCES OF mmm$segment_manager_system_core NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 940 
IDENTIFIER: +e ee eer tee eee eee DEFINED: ---+-+--e eee ~-REFERENCES 
ON LINE 
jmc$unlimited_offset 4362 4351 4383 6217 6228 69325 
jmc$unspecified_ offset 4363 6827 
jmc$working set_size_maximum 6914 6911 : 
jmt$aji_ordinal 6373 6245 
jmt$delayed_swapin_work 63906 6275 6394 
jmt$detached_job_wait_time 6213 6198 
jmt$dispatching_ control 4220 4203 
jmtSdispatching_ control index 4253 4220 6409 
jmtS$dispatching controls 4223 4221 
jmt$dispatching_ priority 4111 4076 4078 4225 6257 6410 6411 6412 
jmt$iji_block_index 2205 2201 
jmt$iji_block_ number 2204 2200 
jmt$ijl_dispatching control 6408 6258 
imt$ijl_entry status 6424 6244 
jmt$ijl_ordinal 2199 6188 6264 6292 6729 6730 6782 6827 6966 
jmt$ijil_page_fault_count 64398 64393 6494 6495 
jmt$ijl_page_stats 6492 6488 
jmt$ijl_service_ciass_ stats 6486 6279 
jmt$ijl_statistics 6516 6278 
jmt$ijl_swap_count 6507 6503 6504 
jmt$ijil_swap_counts 6502 6298 6489 
jmt$ijl_swap_status 6442 6247 6248 6249 
jmtSinitiated_ job_list_entry 6241 6187 6756 
jmtSinput_file_ location 6572 6567 
jmt$job_abort_disposition 6581 6565 
imt$ job class 6544 6303 
jmt$job_control_biock 6163 6155 
jimt$ job_mode 6547 6260 
jmt$ job priority 4281 4212 4213 4214 4215 6300 6301 
jmt$ job recovery disposition 6584 S566 
jmt$ job _system_id 6903 6184 
jmt$kji_index 6552 6246 6903 
jmt$maximum_active_jobs 4292 4197 
jmt$priority_aging interval 4337 4205 
jmtSqueue file ijl_information 6564 6285 
jmt$scheduling data 6291 6269 
jmt$scheduling priority 4211 4204 
imt$service_accumulator 4370 4195 4196 6293 6294 6295 
jmt$service_class_ index 4402 4188 4198 6304 
jmt$service class_name 4405 4190 4191 
jmt$service_ factor value 4413 4139 
jmt$service_ factors 48409 4139 
jmtSswap_data 6307 6271 
jmt$swapout_ reasons 65893 6299 
jmt$swapped_job_entry 6604 6207 6316 6757 
jmtSsystem_supplied_ name 6711 6182 6242 
jmt$task_time_slice 4263 4243 4244 
jmt$time_slice_ values 4242 4089 4227 
jmt$user supplied name 6807 6183 
jmtS$working set_size 6911 6194 6195 
jmv$executing within _system_job 6145 7618 
jmv$jecb 6155 7361 7363 7486 
jmv$system_ijl_ordinal 6966 7367 


* REFERENCE ABBREVIATIONS Memodify, Azattribute, Sssubscript, It1/0 ref, Reread, Wewrite, Psparameter 


REFERENCES OF 


mmm$segment_manager_system_core NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 941 
IDENTIFIER--++-- eer re eee meee DEFINED---+--+---- 27 ee eee REFERENCES 
ON LINE 

jmv$task_private_temp?_p 6971 8744 8745 

job_lock 193935 5577/P 5710/P 57937/P 7514/P 7516/P 7612/P 7645/P 7712/P 
7717/P 7914/P 7955/P 8022/P g8o94a/P &8243/P 8245/P 8417/P 
8520/P 8552/P &8555/P 8599/P 8711/P 8896/P 8907/P 8926/P 
839323/P 8952/P 9338/P $340/P 9535/P 9538/P 9817/P 98139/P 
100093/P 10019/P 10028/P 

jsc$isqi_swapped_io_completed 6734 6736 

jsc$isqi_swapped_io_not_init 6733 6736 

jst$changed_asid_entry 6779 6770 

jst$ijl_swap_queue_id 6733 6728 

jst$ijl_swap_queue_ link 6727 6253 

ist$io_control_information 6741 6272 

jstSswap_file_ descriptor 6755 6273 

jistS$swapped_ page descriptor 6764 6762 

jst$Sswapped_page_descriptors 6761 6758 

key lock 4474 7800/M 8454 

keyword 449 7617/M 

keyword 3836 7730 8439 9811 

last _segment_number 2015 73921/M 8228/M 

leftover 8734 8755/M 8758/M 8772 

length 5459 8561/M 

Tength $820 5827 5830/M 5830 

length 59340 5952 5952 5957/S 

Tength 8308 8338 8338 8338/S 

length 9111 9144 9144/M 9144 

length $380 $404 9411/P 

length_to_allocate 7583 7632/M 7633 7635 7636/M 7638/P 

list_over f low 8532 8559/M 8567/P 

local _fde_p 5414 5420/M 5421 5422 

local _fde_p 8526 8553/M 8553 8553 

local, sdt 7458 7463/M 7478 7478 7479 7488/M 7493/M 7507/P 7510/P 
7522 7525/S 7526 7543/P 7544/P 

local _sdt_p 9926 8961/M 8963 $s364/P 9964/P 9964/P $968 

local _sdtp 8131 8167 8176/P &8177/P 8182/P 8182/P 8190/P 8194 

lecal_sdtx 7459 7470/M 7506/M 7507/P 7509 7510/P 7513 7514/P 7535/M 
7535 7542 7544/P 

local _sdtx_p 9927 $962/M $967 

local _sdtxp 8132 8188 8189/P &8189/P 813935 

lock 5572 5577 $577 5577/M 5577 5577/M 5577 5577/M 5577/M 
5577 5577 5577 

Tock $583 5606 S606 5607/M 5607 5608/M 5612 5614/M 5615/M 
5621 5621 5624 

10eck 5706 5710 5710 5710/M 5710 5710/M 5710 5710/M 5710/P 

lock 5716 5728 $732 5733/M 5733 5735/M S736 5737/M 5746/P 

lock 5789 5797 $7837 5797/M 5737 57937/M 5797 5797/M 5797/M 
5787 5737 5797 

lock 7447 7514 7514 7514/M 7514 7514/M 7514 7514/M 7514/M 
7514 7514 7814 

lock 7T4a7 7516 7516 7516/M 7516 7516/M 7516 7516/M 7516/P 

lock 7572 7612 7612 7612/M 7612 7612/M 7612 7612/M 7612/M 
7612 7612 7612 

HX REFERENCE ABBREVIATIONS Memodify, Azattribute, Stsubscript, It1/0 ref, Reread, Wewrite, P=parameter 


REFERENCES OF mmm$segment_manager_system_core NOS/VE CYBIL/II 1.0 89102 
IDENTIFIER----- eer ent eer ee DEF INED----+ ee -- er ee ene REFERENCES 
ON LINE 
lock 7572 7645 7645 
lock 7662 7712 7712 
7712 T7712 
T7717 77T17/M 
lock 7662 7914 7914 
7955 7955 
lock 7992 8022 8022 
lock 8074 8094 8094 
lock 8121 8243 8243 
8243 8243 
lock 8121 8245 8245 
lock 8390 8417 8417 
8417 8417 
lock 8424 8520 8520 
Tock 8526 8552 8552 
8552 8552 
lock 8526 8555 8555 
lock 8573 8599 8599 
lock 8649 8711 8711 
lock 8849 8896 8896 
8907 83907 
8929 8929 
8952 8952 
lock 8849 8926 83926 
8926 8926 
Teck 9295 $338 9338 
9338 9338 
tock $295 $340 $340 
lock 9507 9535 $535 
9535 9535 
Tock 9507 $538 9538 
lock 9781 9817 9817 
$817 9817 
Tock $781 $819 $819 
lock $385 10009 10009 1 
100193 10019 1 
10028 10028 1 
lock _id 2142 5710 5746 
8034 8245 
8329 &8952 
lock value 5695 5577/M 5621/M 
7612/M 7645/M 
8243/M 8245/M 
8896/M &8907/M 
9538/M 9817/M 
locked 2065 S577 5577 
75174 7514 
7717 7717 
8245/M 8417 
8711/M &8896/M 
$338 §$340/M 
1O0009/M 100139 /M 1 
locked _fde_entry_p 7672 7712/P 7713/M 
et REFERENCE ABBREVIATIONS M=emodify, Azattr 
REFERENCES OF mmm$segment_manager_system_core NOS/VE CYBIL/II 1.0 89102 
IDENTIFIER-- cr ere ren ete ee ee ee DEFINED--------+-e- reer REFERENCES 
ON LINE 
7914/P 7321/M 
lecked_fde_p 8394 8417/P 
mapend 8735 8756/M 87539 /M 
max length 3845 7798 8448 
max specified transfer size 7086 7874 7875 
media 20198 5417 7172 
memory check 9129 9129 9135 
min_allocation_length 7575 7633 7635 
mmc §$ 2926 2932 2935 
2957 2360 
2982 2985 
3007 3010 
306031 3034 
3055 3059 
3080 3083 
3104 3107 
3130 3134 
3155 3158 
3179 3182 
3205 3208 
3229 3232 
3253 3257 
mmc$as_random 3550 8705 
,mme$as_read_tu 3551 9708 
mmc$as_ sequential 3550 $347 $702 
mmc$assign_act ive_escaped 4532 7607 7624 
rmmc$assign_active_null 4531 4532 7652 
mmc$cell pointer 3899 3904 
mmc$default_sdt_length 5328 5321 8160 
mmc$eoi_uncertain 2119 5518 8446 
mmc$failed file _alloc_filag 5236 9100/P 
‘mme$ha_binding 3879 7748 8466 
mmc$ha_cache_ bypass 3880 7761 8493 
mmc$ha_execute 38793 7766 8481 
mme$ha_execute_global 3880 7772 8487 
mmc$ha_execute_local 3880 7769 8484 
mmc$ha_read 3878 7743 8460 
mmc$ha_read_ key_lock 3878 8463 
mmc$ha_write 3879 7756 8472 
mmc$ha_ write key_ lock 3873 8475 
mmc$heap_pointer 3900 3908 7948 
smmc$kw_asid 3825 3861 7826 
mmc$kw_clear_ space 3823 3848 7801 
mmc$kw_ current _segment_ length 3822 3842 8445 
_mmc$kw_error_exit_procedure 3824 3852 7794 
mmc$kw_g1l_key 3824 3846 7799 
mmc$kw_hardware_attributes 3826 3855 7742 
mmc$kw_ inheritance 3826 3863 7844 
mmc$kw_max_segment_length 3823 3844 7797 
mmc$kw_nulil_keyword 3821 7731 9812 
mmc$kw_preset_value 3825 3850 7802 
mmcSkw ops transfer size 3827 3871 7872 
*** REFERENCE ABBREVIATIONS : Msmodify, 


7645/M 
7712/M 
7712 

7717/M 
7914/M 
7955/M 
8022/M 
8094/M 
8243/M 
8243 

8245/M 
8417/M 
8417 

8520/M 
8552/M 
8552 

8555/M 
8599/M 
8711/M 


0028/M 
7714/M 


ibute, 


7922/M 


8764 
8449 /M 


7615 
9137 
7636 
2938 
2963 
2988 
3013 
3037 
3062 
3086 
3110 
3137 
3161 
3185 
3211 
3235 
3260 


8216 


8163 
8628 


8834 
9847 
$852 
$858 
9824 
$829 


9842 


8504 


8498 
8453 
8455 
8502 
8447 


8500 


Asattribute, 


7645 
7712 
TT17 
7717 
7914 
7955 
8022 
8094 
8243 


8245 
8417 


8520 
8552 


8555 
8599 
8711 
8896 
8907 
89293 
8352 
8326 


9338 


$340 
$535 


$538 
$817 


98193 
10009 
10018 
10028 

7516 

8555 

9538 

5746/M 

7717/™ 

8520/M 

8323/M 
190009/M 

5612 

7612 

7955/M 

8520/M 

8326 

$535 


T717/P 


S=subscript, 


7929/P 


8773 
8451/M 


7634 


2941 
2966 
2991 
3016 
3040 
3065 
3089 
3113 
3140 
3164 
3188 
3214 
3238 
3263 


$543 


9855 


$820 
9823 


$816 


S=subscript, 


7645/M 
7712/M 
7717 

7717 

7914/M 
7955/M 
8022/M 
8094/M 
8243/M 


8245/M 
8417/M 


8520/M 
8552/M 


&8555/M 
8599/M 
8711/M 
8896/M 
8907/M 
8929/M 
8952/M 
8926/M 


9338/M 


9340/M 
9535/M 


9538/M 
9817/M 


$819/M 
10009/M 
10019/M 
10028/M 
7645 
8599 
9819 
5774/™M 


8826 
9538/M 


7718 


7936/P 


I=I/0O ref, 


1=I1/G ref, 


Reread, Wewrite, 


1989-08-21 13:33:34 
7645 7645/M 7645/P 
7712 7712/M 7712/M 
7717/M 7717 7717/M 
7717 
7914 7914/M 7914/P 
7955 7955/M 7955/P 
8022 8022/M 8022/P 
8094 8094/M 8094/P 
8243 8243/M 8243/M 
8245 8245/M 8245/P 
8417 8417/M 8417/M 
8520 8520/M 8520/P 
8552 &8552/M 8552/M 
8555 8555/M 8555/P 
85993 8599 /M 8599/P 
8711 8711/M 8711/P 
8896 8896/M 8896/P 
8907 8907/M 8907/P 
8329 8929 /M 8929/P 
8952 8952/M 8952/P 
8926 8926/M &8926/M 
$338 9$338/M 9338/M 
$340 9340/M 9340/P 
9535 9535/M 9535/M 
9538 9538/M 9538/P 
9817 9817/M 9817/M 
9819 §$813/M 9819/P 

10009 10003 /M 100039/P 
100193 10013 /M 10019/P 
10028 10028/M 10028/P 
7914 79355 8022 
8711 88396 8907 
10009 100183 190028 
5737/M 7514/M 7516/M 
7955/M 8022/M 8094/M 
8555/M 85939 /M 8711/M 
9338/M S340/M §8535/M 
10028/M 

5737/M 5737 5797 
7645/M 7712 7712 
8094/M 8243 8243 
8552 8555/M 8599/M 
8929S /M 8952/M $338 
9817 9817 9819/M 
7738/M 7803 /M 7843/M 

R=read, W-ewrite, 

1989-08-21 13:33:34 
7338 7938 7955/P 
9818 
9011 9546 
2947 2950 23954 
2972 2376 2378 
29398 3001 3004 
3022 3025 3028 
3046 30493 3052 
3071 3074 3077 
30935 30398 3101 
3113 3123 3127 
3146 3149 3152 
317060 3173 3176 
3195 3199 3202 
3220 3223 3226 
3244 3247 3250 


PAGE 942 


P=parameter 


PAGE $43 


P=parameter 


REFERENCES OF mmm$segment_manager_system_core NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 


IDENTIFIER-* ce eee ere ne eee ee -DEFINEDo = --- +--+ - > “REFERENCES 
ON LINE 
mmcS$kw_ring numbers 3821 3837 7732 8440 9813 
mmc$kw segment _access_ control 3825 3859 7804 8506 $867 
mmc$kw_segment_number 3822 3840 7740 8443 
mmc$kw_shadow_segment 3827 | 3865 7846 
mmc$kw_ software attributes 3824 3857 7781 8496 
mmcS$kw_ wired segment 3827 3868 7840 
mmc$1ss_none 4595 7110 8904 10016 
mmc$ilus_ free 4548 83905/P 10017/P 
mmc$pmo_user_ stack 7026 7523/Ss 
mmc$pq_avail 6621 6667 
mmc$pq_free 6620 6679 
mmc$pq_job_fixed 6661 6668 6680 
mmc$pq_job_working_set 6663 6680 6681 7363 
mmc$pq_ shared first 6669 7366 
mmc$pq_ shared _ first _site 6671 6675 
mmc$pq_shared_last 6676 7366 
mmc$pq_shared_num_sites 6672 6675 
mmc$pq_ shared other 6630 6670 
mmc$pq_ shared _site_01 6632 6671 
mmc$pq_ shared site_25 6656 6676 
mmc$pq_ shared task_service 6625 6669 
mmc$pq_ swapped _io_error 6659 66793 
mmc$pq_ wired 6623 6666 
mmc$ring crossing offset 7041 7523 
mmc$sa_fixed 3886 7601 7787 
mmc$sa_free_ behind 3887 $349 9454 9457 9479 $704 9707 
mmc$sa_no_append 3886s T7507 7543 9354 $7293 
mmc$sa_read_transfer_unit 3887 7324 $349 $704 $707 9710 $714 
mmc$sa_stack 3887 7521 7536 7784 7787 8229 8247 
mmc$sa_wired 3886 7600 7787 7842 
mmc$sar_modify 4s59 7507 7543 $354 $730 
mmc$sar_read 4ss9 7507 7543 9344 $354 $728 
mmc$sar_write extend 4560 7110 7507 7543 8691 $354 3732 
mmc$sas_allow_access 4565 7109 
mmc$segment_fault_processor_ id 5005 5059 
mmc$sequence_ pointer 3899 3906 7945 
mmc$sf get _segment_length_fde_p 3797 5520 8446 8628 
mmc$sf_set_segment_length_ fde_p 3798 $772 
mmc$shadow_allocation_size 2923 7847 7851 8685 
mmc$si_new_ segment 3918 8220 9946 
mmc$si_none 3917 7109 7980 7382 &160 8160 8202 
mmc$si_share segment 3917 7382 7383 8593 gso4asg 
mmc$si_ transfer segment 3918 7980 7981 8237 
mmc$sri_change_swap_file queue 3732 3739 
mmc$sri_ delete job_seg_ by_sfid 3734 3740 
mmc$sri1_delete_seg_ segnum 3721 3743 $014 
mmc$sri_ delete seg sfid 3722 3738 7175 
mmc$sri1_ detach _file 3725 3738 8797 
mmc$sri1_end_job_recovery 3729 3749 
mmc$sri_flush_avail_modified 3736 3741 9526 
mmc$sri_flush_delete_seg sfid 3726 ° 3738 8797 
mmc$sri_ flush seg segnum 3727 3739 87397 
mmc$sri_get_highest_offset 3733 3758 


¥*** REFERENCE ABBREVIATIONS : Mtmodify, Aztattribute, S=tsubscript, I2I1/0 ref, 


9711 


&675 


PAGE 944 


&238 8895 


Rz=read, W-write, 


REFERENCES OF mmm$segment_manager_system_core NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 


P=parameter 


PAGE 3945 
IDENTIFIERs +++ - eee eer ee eee eee DEFINED----- ones eee ia e ste: s REFERENCES 
ON LINE 

mmc$sri_make_mfw_cache 3730 3752 

mmc$sri_ remove detached pages 3735 3740 

mmc$srit_ remove _job_shared pages 3731 3754 7386 

mmc$sri_replace_sfid 3728 3745 

mmc$srs_ mot reserved 4605 7110 7892 $278/P 9320 $632 

mmc$srs_reserved 4605 S636 

mmc$srs_ reserved shared_stack 4606 7834 &160 8162 8204 8255 8258 $634 

mmc$ssk_none 4615 4587 7110 7513 7864 82093 8211 8925 &943 
10038 

mmc$ssk_read_only_file 4615 8689 

mmc$ssk_read_ write file 4615 10007 

mmc$ssk_segment_number 4616 4585 7868 8210 8942 

mmc$ssri_flush_delete_seg sfid 3780 3770 

mmc$ssri_free delete_seg sfid 3780 3770 

mmcSssri_move_modified_df_ page 3781 3772 $251 

mmc$volume_unavailable_ flag 5237 $181/P 

mmeS$address_not_0 mod_16384 3152 7852/P 

mme$asid_ specified 3028 7828/P 

mmeS$binding_attribute_invalid 2979 7752/P 7821/P $838/P 9888/P 

mme$caller not_in_read_bracket 2995 8623/P 

mme$caller_not_in_write_bracket 2998 $763/P 

mme$execute global_invalid 2982 7774/P 7813/P 9860/P 9880/P 

mme$execute_local_invalid 3001 8825/P 9869/P 

mme$ illegal _segment_origin_chg 3188 7985/P 

mme$init _Shadow_improper_seg 3158 8676/P 

mme$invalid_asid_specified 3031 7837/P 

mme$ invalid _close_segment_req 2991 8897/P 

mme$invalid ring brackets 2976 7735/P 

mmeSinvalid_sfid 2832 7719/P 

mme$invalid_shadow_segment 3155 7865/P 10008/P 

mmeSinvalid shared _taskid 3191 7701/P 8878/P 

mme$invalid_task_id 3052 8152/P 9837/P 

mme$io_ write error 3062 8795 

mme$ length_not_0O mod_ 16384 3149 7848/P 

mme$no_write_access 3086 $766/P 

mme$Sring violation 29372 7376/P 8011/P 8547/P 9445/P 9699/P 8804/P 

mmeS$segment_not_pageabie 3065 7602/P 

mme$segment number_is_in_use 3010 7908/P 

mme$segment_number_not_in_use 3013 7839 8061/P 8407/P 8415/P 10087/P 10095/P 

mme$segment_ number _too_ big 3016 8055/P 8405/P 10085/P 

mmeS$segment_table_is_ full 3007 7234/P 

mme$set_unmodifiable_ attribute 3004 §$894/P 

mme$software attribute invalid 2385 | 7789/P 

mmeSunable_to_assign_fde 3260 7709/P &8234/P 8682/P 

mmeSunsupported keyword 3019 7795/P 8516/P 9821/P 

mmk$ job_base 3470 3271 3275 3279 3283 3287 3231 3295 3299 
3303 3306 3310 3314 3317 3321 3324 3327 
3331 3335 3339 3343 3346 33498 3352 3355 
3358 3361 3364 3368 3372 3376 3380 3384 
3388 3392 3396 3400 3404 3408 3412 3416 
3420 3424 3428 3432 3436 3440 

mmp$advise_in 5833 $140 

mmp$asid 7148 71893 7355 


* * REFERENCE ABBREVIATIONS : Mzmodify, Azattribute, S=subscript, 121/00 ref, 


Reread, Wewrite, 


Pzparameter 


REFERENCES OF 


IDENTIFIER-ce+c+cre rece nne aces sie’ D 
°) 
mmp$assign_cont iguous_ memory 
mmp$assign_mass_ storage 
mmpS$ast i 
mmp$build segment 
mmp$change_seg_ inheritance ri 
mmp$change_segment_number _r1 
mmp$change_stack_attribute ri 
mmp$c lose_asid_based_ segment 
mmp$c lose_device_file 
mmp$convert_ps_transfer_ size 
mmp$create_inherited_sdt 
mmp$delete_non_inherited_ segs 
mmp$fetch_offset_mod_pages_r1 
“ mmp$fetch sdt_sdtx_locked_fde 
mmp$fetch segment_attributes r1 
mmp$free_ pages 
mmp$get_allocated addresses ri 
mmp$get_max_sdt_sdtx_pointer 
mmp$get_sdt_entry _p 


‘mmp$get_sdt_entry_p 


mmp$get_sdt_for_job_template 
mmp$get_sdtx_entry_p 


mmp$get_sdtx_entry_p 


mmp$get_segment_length_r1 
mmp$Sinit system_privilege_map 
mmp$initiate_ shadowing_r1 
mmp$invalidate_segment 
mmp$issue_ring!1 segment _ request 
mmp$ job_delete_inherited_sdt 
mmp$ job_multiprocessing control 
mmp$mfh_for_segment_manager 
mmp$mfh_ shadow _file_reference 
mmp$mfh_volume_unavai lable 
mmp$Smm_move_mod_server_page 
mmp$open_asid_based_segment 
mmp$open_file_by sfid 
mmp$os_preallocate_file space 
mmp$preset_page_ streaming ri 
mmp$process_ file alloc 
mmp$reserve_segment_number_r1 
mmp$set_access_mode 
mmp$set_access_selections_r1 
mmp$set_segment_access_rights 
mmp$set_segment_length_r1 
mmp$store_segment_attributes ri 
mmpStask_delete_inherited_sdt 
mmp$terminate_ shadowing r1 
mmp$t ouch _all_pages 
mmp$Sun lock _segment 


eR 


REFERENCES OF 


IDENTIFIER---+- e+e eer rere ee eee D 
Go 
mmp$validate_segment_number 


mmtS$access selections 
mmtSactive_ segment_table 
mmtSactive_segment_table_entry 
mmt$ast_ index 


mmt$attribute_ descriptor 
mmtSattribute keyword 
mmt$eoi_state 
mmt$global_page_queue_ index 
mmt$global_page_queue_Tist_ent 
mmt$hardware_attribute_set 


mmt$hardware_ attributes 

mmt$ job page _queue_ index 

mmt$ job _page_queue_list 
mmt $1 ink 

mmt$ lock segment status 

mmt$ locked page 
mmt$ilus_page_disposition 
mmt$max_sdt 

mmt$max_sdt_p 

mmt $max_sdt x 

-mmt $max_sdtx_p 

mmt$memory reserve_request 
mmt$page_age 

mmt$page_ frame_ index 
mmt$page_ frame_queue_id 
mmt$page_ frame_table_entry 
mmt$page_map_offsets 
mmt$page map_offsets_ord 
mmt$page_queue_list_entry 
mmt$rb change segment _table 
mmt$rb_ fetch _offset_ mod pages 
mmt$rb_oringi_ segment_request 
mmt$rb_ring!_server_seg request 
mmt$rb_ set _get_segment_length 
mmt$sdtx stream _data 

mmt $segment_access_ condition 
mmt$segment_access_ rights 
mmt$segment_access state 
“mmt$segment attrib descriptor 
mmt$segment descriptor 


mmt$segment_descr iptor_ext ended 


ex 


mmm$segment_manager_system_core NOS/VE CYBIL/II 


1.0 89102 
EFINED-------- ove = Se ees REFERENCES 
N LINE 
5853 T7242 8177 
7572 7658 9411 9537 
7129 7145 
7662 7957 
71960 7388 
793932 8024 
8027 8039 
8042 8071 
8074 8096 
5863 5888 7626 7877 
8121 8264 
8282 8305 
8308 8386 
8390 8005 8086 8420 
8424 8522 
5891 7241 7275 8176 
8526 8569 
5899 5909 7306 8159 
5913 7504 7540 8059 
9284 9329 9629 
5315 5917/M 7504/M 7540/M 
9001/M 9284/M 8329/M 
8573 8601 
8925 7505 7541 7596 
9330 3630 10093 
$3927 5929/M 7505/™M 7541/M 
9286/M $330/M 3630/M 
8604 8630 8694 
8729 8778 
8649 8713 
8849 8020 8301 8965 
8781 8819 
8382 9030 
9033 9060 
3072 9108 
9111 9146 
9149 $187 
9238 93260 
9263 9291 
9295 $360 
9378 9417 
9420 9486 
$507 90893 SsOgs6 9575 
9600 $641 
9657 9676 
93679 $719 
$723 7507 7543 $354 
$738 S777 
9781 9902 
99320 9370 
9985 10043 
5938 5959 &338 
5362 8905 10017 
REFERENCE ABBREVIATIONS Memodify, Azattribute, 


mmm$segment_manager_system_core NOS/VE CYBIL/II 


1.9 89102 


EFINED------++ee eee ere REFERENCES 
N LINE 
10071 78593 7898 
9691 $755 
3550 g2998 3682 
6804 6989 
6789S 6767 6805 
2110 2006 3748 
7345 
3835 3807 8427 
3821 3836 
2119 2008 
6673 6898 
6888s 6898 
3890 3856 8456 
8484 8487 
3878 3890 
6680 6606 6899 
6899 6270 
6812 6790 6824 
4595 4496 
6846 6830 
4547 5963 
4452 44856 
4456 5901 7296 
4820 4524 
4524 5902 7297 
6866 6263 
6853 6833 6857 
6750 6742 6744 
6681 6743 6798 
6823 6765 6839 
7029 7018 
7026 7029 
6884 6889 6839 
3557 7210 
3588 8324 
3715 7168 7346 
3766 $245 
373930 5516 9751 
4503 44399 
5032 5060 
4s59 4495 9300 
4s65 44390 
3802 7663 
44383 44493 4453 
7448 7458 
7367 8000 
8392 8433 
8862 8871 
$390 $433 
10073 
&488 4517 4$21 
7459 7462 
7678 7685 
REFERENCE ABBREVIATIONS Msmodify, 


7370 
9798 


6834 
4442 


3784 


8460 
84393 


6825 


8782 


5915 
7461 
8002 
8539 
8988 
3608 


5927 
7465 
7968 


Azattribute, 


9547 


7929 


8437 
9964 
8297 
8249 
10092 
80539/M 
$629/M 
8250 


7596/M 
10093/M 


$735 


S=subscript, 


8346 
10098 


7343 
6315 


8463 


6885 


8287 


8288 


6746 


8861 


7105 
7464 
8048 
' 8575 
9264 
$3686 


5930 
7505 
8001 


Stsubscript, 


7931 


8587 


8938 
8412 


8249/M 
10092/M 


8259 


8250/M 


8542 


6782 


8466 


8864 


8865 


6814 


8986 


7105 
7586 
8081 
8582 
$270 
$724 


7108 
7541 
8003 


T=1/0O ref, 


IsI/0O ref, 


1989-08-21 


9352 


8664 


9046 
8765 


8412/M 


8413 


8259/M 


1989-08-21 


8615 


7130 


8472 


96038 


$039 


6814 


9515 


R=read, 


13:33:34 PAGE 946 
9460 
8885S $9993 
9528 9941 
8917 9001 
8765/M 8917/M 
9003 9286 
8413/M 9003/M 
Wewrite, P=parameter 


13:33:34 PAGE 947 
9394 $437 
7148 7152 
8475 8481 
9517 99829 
9518 $830 
6868 6869 
9928 $993 
7327 T347 
7677 7684 
8141 8325 
8660 8737 
9308 9312 
$783 $9394 
7276/P 7449 
7596 7676 
8128 8142 


Rz=read, Wewrite, 


P=parameter 


REFERENCES OF 


mmm$segment manager _system_core NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 948 
IDENTIFIER----+-c-+cee- w~coecee we “DEFINED~-- enters ee - “REFERENCES 
ON LINE 
8250 8259 8326 8383 8413 8434 8540 8576 
6583 8613 8661 &88&6E3 89389 $003 $265 9271 
$286 $309 $330 $391 9434 3609 $630 $687 
$725 $753 $794 3995 10074 10093 
mmt$segment_ descriptor table 4448 7208 8131 
mmt$segment descriptor _table_ex 4516 7209 8132 
mmt$segment_inheritance 3917 3864 4492 7963 
mmt$segment_pointer 3902 7665 8286 
mmt$segment_pointer_kind 3899 3805 3903 
mmt$segment_reservation_state 4605 4433 7291 7681 9310 
mmt$server_segment_request 3780 3769 
mmt$set_get_subfunct ion_codes 3797 3794 
mmt$shadow_info 4580 4497 
mmt$shadow_reference_info 4619 4102 
mmt$shadow_segment_kind 4615 4584 8652 
mmt$software attribute set 3892 3858 4494 7536 7784 7785 7786 7788 7842 
8145 8247 $348 $457 9479 9704 9707 $710 
9711 
mmt$software_ attributes 3886 3892 
mmt$xcb_ page wait info 4630 4088 
mmv$a_divisor 6998 7138 7157 71857 7355 7355 
mmv$a_muitt 6999 7138 7138 7157 7355 
mmv$ast_p 6389 7351 7358 
mmv$default_sdt_entry 7105 7690 $335 
mmv$default _sdtx_entry 7108 7691 $333 
mmv$first_ transient seg index 7007 7304 $616 
mmv$page_map_offsets 7018 7523 
mmv$page_ streaming prestream 7047 79325 $350 $467 9468 $715 $716 
mmnv$page_ streaming transfer 7052 79330 7831/P 
mmv$pf_ job _template $154 $178/M $178 
mmv$pf system core 9153 9166/M $166 
mnuv$sfid_ match 7101 7371/M 7371 
mmv$sfid_mismatch 7102 7373/™M 7373 
mmv$sparse_ threshold 7103 7633 
monitor status 6113 6118 6120/P 
monitor status 7187 7264 7264/P 
monitor status 8308 8362 8362/P 
monitor status $238 $258 $258/P 
mp__p &736 8744/M 8767/M 8774/M 
mtt$monitor_ inter lock 2126 1996 
multiprocessing allowed 6262 7486 
nat$received_message_ descriptor 4646 46393 4648 
nat$received message list 4638 4070 
new _fde_p 8657 8680/P 8681 8685/M 8686/M 8687/M &8701/M 
new_sdt_entry 8000 8015/M 8018/P 
new sdt_ length 3562 7262/M 
new _sdt_length 7201 7221/M 7223 7224/M 7224 7225 7226/M 7226 72293 
7230/M 7233 7238 7240 7252 7262 
new _sdt_length 8134 8170/M 8171 
new _sdt_offset 3560 7260/M : 
new sdt op 7208 7238 7241/P 7242/P 7247/P 7247/P 7260 
new_sdtx_ entry 8001 8016/M 8018/P 
** x REFERENCE ABBREVIATIONS M=modify, Azattribute, Stsubscript, I2I1/0 ref, Reread, Wewrite, P=parameter 
REFERENCES OF mmm$segment_manager_system_core NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 349 
IDENTIFIER +--+ eee eee eee eee DEFINED-~---+-- sere ere REFERENCES 
ON LINE 
new sdtx_offset 3561 7261/M 
new sdtx_p 7209 7252 7254/P 7254/P 7261 
new _ segment number 7994 8018/P 
new sfid 8658 8680/P 8702 
new table size 7202 7225/M 7241/P 7242/P 
new_table_size 8135 &8171/M 8176/P 8177/P 
nic$cc_connect_confirm 4678 4669 
nic$cc_connect_request 4677 4667 
nic$cc_expedited_ data 4683 4669 
nic$cc_max_pdu_kind 4685 4688 
nic$channel_connect ion_pdu 4701 4653 
nic$channe inet_pdu 4701 4655 
nit$ce_ pdu_kind 4688 4666 
nit$cc_seq#_or_connect_time 4665 4654 
nit$cc_ sequence_number 4691 4670 
nit$device_identifier 4698 4649 
nit$pdu_type &701 4652 
normal 1075 6118/M 6119 7212/M 7243 7264/M 7284 7265 7303/M 
7312 7592/M 7631 7650 7683/M 7861 7899 7900/M 
7903 7907 7913 7971 8006 8035/M 8051/M 8084/M 
8148/M 8178 8282/M 8329/M 8347 &8362/M 8362 8363 
8400/M 8436/M 8543 8588 8616 8665 8813 8886 
8306 89394/M 9043/M 3030 $o3s7 $038 $101 $182 
9247/M $258/M $258 9275/M $279 §$315/M $322 $395 
9400 $412 $415 9436/M 9438 $522/M $548 $615/M 
$624 $6392 $756 $7399 9334/M 10000 10018 10080/M 
normal 3570 6118 7264 8362 87394 $258 
offset 5437 5422/M 8553/M 
offset 8730 8745 
offset array 8317 8323. 
offset list 3593 8358/M 
offset list 8312 8333 8357 8370 8380/M 
offset _ p 8323 8333 8338/P 8338/P 8358 8364 8372 &380 8384 
offsets returned 3592 8357/M 8370 8371 8373 8379 8383 
offsets returned 8313 8373/M 8383/M 
old _sdt_length 7203 7219/M 7274 7276/P 
old sdt_offset 7204 7217/M 7278 7279 
old_sdt_p 7206 7273 /M 7281 
old_sdt_p 8002 8005/P 8015 
old_sdtx_ offset 7205 7218/M 72785/P 7280 
old_sdtx_p 7207 7280/M 7282 
old _sdtx_p 8003 8005/P 8019 8016 
old. segment number 73933 &8005/P 8020/P 
open_count 2002 7511/M 7511 7515/M 7515 7545/M 7545 8093/M 8033 
8224/M 8244/M 6244 8686/M 891S/M 8319 8927/M 8927 
6928 89350 8951/M 90139/M $339/M $339 $9350 $953/M 
$353 10026/M 10026 10027 
open_count 8859 8324/M 8945/M 8945 83950/M 8350 8951 8953 8957 
open_count $991 10027/M 10030 
open_validat ing ring number 4489 7694/M 8010 8242 8300 8594/M 8674 9004 $050 
$803 
eosc$aging_interval_ maximum 6935 6938 


REE 


REFERENCE ABBREVIATIONS 


Mtmodify’, Azattribute, Sssubscript, I:1/0 ref, R=read, Wewrite, P2parameter 


REFERENCES OF mmm$segment_manager_system_core NOS/VE CYBIL/II 1.0 88102 1989-90 
IDENTIFIER---++-re-ee-> ha Raita at DEFINED *< 3-222 -.>'« --*°* "REFERENCES 
ON LINE 
osc$asid_ei 3942 7832 
osc$asid_eie 3943 7833 
osc$asid_nos 3944 7834 
eosc$base_ exception 2217 2223 
osc$binding segment 3333 7750 7819 8464 $836 9886 
osc$call_instruction 4896 4904 
osc$data_read 438ga5 4904 
osc$free_ running clock_maximum 1723 1720 
osc$global_privilege 3930 7811 8485 9878 
osc$invalid_ring 534 574 
osc$local_ privilege 3330 7770 8482 9856 9868 
osc$max_fault_contents 5072 SO66 
osc$max_name_size 811 815 818 1022 
‘osc$max_number_of_ processors 7074 7069 
osc$max_page_frames 6686 6310 6311 6605 6607 6750 6791 
osc$max_page_size 1503 1499 
osc$max_page_ table entries 6687 6690 
osc$max_ring 533 574 575 
osc$max_segment_ length 557 580 763 4500 4531 71141 
osc$max_status_condition_code 10390 1086 1102 
“osc$max_ string size 1106 1109 1112 1117 5985 
osc$max_tasks 2083 2080 
osc$maximum_offset 556 557 577 577 578 7938 7941 
osc$maximum_processor_id 43944 4940 
osc$maximum_processors 7078 7074 
osc$maximum_segment 555 576 
osc$min_ecc 2216 2217 
osc$min_page_ size 1502 - 1499 
osc$min_ring 532 575 
osc$non_executable 3929 7106 7478 7478 7777 8767 9663 
esc$non_privi leged 3929 7767 8479 $853 
osc$non_readablie 3932 7746 8546 9667 $832 
osc$non_writable 38335 74793 7807 7543 7759 $345 $354 
8765 $845 
osc$nowait 5382 7241/P 7638/P 8176/P 8905/P 10017/P 
osc$pr_base_constant 5646 5577 5603 5710 58725 5797 6024 
7514 7516 7594 7612 7645 7712 
7914 7955 8022 8036 8052 80394 
8245 8283 8401 8417 8520 8552 
8711 8749 8896 8907 8912 8326 
8952 8996 9044 9083 9099 9126 
9316 9338 9340 $527 $535 9538 
9819 10009 100193 10028 10081 
osc$pr_page_size_mask 5649 5948 8338 
osc$pva_purge_all_page_seg_ map 3357 8068 8091 8240 8707 8962 $300 
osc$pva_purge segment cache 3952 7552 
osc$read_key_lock_controlied 3332 8461 
osc$read_ uncontrolled 39333 7106 TT4a4 8458 9830 
osceSrtr_sft_full 4352 $563/P 
osc$segnum_job_ fixed heap 52397 5577 $602 5710 5724 57837 6023 
7279 7280 7472 7514 7516 7594 
7712 T7717 7888 7914 7955 8022 
8094 8156 8243 8245 8233 8401 


*** REFERENCE ABBREVIATIONS : Memodify, Azattribute, S=tsubscript, I=I/0O ref, 


REFERENCES OF mmm$segment_manager_ system_core NOS/VE CYBIL/II 1.0 89102 1989-0 
LOENRTIP TERS SO S)s 5 2 S66 5 se ee Sea DEF ENED =< <:s.<1ee ee tees 3 = REFERENCES 
ON LINE 
8552 8555 8599 8711 8749 8836 
8926 8929 8937 8952 8996 9004 
9083 9099 9126 $180 $276 9316 
9527 9535 9538 9613 3817 $8198 
10009 100138 10028 10081 
osc$task_time_slice_ maximum 4274 4277 
osc$vl_cache_bypass 4467 7488 74933 7762 7806 8491 8507 
9848 9873 
osc$vl_invalid entry 4467 7317 80690 8063 803932 8160 8161 
8256 8299 8414 8767 6318 8340 
9021 9048 9542 9631 $945 10094 
osc$vl_regular_segment 4467 7106 7764 7808 3054 9850 93875 
osc$wait $382 7276/P SS965/P 
osc$write_ key lock_controlled 3935 8473 
~esc$write_ uncontrolled 3336 7106 7757 8470 8630 9843 
osk$base 3475 3964 3968 3972 3376 3980 3384 
3996 4000 4004 4008 4012 &ois 
4027 
osk$system_ciass 3521 3505 3506 3507 3508 3508 3510 
osp$begin_system_activity 5978 $523 
osp$end_system_activity 5980 9566 9574 
osp$mfh_for_segment_manager 5752 5710 5742 7516 7645 7914 7955 
8245 8520 8555 8599 8711 8896 
8952 9340 9538 $819 10009 10018 
osp$set_ status abnormal 5382 6120 7234 7264 7602 7701 77093 
7752 7774 7789 7795 7813 7821 
7848 7852 7865 7908 7376 73985 
8061 8152 8234 8362 8405 8407 
8547 8623 &676 8682 8878 8897 
s6é99 $763 9766 $804 $821 $825 
9869 $8890 9888 $894 9337 10008 
10035 
osp$system_error 5683 5710 5729 7266 7516 7645 7914 
8094 8245 8520 8555 85939 8711 
8908 8929 8952 8954 9102 9183 
9819 9951 10008 10019 10020 10028 
ost$aging_ interval 6938 6196 6197 
ost$asid 1712 453 1660 1708 3862 4473 6254 
: 6781 6796 7123 7133 7149 7344 
ost$binary unique name 1411 1403 1514 1625 1998 
ost$byte_ count 1702 5840 5847 5832 §371 6103 
ost$caller_identifier 4038 8126 8856 
-ost$cilear_ file space 1016 463 618 2886 
ost$cp_time 4734 4087 6487 6517 
ost$cp_time_value 4732 4100 4735 4736 6191 6192 6296 
+ ost$ecs_ lock 2140 4068 
ost$debug code 4895 4883 
ost$debug_ list 4891 4795 
ost$debug_ list_entry 4882 4891 
“oest$debug mask 4901 4794 
ost$exchange_ package 4744 . 4055 
ostS$execute privilege 3828 3824 4468 
-est$execution_control block 4054 4080 5600 5722 5900 59314 5926 


*** REFERENCE ABBREVIATIONS : Memodify, Atattribute, S:tsubscript, I+1/0 ref, 


8-21 


6886 


9863 


9671 


6049 
7717 
8156 
gss5 
8329 
$180 
9613 


10041 


6048 
7612 
8036 
8417 


13:33:34 PAGE 950 


6892 


S727 


T7472 
7888 
8243 
8599 
8937 
$9276 
9817 


7275/P 
7645 
8052 
8520 


Rz=read, Wewrite, Ptparameter 


8-21 


8907 
9044 
$338 
93961 


$052 


8201 
8363 


6011 


13:33:34 PAGE $51 


8912 
9048 
$340 
$362 


9342 


8241 
§$002 


39392 
4024 


60293 


Reread, Wewrite, P=parameter 


REFERENCES OF mmm$segment_manager_system_core NOS/VE CYBIL/II 1.0 89102 1889-08-21 13:33:34 PAGE $52 


IDENTIFIER-- +e eee ee eer eres ~*DEFINED----------- *s--° REFERENCES 
ON LINE - 

6047 6376 7188 7290 7466 7467 7589 7686 
7687 8033 8049 8129 8138 8290 8398 &739 
&8&70 8872 8992 9041 9073 9124 $1859 $273 
$313 $520 9610 $332 10078 

ost$family_name 6948 6943 

ost$filags 4801 4751 

ost$frame_descriptor 4859 4874 

ost$free running _ctlock 1720 2014 4086. 4226 6190 6199 6265 6266 6267 
6268 6302 6312 6313 6314 6413 6795 

ost$global_task_id 2074 2016 2067 4o65 4066 4956 5159 5599 5721 
6034 6055 6186 6259 6288 SO77 $152 

ost$heap $314 7063 

ost$key lock 563 3847 4474 

ost$key_lock value 569 566 4040 4042 4818 4820 

ost$keypoint_class 4833 4764 4835 

ostS$keypoint_mask 4835 4767 

ost$S$minimum_save_area 4869 4756 4844 5053 9155 

ost$monitor condition 4705 4712 

ost$monitor conditions 4712 4757 4761 4849 5128 5142 

ost$monitor_ fault 5049 4998 

ost$monitor fault contents 5066 5062 

ost$name 818 781 842 888 919 1292 1624 1633 4189 
4405 5091 6108 63907 6946 6348 

ost$p_register 4816 4745 4870 5120 5126 

ost$page_id 6692 6702 

ost$page_size 14399 1480 5944 7087 

ost$page_ table entry 6697 6706 6766 

ost$page_ table index 6690 6706 6831 

ost$paging statistics 4922 4095 6518 

ost$processor_id 4940 4058 4934 

ost$processor_id_set 43934 4057 

ost$processor_model_number 1423 1413 6954 

ost$processor_serial_number 1507 1412 6955 

ost$pva 585 4789 4807 4821 5050 5143 7460 

ost$read_privi lege 39332 3925 4469 

ost$register_number 4812 4786 4855 4863 4864 4865 

ost$ring 574 586 3838 3839 4043 4471 4472 4489 &806 

ost$ring!_termination_reason 4952 4091 6129 

ost$segment 576 587 2015 3562 3744 3756 3841 4044 4586 
4784 4885 $497 5915 5927 6981 7007 7203 
7292 7329 7482 7573 7680 7961 79393 7994 
8043 8075 8143 8146 8289 ‘8308 8391 8425 
8527 8584 8605 8733 8735 8850 8866 83987 
8990 9040 9266 9272 $301 $311 $389 $421 
9602 9611 9680 9739 9782 $789 $9331 9986 
10072 

ost$segment_access control 3922 3860 

ost$segment_descriptor 4466 4440 8738 9658 

ost$segment length 580 505 2906 3793 3843 3845 3867 3869 3872 
5353 5459 $855 _ 5340 7202 7575 7583 7679 
8135 &607 8659 8380 9741 

ost$segment_offset S77 588 1709 3593 3774 4504 4886 4888 5448 
$458 8312 8317 8529 8730 $241 


* * + REFERENCE ABBREVIATIONS : M=modify, Atattribute, Stsubscript, I:I/0 ref, Rzread, Wewrite, Pzparameter 


REFERENCES OF mmm$segment_manager_system_core NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 953 
IDENTIFIER -- eee ee eet eee eee eDEFINEDe s+ + eee eee eee ~- REFERENCES 
ON LINE 

ost$signature_lock 2141 434 5755 

ost$stack_frame_save_area 4843 4877 5086 

ost$status 1074 1059 1286 3854 §121 5354 5366 5390 5338 
5404 $452 5476 5482 54893 5684 5841 5848 
5856 5894 S965 $373 5986 59396 6004 S056 
6115 7165 7189 7293 7576 7666 7964 7996 
8030 8044 8076 8123 8133 &283 8314 83395 
8428 8533 8577 8608 8653 &786 8853 8391 
99035 9078 9123 $156 $242 $267 9302 $381 
$386 9427 9509 $513 9603 9683 3742 93785 
$922 9987 10075 

ost$status_condition 10398 3571 

ost$status condit ion_code 1102 1077 1098 5984 

ost$status_ identifier 5991 5983 

est$string 1115 1078 

ost$string_ size 1109 1116 

ost$system_flag 5227 5223 6054 

ost$system_privilege map §321 8736 8754 8759 8773 

ost$system_virtual_address 1707 6836 

ost$task_index 2080 2075 2103 2104 

ost$task_time_slice 4277 4263 

ost$top_of_stack_ pointer 4804 4796 

ost$trap_enable 4838 4753 5117 

ost$user_ condition 4715 4722 

ostS$user_conditions 4722 4755 4759 4847 4876 5089 $129 

ost$user_identification 6941 6185 

ost$user_name 6946 6942 

ost$valid_ relative _pointer 583 2021 2024 4084 4085 

ost$valid_ring 575 981 982 $83 3803 4796 7962 7835 80293 
8426 8528 8606 8651 8851 $237 9298 9422 
$681 3740 9783 

ost$virtual_machine_identifier 4826 4747 47493 4871 

ostS$wait 5382 5364 5893 5964 $372 

ostS$write privilege 3935 3926 4470 

ost$x register 4813 4786 4855 

eosv$cpus_ logically _on 7069 7550 

osv$ job_fixed_heap 7O63 7238 7252 7278 7281 7282 8167 8188 8333 
8364 8372 8384 93967 $9368 

osv$multiple_ cpus _ possibie 7082 . T7477 9341 

osv$page_size 7087 5876 5876 7223 7224 7224 7225 7226 7240 
T274 7523 7626 7626 78S6 7858 7877 7877 
7929 78293 7931 7931 8169 8170 8170 8171 
8175 8700 $132/P 9141/P $144/P $352 9352 3460 
8460 $363 

p 5433 5421/M 8423 8553/M 8553 

p 5572 5577 

Pp 5595 §623 

p 5706 §710 5710 

p 5706 5710 

Pp 5715 5746 5746 

p 5715 5746 

p 5755 5773 5774 


*** REFERENCE ABBREVIATIONS : M-zmodify, Atattribute, Sssubscript, I=1/0 ref, R*read, Wewrite, P2parameter 


REFERENCES OF 


IDENTIFIER----c ce - eee eee eee eee 


DVVUVVUVVUVVVUVUVOVDUVUVUUVUVUVUVUVUUVUVUUUUUUUUUUUG 


p2 


p_register 


Ex 


REFERENCES OF 


IDENTIFIER-------------------- 


p register 2 


page_count 

page size 

page _ size 

page _ streaming transfer size 
page_streaming ts _ shift 
page _ streaming ts_shift 
page _ streaming ts_ shift 
page _ streaming ts_ shift 
pages _to_touch 
pages_to_touch 

parent sdt_p 

/ parent _sdtx_p 


parent _xcb p 

. passive_for_shadow_by_segnum 
pfcS$append 

pfc$execute 

pfc$modi fy 

pfc$read 

pfc$shorten 

pft$share_ options 

pft$usage options 

pftSusage_ selections 


pmc$internal_base_ except ion 
pmc$kill_task_flag 
pmc$max_signal contents 
pmc$max_task_id 
pme$min_ecc 

pmc$pc_base_ exception 
pmp$delay 
pmp$find_executing task_xcb 


pmp$find_task_xcb 
pmp$get_executing task_gtid 
 pmp$set_system_fiag 
pmp$zero_out_table 
pmt$binary_ mainframe_id 
pmt$condition_identifier 
pmt$cpu_model_ number 
pmt$cpu_seriai_number 
pmt$initialization_value 
“pmt $program_name 

pmt$sense_ switches 
pmt$signal 

-pmt$signal_ contents 
pmt$signal_id 

pmt$task_id 
pmt$task_private descriptor 


xx* 


S694 


2068 


REFERENCE ABBREVIATIONS 


DEFINED 
ON LINE 


2069 


4622 
§944 
8308 
7674 
7585S 
7673 
3306 
9432 
5339 
8308 
8136 
8137 


8138 


REFERENCE ABBREVIATIONS 


mmm$segment_manager_system_core NOS/VE CYBIL/II 


mmm$segment_manager_system_core NOS/VE CYBIL/II 


REFERENCES 


8417/M 
5577/M 
8417/M 
$130 

5948/M 
8338/M 
7873/M 
7626/P 
7877/P 
§$352/P 
9460/P 
5949 

8338 

8159/P 
8159/P 
8237 

8156/P 
7871/M 
9672 


Memodify, 


1.0 88102 


8552/M 
5608/M 
8552/M 
9141/P 
5954 
8338 
7874 
7627 
7878 
$3853 
9462 


8160 
8160 
8254 
8158 
8212/M 


1030 


1030 


$659 


6086 


9173 
T&72 
8749 
9316 
7699 
goss 
$181 
7254 


1485 
1484 
3851 

624 


4957 


1.0 89102 
REFERENCES 
S772 
5797 
7514 
7516 7516 
7516 
7612 
7645 7645 
7645 
7712 T717 
7914 7914 7955 
7314 7955 
8022 8022 
8022 
8094 8094 
8094 
8243 
8245 8245 
8245 
8417 
8520 8520 
8520 
8552 
8Ss5 8sS55 
8555 
85399 8599 
8s9g99 
8711 8711 
8711 
8896 8896 8907 
8896 8907 89298 
8926 
9338 
9340 9340 
$340 
9535 
9538 9538 
$538 
$817 
98198 9819 
9819 
100038 100095 100193 
10009 10019 10028 
5577/M 5623/M 5710/M 
7612/M 7645/M 7712/M 
8243/M 8245/M 8417/M 
88S6/M 8307/M 8926/M 
9538/M 9817/M 9819/M 
5577/M 5624/M 5710/M 
7612/M 7645/M 7712/M 
8243/M 8245/M 8417/M 
8896/M 8907/M 8926/M 
9538/M 9$817/M $819/M 
5577/M 5615/M 57937/M 
M=modify, Azattribute, 


8926/M 
5737/M 
8926/M 
9144/P 


7875 /M 
7929/P 
$463 
8161 
8160 
8257 
8159/P 
8936 
$664 


$668 


$661 


6095 


9413 
7594 
83912 
$527 
8150 
9180 


8182 


7055 
640 


6028 


7955 


8907 
8952 


10019 


5746/™M 
7717/M 
8520/M 
8929/M 
10009/M 
5746/M 
7717/M 
8520/M 
8929/M 
10009/M 
751a/M 


S=subscript, 


9338/M 
7514/M 
$338/M 


7877/P 


7931/P 


8201 
8160 


8944/M 


S664 


7888 
83837 
$613 
8876 


8189 


7451 


Azattribute, Szsubscript, 


1989-08-21 13:33:34 

8329 83829 8952 8952 
10028 10028 

S772/M 5797/M 7514/M 7516/M 
7914/M 7955/M 8022/M 8094/M 
8552/M 8555/M 8539/M 8711/M 
8952/M S338/M 9340/M §535/M 
10019/M 10028/M 

5773/M 5797/M 7514/M 7516/M 
7914/M 7955/M 8022/M 8094/M 
8552/M 8S555/M 8599/M &8711/M 
8952/M 8$338/M 9$340/M 9535/M 
10019/M 10028/M 

7612/M 7712/M 7717/M 8243/M 

Ts=1/O ref, Reread, Wewrite, P=p 
1889-08-21 13:33:34 

g9535/M 9817/M 

7812/M 7712/M 7T717/M 8243/M 
9535/M 9817/M 

7933 

8205 8241/M 8256 

8162 8202 8203 8208 
10039/M 

$668 3672 $672 9673 
8036 8052 8156 82933 
8gsgs6 9044 9083 $126 
10081 

8315 9935 

$Oo7 
7664 8122 8852 $$21 

I=s=I/0 ref, Reread, W-write, 


PAGE 954 


arameter 


PAGE 955 


Psparameter 


REFERENCES OF 


IDENTIFIER----+ +--+ ---- eee eee 


pmt$task_template 
pointer kind 
power 

power 

power 


power 

power 
preset _and_ save_fb_and_t 
preset streaming 
preset value 

preset _vaiue 

process virtual_address 
ps_transfer size 
ps_transfer size 
ps_transfer size 
Pps_transfer_ size 
ps_transfer size 
ps_transfer size 
ps_transfer size power 
ps_transfer_size_ power 
ps_transfer size power 
PS_transfer_size_power 
ps_transfer size _ power 
psa 

pva 

pva 

pva 

pva 

pva 

pva 

pva 

pva 

pva 

pva 

pva 

pyva_p 


queue_id 
queue_status 


ri 
ri 


rt 
r2 
r2 


r2 
rb 
rb 
rb 


* XX 


REFERENCES OF 


e 


IDENTIFIER: --- ree ee cee eee ee eee 


rb 
ro 
rob ringl server_seg request 


read privilege 

read write access selection 
referenced byte 

referenced _byte 

reqcode 

reqcode 

reqcode 

reqcode 


request 
request 
request block 
request_block 
request block 


request block 
request block 
request block 
request code 
request code 
residence 


return_unallocated offsets 
returnm_unallocated offsets 
ring 

ring 1 stack segnum 

rma 

rma 

rmc$external_vsn_size 
rmc$msc_system_critical_files 
rmc$msc_user_ temporary files 
rmce$recorded vsn_size 
rmc$unspecified file class 
rmt$external_ovsn 
rmt$recorded_ vsn 
rmt$volume_descr iptor 

rp 


saved_ free behind 

saved transfer size 
scan_sdt_for_inher ited segs 
scan_sdt_for_inher ited segs 


zx 


DEFINED 
ON LINE 
6875 
3805 
5868 
78572 
7662 


s2g5 
9420 
9423 
4510 


5415 
5435 
8047 
8080 
8139 
8526 
8574 
8860 
$792 
9992 
7460 


6798 
2012 


3838 
4471 


$2397 
3839 
4472 


$298 
7168 
7346 
8782 


REFERENCE ABBREVIATIONS 


DEFINED 
ON LINE 
8986 
9515 
9245 


3925 
$300 
5945 
8308 
3589 
3716 
3767 
5691 


REFERENCE ABBREVIATIONS 


eanaeee eo e eae nw ee « ao 


mmm$segment_manager_system_core NOS/VE CYBIL/II 


REFERENCES 


$013/M 
§525/M 
9249/M 
8258/P 
7818 

$344 

§953/M 
8338/M 
&8355/M 
7174/M 
9249/M 
5577/M 
7612/M 
8243/M 
8896/M 
9538/M 
7175/M 
9251/M 
5518/M 
7259 /M 
8355/M 
8370 

8446/M 
8628/M 
3770/P 
7259/M 
5519/M 
5542 

7612 

8417 

9006 

9557 

8359/M 
8359 

8890 

8997/M 
8190/P 


9132/P 


1598 
7619 
7621 
1605 
1373 
1612 
495 
1617 
7744/M 
8830/M 


9454/M 
9459/M 


mmm$segment_manager_system_core NOS/VE CYBIL/II 1.0 89102 


REFERENCES 

6971 

7944 

5877/M 5879/M 
7626/M 7626/M 
7877/M 7877/M 
7929 7929 
9352/M $352/M 
8460/M 9460/M 
9449 

S466/M $476/M 
7803/M 8501 
7803 8501/M 
9393 

7873 

5876 

7626 

7877 7329 
9352 

9460 

5882 5883/M 
7626 7626/M 
7877 7877/M 
7931 7931/M 
$352 9352/M 
$460 9460/M 
9161/M 9164 
7525/M 8997 
5421/M 5422/M 
5422/M 8553/M 
&8067/M 8068 
8090/M 8091 
8239 /M 8240 
8553/M 8553/M 
8586 

8830/M 8905/P 
$899/M 8900 
9998/M 10017/P 
7524/M 7525 
7363 7366 
7364 7365 
7733 7738 
7522 7525/S 
8230 8441 
9336 

7733 7734 
7693/M 7739/M 
9444 9698 
9337 

7174/M 7175 /M 
7385/™M 7386/™M 
8791/™M 8793/P 

Memodify, 


1.9 89102 


9014/M 
9526/M 
9250/M 


7824 


5957/™M 
8338/M 


7385/™M 


5619/M 
7645/M 
8245/M 
8907/M 
9817/M 
T386/M 


5520/M 
T260/M 
8356/M 
8371 

8446/M 
&8628/M 
9771/M 


8446/M 
5543 
7612 
8417 
9006 
9557 


9005 
8131 
9133 


1546 


7746/M 
$832/M 


5879 
7626 
7877 
7931/M 
$352 
S460 


7931 


5883 
7626 
71877 
7331 
9352 
9460 


5423 


8553 
8962 
10041 
7366 
7368 


8441/M 
7526 


' 8674 


7739 
7375 
9815/M 


7176/M 
7387/M 
8793/P 


Azsattribute, 


SO1S/M 
9544/M 
9251/™ 


8513/M 


9013/M 


5710/M 
7712/M 
8417/M 
83926/M 
9819/M 
8796 


5521/M 


3772/M 


8628/M 
5795 
7712 
8552 
$338 
S779 


‘81392 


1558 


7750/M 
§836/M 


9477 
$482 


$882 
7626 
7877 
7931/M 
9352 
9460 


5885/M 
7626/M 
7877/M 
7931/M 
§9352/M 
9460/M 


7369 


8814 
7632/M 
§336/M 


8442/M 
8442 


T177/P 
73838/M 
8794 


subscer 


9016/P 
9545/P 
$252/M 


9886 


9525/M 


5746/M 
7717/M 
&8520/M 
8329/M 
10009/M 
9014/M 


§522/P 
7262/M 
8358/M 
8379 

8446/P 
8628/P 
9773/™M 


9771/M 
5795 
T7712 
8552 
$338 
9770 


1611 


7824/M 
$891/M 


58é&5 
7626 
7877 
7931 
$352 
$460 


7929 


7384 


7738/M 
S762 


$815 
8546 


7177/P 
73839/M 
8795 


ipt, I:I/0O ref, 


9016/P 
8550/P 
9253/M 


$891 


5763/M 
7914/M 
8552/M 
8952/M 
100139/M 
9$526/M 


5522/P 


S775/P 


7361 
7717 
8627 
$535 
9817 


1846 


8457 


1989-08-21 


$550/P 
9255/P 


5797/M 
7955/M 
8555/M 
9338/M 
10028/M 


7263/P 
8361/P 


$775/P 


7362 
T7717 
8627 
$535 
$817 


8513 


1989-08-21 13:33:34 
7923S/M 7323/M 7329 
73931 7931 
738329/M 7929 7929/M 
7485 7431 7713/M 
7946/P 7949/P 71952 
9814/™M 
8622 9337/M 9444 
7390/P 7390/P 
87396 87993 8816/M 

Reread, Wr-write, 


13:33:34 

9557/P 

9255/P 3257 
7514/M 7516/M 
8022/M 8094/M 
8539/M 8711/M 
9340/M 9535/M 
7264/P 

8361/P 8362/P 
7514 7514 
8243 8243 
8326 8326 
9545 $545 
$949 9949 
8546 S667 


PAGE 


956 


=parameter 


PAGE 957 


Metmodify, Azattribute, S:subscript, I=1/0 ref, Rtread, Wewrite, P=parameter 


a 


REFERENCES OF 
EDENTIE LER 3 Sto <9 8 as ce si sete DEFINED----- 
ON LINE 
sd 7447 
sd $295 
sd 3724 
sd_p 9390 
sd_p 9686 
sdt_entry 7347 
-sdt_entry 7448 
sdt_entry 7675 
sdt_entry 8141 
sdt_entry 8575 
'sat_entry 8264 
sdt_entry $307 
sdt_entry_p 7461 
sdt_entry_p 7677 
sdt_entry_p 7367 
sdt_entry_p 8048 
sdt_entry_p 8081 
~sdt_entry op 8325 
sdt_entry_p 8332 
sdt_entry_p 8433 
sdt_entry_p 8539 
sdt_entry_p 8582 
sdt_ entry op 8612 
sdt_entry op 8660 
sdt_entry op 8737 
sdt_entry_p 8862 
sdt_entry_p 8988 
sdt_entry_ p $270 
sdt_entry_p $308 
sdt_entry_p 9433 
- sdt_entry_p 3608 
sdt_entry_p 3752 
sdt_entry_p $793 
sdt_entry_p 9994 
sdt_entry_p 10073 
- sdt_offset 4084 
sdt_p 5901 
sdt_p 7289 
sdt_p 7296 
sdt_p 8121 
e,sat_p 8282 
sdat_p 8287 
sdt_p 8849 
‘sdt_p 8864 
sdt_p 9033 
be 
REFERENCES OF 
SOREN LE LER eee Sere sie Se ees Ss ~DEFINED----- 
ON LINE 
sdt_p $038 
sdt_p 9507 
sdt_p $517 
sdt_p 99320 
sdt_p $329 
sdtx 7447 
sdatx $295 
sdtx $725 
sdtx_entry 7449 
sdtx_entry 7676 
sdtx_entry 8142 
sdtx_ entry 8576 
sdtx_entry $265 
_sdtx_entry_p 7462 
sdtx_ entry _p 7587 
sdtx_entry_p 7678 
sdtx_entry_ p 7968 
sdtx entry _p 8082 
sdtx_entry op 8326 
sdtx_entry_p 8333 
sdtx_entry_p 8434 
sdtx_entry_p 8540 
sdtx_entry_p 8583 
. sdtx_entry_p 8613 
sdtx entry _p 8661 
sdtx_entry_p 8863 
sdtx_entry p 8989 
sdtx_entry p $271 
sdtx_entry_p $309 
sdtx_entry_p $434 
 sdtx_entry p 8603S 
~sdtx_entry op $753 
sdtx_entry_p $794 
sdtx_entry_p 99s5 
sdtx_entry p 10074 
sdtx_ offset 4085 
sdtx_p 5302 
sdtx_p 72893 
'sdtx_p 7297 
sdtx_p 8121 
sdtx_p 8282 
 satx_p 8288 


ket 


REFERENCE ABBREVIATIONS 


REFERENCE ABBREVIATIONS 


wt eeee “REFERENCES 


mmm$segment_manager_system_core NOS/VE CYBIL/II 


REFERENCES 


7507 

$354 

9727 

9394/P 
9691/P 
7349 /M 
7469 

76930/M 
7757/M 
7806/M 
7949/P 
8205/M 
8597/M 
9285 

§9335/M 
7504/M 
7838/P 
7970/P 
8059/M 
8086/P 
8346/P 
8412/M 
8437/P 
8507 

8542/P 
8587/P 
8615/P 
8664/P 
8765/M 
888s/P 
9001/M 
9284/M 
93239 /M 
9437/P 
9629/M 
9755/P 
9798/P 
9848/M 
§891/M 
$999/P 
10092/M 
5906 

8194/M 
9046 

5906/M 
7306/M 
7306/P 
8159/M 
8237/M 
8297/P 
8338/M 
8938/P 
S046/M 


M=modi 


mmm$segment_ manager _system_core NOS/VE CYBIL/II 


1.09 89102 


7543 


9698 
7351 


7682/M 
7753/M 
7808/M 
7952 

&8206/M 
8598/M 


§9336/M 
7510/P 


7975 
8060 
80932/M 


8414 
8441 
8512 
8546 
8597 
8622 
8674 
8766 
8963/M 
99062 


fy, 


1.0 898102 


gso046/P 9048 
9528/M 
9528/P $542 
9941/M 
9$941/P 9945 
7507/M 7507 
9354/M 9354 
9728/M 9729 
7470 7521 
7691/M 7694/M 
7845/M 7855/M 
7924 739325/M 
8208/M 82093 
&220 8229 
8252 8257/M 
8596/M 
9287 
7505/™M 7506 
7596/M 7537 
7652/M 
7898/P 
7370/P 7380 
8086/P 
&8346/P 8350 
8413/M 8417/P 
8437/P 8497 
8542/P 8552/P 
8587/P 8593/M 
8615/P 8627/P 
8664/P 8674 
8639/M &8702/M 
8885/P 8895 
8959/P 
9003/M 9004 
9286/M $287/M 
9330/M 9333/M 
9437/P 9454 
9466/M S467 
9630/M 9632 
9755/P 9770/P 
9798/P 8803 
9999/P 10007 
10033 /M 
10033/M 
5307 5930 
8195/M 8250 
$286 $330 
5907/M 
7306/M 
7T306/P 7318 
8159/M 
823937/M 
8297/P 8300 
Memodify, 


7352 

7693/M 
7762/M 
7816/M 


8207/M 


9337/M 


8069/M 


8442 
8513 
8546 


86390/M 


9021/M 


$444 


9765 
9815/M 
§$853/M 


7217 
8297 
9329 


Azattribute, 


9052/M 


7507/M 
9354/M 
S730/M 


7695/M 
7857/M 
7828 
8210 
8232/M 
8258/M 


7509/M 
7898 


7981/M 


8503 
&8S566/P 
&8594/M 


8675 
8904 
9006/P 
9334/M 
9456/M 
9468/M 
9634/M 
9817/P 
10016 


7218 
8259 
$528 


Azattribute, 


7354/M 
7738/™M 
7764/M 
7824/M 


8230 


9342/M 


8454 
8514 


8706/M 


$830/M 
9856/M 


7306 
8412 
9528 


S$=subscript, 


9054/M 


7507/M 
9354/M 
9732/M 


7724/M 
7868/™M 
7933/M 
8211/M 


8238/M 
8260 


7539 


7982 


8595/M 
8691/M 
8925 
3020/P 
9348/M 
9456 


9476/M 
9636/M 


10031/P 


7306 
82397 
9630 


Szsubscript, 


1989-08-21 13:33:34 PAGE $58 

7356/M 7357 7358/S 
7739/M 7744/M T746/M 7750/M 
7767/M 7770/M 7777/M 7800/M 
7825/M 7835/M 7936/P 7946/P 
8251 
9345/M 9354/P 8356/P 
8457 84698 8478 8490 
$832/M 9836/M 9843/M 9845/M 
§$863/M 8$873/M 9875/M 9883/M 
7504 7540 g8o59 8159 
8765 8917 83938 9001 
$6293 9941 $961 10092 

I=1/0 ref, Rtread, Wewrite, P=parameter 

1989-08-21 13:33:34 PAGE $59 

7543/M 7543 7543/M 7543/M 
7783/M 7792/M 7841/™M 7841 
7869 /M 7&870/M 7878/™M 78739/M 
7936/P 
8212/M 8213/M 8213 8216/M 
$242 8243/P 8246/M 8246 
7600 7601 7625 7627/M 
7383/™M 
8596 
8696/M 8697/M 8697 8698/M 
8326/P 8933/P 8936 83859/P 
9020/P 
9350/M $353/M gs354/P 
s4s8s 9462 9463/M $465 
9478/M 8478 9481 9482/M 
10031/P 10037/M 10037 10038/M 
7505 7541 7596 81593 
8413 8338 $003 9046 
$941 9962 1003833 

Is1/0 ref, Reread, Wewrite, P=parameter 


REFERENCES OF mmm$segment_manager_system_core NOS/VE CYBIL/II 1.0 89102 1889-08-21 13:33:34 PAGE 9360 
IDENTIFIER-------- See se Se sea DEFINED-----er ee mere REFERENCES 
ON LINE 

sdtx_p 8843 8938/M 

sdtx_p 8865 8938/P 8941 8342 8943/M 8944/M 

sdtx_p 9033 9046/M 

sdtx_p 8o39 9046/P 9048 8050 

sdtx_p $391 $394/P $399/P 9411/P 

sdtx_p 9507 8$528/M 

sdtx_p $518 9528/P $543 9544 

sdtx_p $687 9691/P $703/M $703 9706/M S706 3703/M $7083 9714 
$715 $716/M 

sdtx_p $920 $941/M 

sdtx_p $330 9941/P $946 9949/P 9954/P 9955/P 

sdtx_table 4521 7318 8160 8160 8160 8162 &202 8203 8208 
8237 8254 8257 &300 8941 8942 8843/M 8944/M 
$049 $O50 $543 $544 9946 9949/P $954/P 9955/P 

seg 587 8997 

seg 5533 5541/M 5544/M 5546/M 5549 5550 

seg 57893 5795/M 5795/M 5795/M 5795 5795 

seg 7447 7514/M 7514/M 7514/M 7514 7514 

seg 7572 7612/M 7612/M 7612/M 7612 7612 

seg 7662 7712/M 7712/M 7712/M 7712 7712 7717/M 7717/M 7717/M 
7717 7717 

seg 8121 8243/M 8243/M &8243/™M 8243 8243 

seg 8390 8417/M 8417/M 8417/M 8417 8417 

seg 8526 8552/M &8552/M 8552/M 8552 &5S2 

seg 8604 8627/M 8627/M 8627/M 8627 8627 

seg 8849 &8926/M 8926/M 8926/M 89326 8926 

seg 83982 9O006/M S006/M 9006/M 9006 SOO6 

seg $295 $338/M $338/M §$338/M $338 $338 

seg $507 9535/M 9535/M 9535/M §535 9535 8545/M $545/M 9545/M 
8545 9545 9557/M 9557/M $557/M $557 9557 

seg $738 S$770/M $770/M S9770/M 9770 3770 

seg 9781 S817/M S817/M 9817/M 9817 $817 

seg $920 $949/M 9949/M $949/M $949 $9349 

seg_ attributes 8427 8438 8438 8439 8441/M 8442/M 8444/M 8446/M 8448 
8449/M 8451/M 8451 8454/M 8456/M 8459/M 8459 8462/M 
8462 8465/M 8465 8471/M 8471 8474/M 8474 8480/M 
8480 8483/M 8483 8486/M 8486 8492/M 8492 8497/M 
84839/M 8501/M 8503/M &8505/M 8508/M 8510/M 8512/M 8513/M 
8514/M 

segment 6377 8744 8745 

segment_attributes 93784 $810 $810 9811 9814 9815 9818 $824 98298 
9834 9842 9847 $852 9855 $858 $868 9872 
9878 $883 9886 $891 $832 

segment descriptor 9658 8663 $667 8671 

segment inheritance 7963 7980 7982 

segment_length 37393 3773/M 

segment_length 7679 7939/M 7941/M 7946/P 7949/P 

segment_ length 8607 &8628/M 

segment_ length 8659 8694/P 8699 

segment_length 9741 9773 

segment_ lock 4496 8904 10016 

segment _num_iist 8602 9619 9619 9638/M 

segment number 3756 7388/M 


ex REFERENCE ABBREVIATIONS Memodify, Azattribute, § 


subscript, I:1/0 ref, Rtread, Wewrite, Pzparameter 


REFERENCES OF mmm$segment_manager_system_core NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 961 
IDENTIFIER---- eee e rrr rere DEFINED<---- ee eee eee eee REFERENCES 
ON LINE 

segment _ number 7452 7504/P 7505/P 7510/P 7522 7540/P 7541/P 7544/P 7551 

segment_number 7573 7595 7596/P 7651 

segment number 7680 7696/M 7707/P 7741/M 78390 7896/P 7898/P 7901 7901 
7321 7936/P 7946/P 7949/P 7952 

segment number 7961 7370/P 

segment number 8043 8054 &80S59/P 8067 

segment number 8075 8086/P 8090 

segment number 83093 8345 8346/P 

segment _number 8391 8403 8404 8412/P 8413/P 

segment _number 8425 8437/P 8444 

segment_number 8527 8542/P 

segment_number 8605 8615/P 

segment number 8850 &8885/P 8890 8917/P . 

segment number 8266 9289/M 

segment_number 9301 $358/M 

segment _number $3893 $393/M $394/P 9411/P 

segment number 9421 9437/P 

segment _number 9680 §6391/P 

segment number $739 $755/P 

segment_number $782 3798/P s8g9 

segment _number $986 9998 $999/P 

segment number 10072 10083 10084 10092/P 10093/P 

segment pointer 7665 7947/P 7950/P 7952/M 

segment_pointer 8650 8664/P 8694/P 8707 

segment _res_state 72931 7318 

segment _res_ state 7681 7892/M 7894/M 7896/P 

segment_res_ state $310 8320/M 9321/P 

segment _reservation_state 4493 7318 7506/M 7506 8160 8162 8203 8254 8258/M 
93632 9634/M 9636/M 

segment _ table address 1 4788 8191/M 

segment_table address 2 4730 8182/M 

segment table length 4784 7219 7221 7233 7305 7315 7301 7901 8054 
8158 8183/M 8298 8403 8754 8756 8339 3000 
9047 9531 9617 $627 9944 10083 

segment _tabie_ length 7298 7305/M 7310 7315/M 

segment _table_length S606 9617/M 9622 9627/M 

segment _ table size_increase 7198 7221 

segnum 3744 9015/M 

segnum 3841 7741 8444/M 

segnum §915 5918 

segnum 5927 5930 

segnum 7292 7304/M 7308/M 7309 7310 7317/8 7318/8 

segnum 7329 7388 

segnum 7447 7504 7540 

segnum 7447 7505 7541 

segnum 7572 7596 

segnum 8042 8059 

segnum 8121 8248 

segnum 8121 8250 8259 

segnum 8143 8200 8201/58 8202/S 8203/58 8205/S &8208/S 8223 8227 
8228 8237/58 8238 &8241/S 8249/P 8250/P 8254/S 8256/S 
8257/8 8259/P 

segnum 8289 8298 8299/5 8300/S 8301/P 

eX REFERENCE ABBREVIATIONS Memodify, Atattribute, S=subscript, 11/0 ref, Reread, W-write, P*parameter 


REFERENCES OF 


IDENTIFIER-------- ere eeee eee 


segnum 
segnum 
segnum 
segnum 
sagnum 
segnum 
segnum 
segnum 
segnum 
segnum 
segnum 
segnum 
segnum 
segnum 
segnum 
segnum 
segnum 
segnum 
segnum 
segnum 
segnum 
segnum 
segnum 
seq_pointer 
seqno 


sequential _accesses 


sequent ial_random_ selection 


server file 
sfc$no_ limit 


sfcStemp_file_space_limit 


sfid 
sfid 
sfid 
sfid 
sfid 


sfid 
sfid 
sfid 
sfid 
sfid 
sfid 
_sfid 
sfid 
sfid 
sfid 
sfid 


REFERENCES OF 


IDENTIFIER---- 2 eee eee ee ee ee eee 


sfid 
sfid 
sfid 
sfid 
sfid 
sfid 
sfid 
sfid 
sfid 
sfid 
sfid 
sfid 
sfid 
sfid 
sfid 
sfid 
sfid 
sfid 
sfid 
sfid 
sfid 


sfid 
sfid 
sfid 
Sfid 
sft$counter 


Sft$file_space_limit_kind 


Shadow_fde_p 
shadow _fde_p 
shadow_info 


sShadow_ length 

shadow _length_page_ count 
shadow _open_ count 
Shadow _p 
“Shadow_reference_info 
shadow sdt_p 
shadow_sdtx_p 

Shadow segment kind 


Shadow, segment_kind 
Shadow_segment_number 
‘Shadow _ sfid 

Shadow _ start _page_ number 
shared taskid_array 
Shared taskid_array 
Shared _taskid_array 
Size _ offset 

Size offset 


1] 


RS 


ReE 


DEFINED 
ON LINE 
83390 
8390 
8584 
8729 
88493 
8866 
8982 


REFERENCE ABBREVIATIONS 


DEFINED 
ON LINE 
7662 
7662 
7682 
8121 
8121 
8144 
8327 
8390 
8390 
8526 


“REFERENCES 


mmm$segment_manager_system_core NOS/VE CYBIL/II 1.0 89102 


8412 

8413 

&8586/M 8587/P 

8765 

8917 

83939 8940/S 

9001 

9003 

9000 9001/P 

9047 9048/S 

9284 

9286 

$278/P 9284/P 

9329 

9330 

$321/P $329/P 

9531 $533 

9629 

9630 

9616/M 9621/M 

$944 $94a5/Ss 

10092 

10093 

7947/P 

5577 5621 

7645/M 7712 

8245/M 8417 

8907/M 8926 

9817 s$819/M 

79325/M $350/M 

$347 

7389/M 

71141 7606 

89334/P 

8356/M 

7176/M 8739 

3250/M 

7706 7716 

7510/P 7544/P 

8350 8417/P 

9006/P 9020/P 

9949/P 9954/P 

5542 5543 

5795/P 

5795 5795 

7360 

7171/M 7176 

7360 7361 

7514/P 

7514 7514 

7612/P 

7612 7612 

75939/M 7608/M 
Mz=modify, 


mmm$segment_manager_system_core NOS/VE CYBIL/II 


REFERENCES 


7712/P 
7712 
7707/P 
8243/P 
8243 
8221/P 
8350/M 
8417/P 
8417 
8552/P 
8552 
8627 
8799/M 
8926/P 
8926 
9006 
9338/P 
9338 
$334 
§535/P 
9535 


5S350/M 
8338/M 


1.0 89102 


7717/P 
71712 
7712/P 


8243 
8223/M 
8352/M 


8417 


8552 
8627 
8&812/P 


8926 
9006 


$338 
§$338/P 


$535 
9557 
$770 


$8817 
$949 
6203 
2896 
7582 
7515/M 
8927/M 
7514/P 
8209 
8699/M 
8944/M 
7856 
&8699/M 
8930 
7858 
9131/P 


7864 


8941/8 


9003/P 
9048 


8286/P 


8$330/P 
9542/S 


$621 
$946/S 


5710/M 
7717 
8520/M 
8329/M 
10009 /M 
9467 


8595 


$544/M 


7915 
759398 
8552/P 
9334/M 
10031/P 
5549 


$785 


7181/P 
7362 


7514 


7612 
7612/P 


Azsattribute, 


T7712 
7716/M 


8243 
8232 
8356 


8417 


8552 
8627 


8326 
9006 


9338 
9356/P 


$535 
9557 
$770 


$817 
$949 
6204 
3804 


7515 
8927 
785S/M 
8210 
8325 
10007 


7859/P 
9132/P 


7870 
7868/M 
10007 


8213 


7537 
7698 
8875 
§$52 
8338/58 


ss 


8941 8942/S 
9004 9005 
9043/5 9050/5 
9289 

9356/P 9358 
9543/S 9544a/Ss 
9622 9629/P 
9949/5 9954/5 
5735/M 5797 
7914/M 7955/M 
8552 8555/M 
83952/M $338 
10019/M 10028/M 
9468/M §715 
9545/P 9557/P 
T724/M 7870 
8566/P 8627/P 
83399/P 9411/P 
10037/M 

5550 

5795 

7387 

7514 

7612 

7623/P 7638/P 
subscript, 

7712 7717 
7717/P 7724 
8243 

8417 

8552 

8627 

8926 

9006 

$338 

9535 9545 
§557 

S770 

9817 

99498 

6206 6519 
44398 5365 
7516/P 

8928 8829/P 
7857/M 7864 
8211/M 8212/M 
8926/P 8933/P 
10037 10038/M 
7869S 

9140/P 9141/P 
7871/M 

8209 8210 
10038/M 

8697/M 8926/P 
7538/P 

7699/P 7891 
8876/P 8913 
5953/S 5954/M 
8338/M 8338 


I:1I1/0O ref, 


1989-08-21 


8943/5 


9015 
9052/S 


9547/P 


9630/P 
3955/S 


7514 

8022/M 
8539/M 
9340/M 


9716/M 


8213/M 


7640/P 


1989-08-21 


7717 


$545 


10039 /M 


9143/P 


8211/M 


8933/P 


79336/P 
8914 


R=read, 


13:33:34 
8944/S 
9054/S 
$638 
7516/M 7612 
8094/M 8243 
8711/M 8896/M 
9535 9538/M 
8232/M 8243/P 
8702/M 8959/P 
9770/P 9817/P 


Wewrite, P=p 


13:33:34 
7717 T7117 
s545 9545 
5475 5488 
83832 8933/P 
7869/M 7870/M 
8E96/M 8697/M 
8941 8942 
9143/P 9144/P 
8896/M 8325 

10037 
83814 8915/P 


PAGE 962 


arameter 


PAGE 963 


REFERENCE ABBREVIATIONS : Memodify, Atattribute, S:subscript, I:1/0 ref, R=sread, Wewrite, Psparameter 


REFERENCES OF mmm$segment_manager_system_core NOS/VE CYBIL/II 1.0 89102 1889-08-21 13:33:34 PAGE $364 
IDENTIFIER--+++++-e-- Oe Sea eS) See DEF INED-<-"- ssc eee eee a REFERENCES 
ON LINE 

software _attri_set 3858 7783 7785 7788 7782 8497/M 

software attribute set 4494 7507 7521 7535/M 7535 7543 7600 7601 7783/M 
77392/™M 7841/M 7841 7924 8229 8246/M 8246 8497 
8675 9348/M 9354 $454 9456/M 9456 $478/M 9478 
$703/M 93703 9706/M 93706 $709/M $709 9714 $729 

source 5818 5828 

source 9111 9144 

source pva 4620 $131/P 9132/P 9140/P 9143/P 

st 4453 7317 8160 8161 8201 8205 8241/M &256 82993 
8940 $048 9052/M S054/M $542 $945 

stack for_ring 2017 7526/M 8230/M 

stack pages. saved 4083 8037/M 

stack _pages_ to _be_ freed 8028 8037 

starting byte_address 8529 8551 8566/P 

status 3559 7T264/P 

status 3590 8362/P 

status 3717 &794 8795 

status 3775 9258/P 

status 61175 6118/M 6119 6120/P 

status 7165 7181/P 

status 7187 7264/™M 7264 7264/P 

status 7189 7212/M 7T234/P 7241/P 7242/P 7243 7264/P 7265 7266/P 
7276/P 

status 7293 7303/M 7311/P 7312 

status 7576 7582/M 7602/P 7623/P 7631 7638/P 7640/P 7650 

status 7666 7689/M 7701/P 77039/P 7719/P 7735/P 7752/P 7774/P 7789/P 
7795/P 73B13/P 7821/P 78238/P 7837/P 7848/P T8S2/P 7T860/P 
7861 7865/P 78S6/P 7898/P 78393 7899 7900/M 7902/P 
79303 7907 7908/P 7313 

status 7964 7370/P 7971 7976/P 7885/P 

status 7936 8005/P 8006 8011/P 8020/P 

status 8030 8035/M 

status 8044 8051/M 8055/P 8061/P 

status 8076 8084/M 8086/P 

status 8123 8148/M 8152/P 8176/P 8177/P 8178 8234/P 

status 8283 &8&292/M 8301/P 

status 8308 8362/M &362 8362/P 

status 8314 8329/M 8346/P 8347 8362/P 8363 

status 8395 8400/M 8405/P &8407/P 8415/P 

status 8428 8436/M 8437/P 8516/P 

status 8533 8542/P 8543 8547/P 8567/P 

status 8577 8587/P 8588 

status 8608 &8615/P 8616 8623/P 

status 8653 8664/P 8665 8676/P &8682/P 8694/P 

status 8786 8812/P 8813 

status 8853 8878/P 8885/P 8886 8897/P &8905/P 8906 8308/P 83934/P 
83539/P 

status 8991 &8934/M $020/P 

status 9035 $043/M 

status 9078 s08s9/P gog0 $091 $091 sogs2 9095/P 9096/P 30397 
9098 $100/P $101 

status 9123 9141/P 

status 9156 $173/P 9181/P $182 


** x REFERENCE ABBREVIATIONS Memodify, Azsattribute, S:subscript, z=I/O ref, Reread, Wewrite, Psparameter 


REFERENCES OF mmm$segment_manager_system_core NOS/VE CYBIL/II 1.0 89102 1989-68-21 13:33:34 PAGE 965 
IDENTIFIER: ~-- 2 +--+ ee nnn eee eee DEF -ENE Ds -79:$.5:s 2\e.8 8) = Sues = te REFERENCES 
ON LINE 

status 9238 $258/M $258 $258/P 

status 9242 §$247/M 9258/P 

status 3267 $275/M 9278/P $279 

status $302 $315/M 9321/P $322 

status $381 $394/P 9395 $399/P $400 9411/P 9412 $412 $415 

status 9427 9436/M 9437/P 9438 §445/P 

status 9509 §522/M 9561/M 

status 9603 9615/M 9623/P 93624 

status 9683 $691/P 9692 9699/P 

status 9742 9755/P $756 9763/P 9766/P 

status 9785 $798/P $799 9804/P 9821/P 9825/P $838/P 9860/P $869/P 
$880/P $888/P $894/P 

status 93922 $934/M $937/P 9955/P 9965/P 

status 9987 $399/P 10000 10008/P 10017/P 10018 10020/P 10031/P 

status 10075 10080/M 10085/P 10087/P 10095/P 

ste 4440 7317 7351 7356/M 7478 7478 7479 7488/M 7493/™M 
71507 7522 7525/S 7526 7543 7692/M 7683/M 7738/™M 
7739/M 7744/M 7746/M 7750/M 7757/M 7753/M 7762/M 7764/M 

7767/M 7770/M 7777/™ 7800/M 7806/M 7808/M 7816/M 7824/™M 

7825 /M 7835/M 7946/P 7949/P 7982 7375 8060 8069/M 
80932/M 8160 8161 8201 8206/M 8230 8241/M &256 
8299 8414 8441 8442 8454 8457 8469 8478 
84390 8507 8512 8513 8514 8546 8546 &8598/M 
8622 8674 8690/M 8706/M 8766 8918/M 8940 8963/M 
$002 $021/M 9048 9052/M sOo54/M $336/M 9337/M 9342/M 
$345/M $354 9444 $444 $542 $631 3698 9727 
9762 $765 9814/M 8815/M 9830/M 9832/M 9836/M 9843/M 
8$845/M $848/M 93850/M 8853/M 9856/M 9863/M 9873/M $875/M 
8$883/M $891/M $882/M $945 10036/M 10094 

ste 8738 8766/M 8767 &767 

ste_p 7327 7352/M 7357/M 7374/M 

stl 8146 8158/M 8160/58 8160/S 8160/S 8160/S 8160 8161/S 8162/8 
8163 8164/M 8164 8167 8169 8170 8175 8188 
8193 8200 

stic_allocation 4063 5710 5710/M 5740 5741/M 7516 7516/M 7645 7645/M 
7914 7914/M 7955 7955/M 8022 8022/M 8094 8094/M 
8245 8245/M &520 8520/M 8555 8555/M 8599 8599/M 
8711 8711/M 8896 8886/M 8907 8907/M 83829 89329/M 
8952 8952/M 8085/M $340 9340/M 9538 9538/M $819 
$819/M 10009 100093/M 10019 100193/M 10028 10028/M 

store _ste_in_segment_table 7324 7394 7510 7544 $356 

str 5823 5828/M 5830 

stri 9111 $144/M $144 

str2 5824 5829/M 5830/M $831 

str2 9111 $144/M 9144/M 9144 

stream 4499 7625 7627/M 7878/M 7879/M 7925/M 7928 7933/M $350/M 
9353/M 94593 9462 9463/M $465 9466/M 9467 9468/M 
9476/M $481 §$482/M 9715 9716/M 

streaming 4508 S465 

stt$set_name 1624 503 1554 1558 

subfunct ion_code 3794 5520/M 8446/M 8628/M 8772/M 

syc$re change segment_table 3634 7259 

syc$rce_cycile 3621 5577 5619 5710 5746 5769 5797 7514 7516 


eX 


REFERENCE ABBREVIATIONS 


Mtmodify, A:tattribute, 


S:ssubscript, 


I:I/O ref, 


Reread, Wewrite, 


P=parameter 


REFERENCES OF 


IDENTIFIER---------------- once 


syc$re_fetch_offset_mod_ pages 
syc$rc_ringi_segment_request 
Syc$rc_ring1_server_seg reques 
syc$rc_set_get_segment_length 
syc$ucr_ condition 
syc$user_defined_condition 
Syc$volume_unavai lable 
Syp$cause_condition 
syp$cycile_for_ lock 


syp$mfh_for_hang_ task 
Syp$return_jobs_ri_resources 
Syp$set_status_from_mtr_status 
Syp$terminate task 
system_file_id 

system_file_id 

system give_up_cpu 


system table lock _count 


Syt$Smonitor_ flag 
Syt$monitor flags 
Syt$monitor_ request code 
Syt$monitor_status 


task_id 
task_id 
task id 
task _id 
task_id 


EX 


REFERENCES OF 


eX 


DEFINED 
ON LINE 


3688 
3653 
t 3697 
3650 
5077 
5078 
5081 
6108 
5754 


6112 
6126 
6113 
6128 
3755 
$239 
4073 


4068 


4984 
4969 
3604 
35693 


$572 
5599 
S706 
5721 
57389 


REFERENCE ABBREVIATIONS 


TRENTIF IER 2234-4 5 Soe Seems ~<«--DEFINED==-- 

ON LINE 
task_id 7447 
task_id 7447 
task_id 7572 
task_id 7572 
task_id 7662 
task_id 7662 
task_id 7992 
task_id 8074 
task_id 8121 
task_id 8121 
task_id 8122 
task_id 8390 
task_id 8424 
task_id 8526 
task_id 8526 
task_id 8573 
task_id 8649 
task_id 8849 
task_id 8849 
task_id $295 
task_id $235 
task_id 9507 
task_id 9507 
task_id $781 
task_id 9781 
task_id 9921 
task_id $385 
task_sdt_entry_p 8871 
task_sdt_p 7464 
task _sdtx_p 7465 
task_xcb 7466 
task_xcb 7686 
task_xcb 8870 
temp_pages_ to touch 5943 
temp_pages_to_touch 8308 
temp_transfer size 9424 
tmc$broken_task_fault_id 5005 
tmce$btc_invalid_ao 5103 
tmce$btc_invalid_p 5103 
tmc$btc_ mcer_traps_disabled 5104 
tme$btc mf_traps_ disabled 5103 
tme$btc_ mntr_fault_buffer_ full 5102 
_tmc$btc_system_error 5105 
tmc$btc_ucr_traps_disabied 5104 
tmc$cyc clear_sys_ lock 5699 
tmec$cyc_set_fde_lock 5701 
_tme$cycie reason 56398 
tmc$dummy_ fault 5006 
tmc$filag available_31 5240 
tmcS$maximum_ monitor faults 5010 


REFERENCE ABBREVIATIONS 


mmm$segment manager system_core NOS/VE CYBIL/II 


mmm$segment_manager_system_core NOS/VE CYBIL/II 


1.0 89102 
REFERENCES 
7612 7645 
8243 8245 
8896 8907 
9538 9817 
8355 
7174 7385 
9249 
5519 8446 
5088 
5090 
9$169/P 
9169 
5710 5746 
8094 8245 
8929 8952 
9567 
9028 
6123 7264 
$563 
7387/M 
92506 
5710 5745 
8245 &520 
8952 9340 
5577/M 5577 
5710/M 5710 
5797/M 5797 
7516/M 7516 
7645/M 7645 
7717/M 7717 
7955/M 79855 
8094/M go94 
8245/M 8245 
8520/M 8520 
8555/M 8555 
&8711/M 8711 
8907/M 8307 
8929/M 83293 
9084 9338/M 
$340 9535/M 
9538 9817/M 
9819 10009 /M 
10019 10028/M 
4369 
4056 
3558 35893 
3559 3590 
5577/M 5577 
5604/M 5606 
5710/M 5710 
5726/M 5728 
5797/M 5797 
Mzmodify, 


1.0 891902 
REFERENCES 
7514/M 7514 
7516/M 7516 
7612/M 7612 
7645 /M 7645 
7712/M 7712 
7914/M 7914 
8022/M 8022 
803934/M 8og4 
8243/M 8243 
8245/M 8245 
&8150/P 
8417/M 8417 
8520/M 8520 
8552/M 8552 
8555/M 8555 
8599/M 8599 
8711/M 8711 
8896/M 8896 
8926/M 83826 
$338/M 9338 
9340/M 9340 
9535/M 9535 
9538/M 9538 
9817/M 9817 
9819/M 98193 
9935/P 
1000393 /M 10008 
8917/M 8918/M 
7540/M 7544a/P 
7541/M 7542/M 
7838/P 7539 
7699/P 7700 
8876/P 8877 
5949/M 5953 
8338/M 8338 
9460/P 
5o0s5 
5124 
5124 
5125 
5123 
§123 
5119 
5125 
5710/P 5746/P 
8245/P 8520/P 
&83852/P §340/P 
5577 5620 
8417 8552 
5692 5754 
5061 
5244 
5001 
Memodify, 


T7712 
8417 
8926 
9819 


99013 


8628 


5776 
8520 
9340 


8362 


7516 
8555 
9538 
5577/M 
5710 
5797/™ 
7516 
7645 
7717/M 
7955 
8094 
8245 
8520 
8555 
8711 
8907 
838293 
9338 
9535 
9817 
10009 
10028 


3716 
3717 
5577 
5614 


5797 


Arzsattribute, 


7514 
7612 
7712 
795S5/M 


8243 


&417 


8552 


8907/M 
8926 
$338 


$535 


9817 


10019/M 


7843/P 
1540/P 


8915/P 
5957 
8338 


7516/P 
8555/P 
9538/P 
5797 
8326 


Arattribute, 


10028 


3767 
3775 


S=subscript, 


7T717/M 
7955 


8907 


10019 


7541/P 


8316 


7645/P 
8599/P 
$819/P 
7514 
9338 


S=subscript, 


1989-08-21 13:33:34 

7914 7955 8022 8094 
8552 8s55 859395 8711 
8952 9338 $340 §535 
10019 10028 
7645 7914 7955 8022 
8599 8711 8896 8907 
$819 1000S 10019 160028 
7914 7955 8022 8094 
8711 8896 8907 8929 
10009 10019 10028 
5611/M 5611 5618/M 5618 
5738/M 5738 5740 5745 
7514/M 7514 7514/M 7514 
7612/M 7612 7612/M 7612 
7712/M 7712 7712/M 7712 
7914/M 7914 7914 73914 
8022/M 8022 8022 8022 
8243/M 8243 8243/M 8243 
8417/M 8417 8417/M 8417 
&8S52/M 8552 8552/M 8552 
8599/M ass39g 85393 8599 
&8896/M 88396 8896 88396 
8926/M- 8926 8326/M 8926 
8952/M 8952 8952 8352 
$338 9340/M $340 $340 
9535 9538/M 9538 9538 
9817 9$819/M 9819 9819 
10009 10019/M 10013 10019 
10028 
3791 5691 
6114 

IzsI/O ref, R=read, Wewrite, 

1989-08-21 13:33:34 

7717 7717 
83293 /M 8923 8952/M 8352 
10028/M 10028 
8917/P 
7914/P 7355/P 8022/P 8094/P 
&8711/P s8e9g96/P 83907/P 8929/P 
10009 /P 10019/P 10028/P 
7612 7712 7717 8243 
ss35 8817 

I2I/0O ref, Reread, Wsewrite, 


PAGE 966 


P=parameter 


PAGE 367 


P=parameter 


REFERENCES OF 


mmm$segment_manager_system_core NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE S68 
IDENTIFIER-------- eee eee Brey eS DEFINED <scos= sees ee -REFERENCES 
ON LINE 
tmc$maximum_signals 5220 5217 
tmc$maximum_ system _task_id $253 5256 
tmceS$mer_ fault S005 5057 
tmc$signal_availabie_63 5202 §213 
tmc$st id_null_task 5259 5256 
tmt$broken_task_condition 5102 5118 
tmt$broken_task_monitor_ fault 5116 SO56 
tmt$mer_ faults 5141 5058 
tmt$monitor fault _buffer 4995 4093 
tmt$monitor fault _buffers 5001 4996 4397 4938 
tmt$monitor_fault_identifiers 5004 5054 5130 
tmt$rb cycle 5690 5598 5767 
tmt$signal 5158 5183 
tmt$signal_buffer 5150 4094 
tmtS$signal_buffers 5217 5151 5152 5153 
tmt$system_f lags 5223 4063 
tmt$system_task_id 5256 4060 
tmt$task_queue_ link 2102 2035 6832 
tos _ registers 4796 7525/M 8997 
transfer size 4506 7627/M 7878/M 7933/M $353/M 9459 9462 9463/M $481 
9482/M 
transfer size specified 4509 7625 7&E73/M 7928 
transfer_unit size 2010 7626/P 7829/P 
ts 5869 5876/M 5878 5878 5880/M 5880 
ts 7572 7626/M 7626 7626/M 7626 7626 
ts 7662 7877/M 7877 7877/M 7877 7877 7923/M 7829 783239/M 
7929 7929 7931/M 7931 7931/M 7931 7931 
ts $235 $352/M $352 $352/M $352 9352 
ts $420 S460/M 9460 9460/M 9460 S460 
tstatus 9519 9537/P $547/P 9548 9552 9553 9554 $554 9555 
9556 $561 $562 
user attributes 3807 7728 7729 7729 7730 7733 7733 7734 7738 
7739 7741 7743 7748 7756 7761 7766 7769 
7772 7783 7785 7787 77932 7798 7800 7803 
7805 7811 7816 7819 7824 7825 7832 7833 
7834 7835 7843 7845 7847 7851 7856 7857 
7859/P 7869 7873 
user_attributes 7726 7726 7736 7753 T7775 7730 7796 7814 7822 
78293 7838 7849 7853 7862 7866 7881 7904 
7911 
validating ring 7962 7975 
validating ring 8528 8546 
validating ring $783 9803 $824 $835 88593 $879 $887 
validating ring number 3803 7682 7693 7694 7749 7773 7782 7784 7786 
7812 7820 7827 
validating ring number 7985 8010 
validating ring number 8606 8622 
validating ring number 8651 8674 
validating ring number 8851 8894 
validating ring number 9422 9444 9444 
validating ring number 9681 9698 
% REFERENCE ABBREVIATIONS Memodify, Azattribute, subscript, =1/0O ref, R=read, Wewrite, Psparameter 
REFERENCES OP mmm$segment_manager_Ssystem_core NOS/VE CYBIL/II 1.0 88102 1889-08-21 13:33:34 PAGE 3969 
PDENT-LE LER S238 22s ee hess see see DEFINED <<< 4 o< See 96 Sno ~REFERENCES 
ON LINE 
validating ring number 8740 9762 
vi 4467 7317 7488/M 7493/M 7762/M 7764/M 7806/M 7808/M 8060 
8063/M 80S2/M 8160 8161 8201 8241/M 8256 8299 
8414 8490 8507 8767 8918/M 8940 8963/M $002 
9021/M $048 9052/M 9054/M 9342/M 9542 9631 9848/M 
8850/M 9873/M $875/M 9945 10094 
wired segment length 3869 7843 
wp 4470 74793 7507 7543 7757/M 7759/M 7825/M 84693 8514 
8690/M 9345/M $354 9671 $727 $765 $843/M 9845/M 
$892/M 
write privilege 3926 7825 8514/M 9892 
xasid 7129 7138 7138 
xast i 7130 7144/M 
xast i 7148 7154 
xasti 7324 7355 
xcb 6010 6023/M 
xcb 74aay 7472/M 
xcb 7872 7594/M 
xcb 7662 7888/M 
xcb 8027 8036/M 
xcb 8042 8052/M 
xcb 8121 8156/M 
xcb 8282 8283/M 
xcb 83390 8401/M 
xcb 8723 8749/M 
xcb 8849 8912/M 89337/M 
xcb 8982 89396/M 
xcb $033 9044/M 
xcb 9072 $083/M 
xcb 9111 $126/M 
xcb $263 $276/M 
xcb $295 9316/M 
xcb $507 $527/M 
xcb $9600 9613/M 
xcb 10071 10081/M 
xcb_p 5572 5577/M 5577 5577/M 5577 5577/M 5577 
xcb_p 5600 5602/M 5604 5611/M 5611 5618/M 5618 
xcb_p 5706 5710/M 5710 5710/M 5710 5710 5710 5710/M 5710 
5710 
xcb op 5722 5724/M 5726 5738/M 5738 5740 5740 5741/M 5745 
$745 
xcb_ op 5789 5797/M 5797 5737/M 5737 5737/M $737 
xcb p 5900 5906 SSO6 5907 5907 
xcb_p 5914 5317 5918 
xcb_p 5926 5329 5930 
xcb_p 6047 6048/M 6050 
xcb_ p 7188 7217 7218 7219 7221 7233 
xcb_p 7289 7306 7306 7306 7306 
xcb_p 7230 7305 7306/P 7311/P 7315 
xcb p 74ay 7504 7504 7540 7540 
xcb op 7447 7505 7505 7841 7841 
eX REFERENCE ABBREVIATIONS M=emodify, Atattribute, S:subscript, I:1/0 ref, Rtread, W:write, P=parameter 


oo 


REFERENCES OF mmm$segment_manager_system_core NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE $70 

IDENTIFIER sc eer ete ee ee eee nee ~DEFINED-~---+-3% ere eee eee REFERENCES 

ON LINE 

xcb_p 7447 7514/M 7514. 7514/M 7514 7514/M 7514 

xcb p 7447 7516/M 7516 7516/M 7516 7516 7516 7516/M 7516 
7516 

xcb_p 7467 7472/P 7504/P 7505/P 7525/M 7539 

xcb_p 7572 7596 7596 

xcb p 7572 7612/M 7612 7612/M 7612 7612/M 7612 

xcb_p 7572 7645/M 7645 7645/M 7645 7645 7645 7645 /M 7645 
7645 

xcb_p 7589 7594/P 7596/P 76S4/M 

xcb op 7662 7712/M 7712 7712/M 7712 7712/M 7712 7717/M F717 
7717/M 7717 7717/M 7717 

xcb_p 7662 7914/M 7914 7314/M 7914 7914 7914 7914/M 7914 
7914 7955/M 79355 7955/M 7955 7955 7955 7955/M 
7955 7955 

xcb op 7687 7888/P 7896/P 7901 7901 7902/P 7922 

xcb op 7392 8022/M 8022 8022/M 8022 8022 8022 8022/M 8022 
8022 

xcb_p 8033 8036/P 8037/M 

xcb_p 8042 8059 8053 

xcb op 8049 8052/P 8054 8059/P 

‘xcb_p 8074 8094/M 80394 8094/M 8094 8094 8094 8094/M 8094 
8094 

xcb_p 8121 8159 8159 8159 8159 

xcb op 8121 8243/M 8243 8243/M 8243 8243/M 8243 

xCb_p 8121 8245/M 8245 8245/M 8245 8245 8245 8245 /M 8245 
8245 

xcb_p 8121 8249 82493 

xcb_p 8121 8250 &250 8259 8259 

xcb_p 8282 8297 8237 8297 8297 

xcb_p 8290 8293/P &8237/P 8298 

xcb _p 8390 8412 8412 

xcb_p 8390 8413 8413 

xcb op 83390 8417/M 8417 8417/M 8417 8417/M 8417 

xcb_p 8398 8401/P 8463 8412/P 8413/P 

-x¢Cb p 8424 8520/M 8520 8520/M 8520 8520 8520 8520/M 8520 
8520 

xcb_p 8526 8552/M 8552 8552/M 8552 8552/M 8552 

xcb op 8526 8555/M 8555 8555/M 8555 8555 8555 8555/M 8555 
gss5 

xcb p 8573 85399/M 8599 8589/M 8539 &599 8599 8599/M 8599 
8599 

xcb_p 8643S &8711/™M 8711 8711/M 8711 &711 8711 8711/M 8711 
8711 

xcb op 8729 8765 8765 

xcb op 87393 8749/P 8754 8756 8765/P 

xcb_p 8849 8896/M 8896 &8896/M 8896 8896 &88S6 8896 /M 8896 
8896 8907/M 8307 8907/M 8307 8907 83907 8307/M 
8907 83907 8929/M 83929 8323/M 8929 8329 83929 
8929/M 8929 8329 8952/M 8952 8952/M 8952 839352 
8952 8952/M 89352 8352 

xcb op 8849 8317 8917 

xcb_p 8849 8326/M 8926 83826/M 8326 8926/M 8326 

xcb_p &&49 89338 89338 8938 8938 


xxx REFERENCE ABBREVIATIONS M=modify, Atattribute, S$ 


subscript, It1/0 ref, Reread, W-write, P=parameter 
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ON LINE 

-xcb_p 8872 8812/P 8816 8337/P 8938/P 8339 

xcbh p 8982 9001 9001 

xcb p 8982 $003 9003 

_xeb p e992 8996/P 8997 9000 9001/P 9003/P 

xCcb_p 9033 9046 S$O46 9046 8046 

xcb_p 9041 9044/P 9O046/P 9047 

xcb op SO72 9093/M goss 

‘xcb_p $o79 9083/P $084 9085/M 

xcb_p 9124 9126/P 9130 $131/P §132/P §8140/P 9141/P 9143/P $143/P 
8144/P 

_xcb_p 9149 9180/M 9180 

xcbD_p 9263 8284 $284 

xcb op 9263 $286 9286 

xcb op $273 §276/P 9278/P $284/P §286/P 

xcb op $295 §329 9329 

xcb_p 9295 $330 $330 

xcb p 9295 §$338/M 9338 §$338/M 9338 9338/M $338 

_xeb_p $295 $340/M 9340 8340/M $340 $340 $340 9340/M 93406 
9340 

xcb_p $313 8$316/P $321/P 9329/P 9330/P 

xcb_p 9507 $528 9528 9528 9528 

xcb_ op 9507 §535/M $535 9535/M §535 9535/M $535 

xcb op 9507 9538/M s538 $538/M $538 9538 9538 8538/M 9538 
§538 

_xcb_p 9520 $527/P 9528/P 9531 9534 9535/P 9537/P 

xcb_p 8600 $628 $6293 

xcb p $600 $630 9630 

xcb op 9610 $613/P 9617 $623/P 9627 $6239/P 3630/P 

xcb_p 9781 §9817/M 9817 $817/M $817 9817/M $817 

xcb_p 9781 9819/M $819 $819/M $819 9819 9819 9819/M 9819 
9819 

_xcb_p 9920 $941 $941 9941 8941 

«Cb_p $932 9835/P 9936 $941/P $944 9961 9962 

xcb_p gss5 10009/M 10009 10009/M 10009 10009 100098 10009/M 10009 
10009 1OO1S/M 1090019 1001S/M 10018 10019 100198 10019/M 
100198 10019 10028/M 10028 10028/M 10028 10028 10028 
10028/M 10028 10028 

xcb p 10071 10092 10092 

_xcb_p 10071 10033 10093 

xcb op 10078 10081/P 10083 10092/P 10093/P 

xp 4os5 7219 7221 7233 7305 7315 7525/M 7901 7901 
8054 8158 8191/M 8192/M 8183/M 8298 8403 8754 
8756 893395 89397 $000 9047 9531 $617 $627 
$344 10083 

xp 4468 7478 7478 7767/M 7T770/M 7777/M 7816/M 8478 8512 

: &767 S663 $853/M $856/M 9863/M $883/M 

xsdt_entry 7325 7343 7374 

xsfid 7162 7171 

xsfid 7574 7608 

«“SFfid 8310 8352 

*** REFERENCE ABBREVIATIONS Memodify, Azattribute, S=*subscript, I=1/0 ref, Rtread, W:write, Psparameter 
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System Constant Management 
MODULE sym$system_constant_manager ; 


{ PURPOSE: 


system job. 


OW MIO hw 
on ate Nae Kame 
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° 1618 
© 1619 PROCEDURE [XREF] dmp$fetch_debug option _value (name: string(*); 
© 1620 VAR value: integer ; 
oO 1621 VAR status: ost$status) ; 
oO 1622 
1673 
1674 PROCEDURE [XREF] dmp$store_ debug _option_value (name: string 
1675 value: integer; 
1676 VAR status: ost$status) ; 
1677 
oO 1680 
O 1681 PROCEDURE [XREF] iop$fetch_debug option_value (name: string [ 
1°) 1682 VAR value: integer; 
© 1683 VAR status: ost$status) ; 
oO 1684 
1687 
1688 PROCEDURE [XREF] iop$store_debug option_value (name: string [{ 
16893 value: integer; 
1690 VAR status: ost$status) ; 
1691 
te) 1694 
© 1695 PROCEDURE [XREF] osp$append_ status parameter ALIAS ‘ospasp’ 
oO 1696 ( delimiter: char; 
oO 1697 text: string ( * <= osc$max_string size); 
o 16398 VAR status f{input, output} : ost$status); 
° 1699 
1702 
1703 PROCEDURE [XREF] osp$set_status_abnormal ALIAS ‘ospssa’ 
1704 ( identifier: ost$status_identifier; 
1705 condition: ost$status_condit ion_code; 
1706 text: string ( * <= osc$max_string_size); 
1707 VAR status: ost$status) ; 
1708 
ce) 1715 
o 1716 PROCEDURE [XREF] osp$system_error [(error_message: string ( #*# 
o 1717 Status: Aost$status) ; 
° 1718 
1721 VAR 
1722 bav$force_direct_tape_io: [XREF] boolean; 
1723 VAR 
1724 bav$max_allowed_ tape _biock_ size: [XREF] integer; 
1725 VAR 
1726 bav$max_bytes_per_tape_io: [XREF] integer; 
1727 VAR 
1728 bav$max_indirect_ tape block: [XREF] integer; 
1729 VAR 
1730 bav$use_ assign _pages_for_tape: [XREF] boolean; 
1731 
1732 VAR 
1733 dfv$file_ server debug enabled: [XREF] boolean; 
1734 
1735 VAR 
1736 dfv$file_ server _info_enabled: [XREF] boolean; 


1738 VAR 


1.0 


89102 


1.0 89102 


(+#); 


* 


* 


); 


This module contains procedures that allow the operator to fetch and 
modify the values of system constants during deadstart or during system 


operation. The priviledge of modifying the constants is restricted to the 


); 


1989-08-21 


1989-08-21 
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1739 dfv$job_recovery enabled: [XREF] boolean; 
1740 
1741 VAR 
1782 { This is an integer to allow use with sym$system_constant_manager . 
1743 { The true value range is 1 .. dfc$max_job_list_p_array_size 
1744 dfv$maximum_client_job_lists: [XREF] integer; 
© 3204 
fe] 3205 VAR 
° 3206 { This is an integer to allow use with sym$system_constant_manager 
Oo 3207 { The true value range is dft$family_pointer_ index 
o 3208 dfv$number_served_family_lists: [XREF] integer ; 
3211 
3212 VAR 
3213 dmv$permanent_file_overflow: [XREF] boolean; 
3214 
3215 VAR 
3216 dmv$recycle_device_log: [XMREF] boolean; 
3217 
3218 VAR 
3219 dmv$temporary_file_overflow: [XREF] boolean; 
3220 
3221 VAR 
3222 . Gmv$test recovery: [XREF] boolean; 
3223 
3224 VAR 
3225 dpv$enable_ console bell: [XREF] boolean; 
3226 
3227 
3228 VAR 
3229 dsv$unload_deadstart_ tape: [XREF] boolean; 
3230 
3231 {Job Control Biock (JCB). } 
3232 
3233 VAR 
3234 jmv$ job: [XREF] jmt$job_control_block; 
oO 4138 
o 4139 VAR 
© 4140 jmv$maximum_job_ classes: [XREF] ©. .ofFFfFFFFFF(1E6); 
Oo 4141 
oO 4142 
© 4143 VAR 
Oo 4144 jmvS$maximum_known_jobs: [XREF, oss$mainframe_pageabie] ost$halfword; 
ce) 4145 : 
4151 
4152 VAR 
4153 jmv$maximum_known_outputs: [XREF, oss$mainframe_pageablie] ost$halfword; 
4154 
° 4157 
© 4158 VAR 
o 4159 imv$maximum_service_classes: [KXREF] 0. off fFFFFFF( 16); 
° 4160 
ce 4161 
° 4162 VAR 
© 4163 jimv$scan_idie_ dispatch_interval: [XREF] integer; 
° 4164 
SQURCE LIST OF sym$system_constant_manager NOS/VE CYBIL/II 1.0 89102 1889-08-21 13:33:34 PAGE $75 
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ce) 4165 VAR 
Oo 4166 jmv$sched_memory wait _factor: [XREF] integer; 
° 4167 
° 4168 
.°) 4169 VAR 
Oo 4170 imvSscheduler_wait_time: [XREF] integer; 
te) 4171 {Define boolean that specifies whether jobs that go into long wait should be 
© 4172 {swapped immediately. 
° 4173 
.°) 4174 VAR 
Oo 4175 jimv$swap_jobs_in_long wait: [XREF]) boolean; 
° 4176 
° 4177 {Define vaiue of AJL ORDINAL used by the system job 
° 4178 
° 4179 VAR 
Oo 4180 imv$system_ajl_ordinal: [KREF] jmt$ajl_ordinal; 
© 4181 
4184 VAR 
4185 imv$system_ijl_ordinal: [XREF] jmt$ijl_ordinal; 
4186 


4130 VAR 
4191 isv$enable_ debug code: [XREF] boolean; 


41394 VAR 
4135 jisv$enable_swap_file statistics: [XREF] boolean; 


4198 VAR 
4199 jsv$hailt_on_swapin_failure: [XREF] boolean; 


4201 VAR 
4202 jisv$free_ working set_on_swapout: [XREF] boolean; 


4205 VAR 
jisv$maximum_pages_to_swap: [XREF] integer, 


4208 VAR 
4209 jsv$max_pages_first_swap_task: [XREF] integer; 


4211 VAR 
4212 isv$max_time_swap_io_ complete: [XREF] integer; 


4214 VAR 
4215 isv$max_time_swap_io_not_init: [XREF] integer; 


4218 VAR 

4219 jisv$think_expiration_time: [XREF] integer; 

4220 

4221 {Define minimum number of pages that must be kept in the free + available page 

4222 {queues. If the actual number drops below this value, memory manager begins 

4223 {an aggressive aging policy. If the number of page frames drops below mmv$aggressive_aging level _2 


fo MoM cio oMeM eM sieMecMoMcMeoMeleomeM cM ecMcMeolsMe oie ielelei oi ol eoieeleieke) 
+ 
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° 
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Oo 4224 {then only critical system tasks are assigned memory. User tasks are put into a@ memory wait queue. 
oO 4225 
° 4226 VAR 
oO 4227 mmv$aggressive_aging level: [XREF] integer, 
oO 4228 mmvS$aggressive_aging _level_2: [XREF] integer; 
oO 4229 
° 4230 {The following variable defines the agining algorithm that is used by memory manager. 
Oo 4231 { O - no swapping active 
© 4232 { 1 - Swapping active 
Oo 4233 { > 1 + to be defined 
oO 4234 VAR 
© 4235 mmv$S$aging algorithm: [XREF] integer; 
oO 4236 
oO 4237 VAR 
Oo 4238 mmv$aio_limit: [XREF] integer; 
Oo 4239 
° 4240 { Define variable used to activate/deactivate assign_multiple pages. When activated 
oO 4241 { mmp$page_pull will assign more than one page to a task that has faulted for a new page 
° 4242 { and it is determined that extra pages will highly likely be used. Muitiple pages will 
° 4243 { be assigned if mmv$reassignable_page_frames.now is greater or equal to this value. 
O 4244 
Oo 4245 VAR 
oO 4246 mmv$assign_multipie_pages: [XREF] integer; 
° 4247 { creer reee Deciarations for forcing the use of cache and maps omitted at compile time ---+--+-+-- 
° 4248 
3° 4249 
oO 4250 VAR 
oO 4251 mmv$disable_write_for_perf meas: [XREF] boolean; 
Oo 4252 
© 4253 VAR 
° 4254 mmv$file_allocation_interval: [XREF] integer; 
° 4285 { --+-++--- Declarations for forcing the use of cache and maps omitted at compile time ---*-*--*>+ 
fe] 4256 {Define mumber of page frames that memory manager should attempt to 
© 4257 {keep in the available + free queues. 
Oo 4258 
oO 4258 VAR 
Oo 4260 mmv$free queue threshold: [XREF] integer; 
Oo 4261 
© 4262 { Global Page Queue List array. 
© 4263 
Oo 6264 VAR 
© 8265 mmv$gpqi: [XREF] mmt$gliobal_page_ queue_ list; 
4268 
4269 {This variable defines the rate at which memory manager scans ail jobs and 
4270 {ages the working sets of any CP bound job that is found. 
4271 
4272 VAR 
4273 mmv$jws queue _age_interval: [XREF] integer; 
4274 
4275 
4276 { Tne data consists of pointers to the various mmv$ variables managed by MMU and also the default value 
4277 { for each of the variables and the default value of the Global Page Queue List. The default values 
4278 { are saved by mmm$deadstart_initialization. 
4279 
4280 VAR 
; e 
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Global 


COCDDOODDDDDGCCDDA0DDCCCACOGDAOKDOMOOCOOMOMOOMCaAOOMOOOoOoOOOOoOOoOoOoOoOoOo08 


42381 
4316 
4317 


mmv$manage_memory_utility: [XREF] mmt$manage_ memory utility; 


{Maximum nmumber of pages that will be assigned to a segment that does not 
{have a backing file. A Signal is sent to the task to assign a file when 
{the number of assigned pages exceeds this value. 


VAR 

mmv$max_pages_no_file: [XREF] integer; 
VAR 

mmv$min_avail pages: [XREF] integer ; 


{Define variable used to activate/deactivate multi-page write. Multi-page write activated 
{means that memory manager attempts to write all modified pages in a transfer unit whenever 
{any page in the transfer unit is written. 


VAR 
mmv$muilti_page_write: [XREF] boolean; 


{Define option used to disable buffering of aged out pages in memory, i.e. when a page 
{is aged out, it is written to disk (if necessary) and placed in the free queue. 


VAR 
mmv$no_memory buffering: [XREF] boolean; 


{This variable the time interval between calls from CP Monitor to 
{memory manager MMPSPERIODIC CALL procedure. 


VAR 
mmv$periodic_call_interval: [XREF] integer ; 

VAR 
mmv$read_ tu _read_ write: [XREF] 0 .. Of FFFFFFF(16), 
mmv$read_ tu_execute: [KREF] 0 .. OF FFFFFFF(16) ; 
VAR 


mmv$shared_pages_in_jws: [XREF] boolean; 


{This variable the rate at which Memory Manager ages out all pages of ail 
{working sets that have not been referenced since the last time the 
{aging was done. 


VAR 
mmv$shared_queue_age_interval: [XREF] integer ; 


{Define the fundemental page aging constant. 


VAR 
mmv$tick_ time: [XREF] integer; 


{Define option used to force aged out pages to be written to disk 
{immediately when it is aged out of a job working set. 
{Page are written if SOON + NOW < mmv$write_aged_out_pages. 


VAR 
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4370 mmv$wr ite _aged_out_pages: [XREF] integer; 
4371 

4372 

4373 VAR 

4374 mtv$halt_on_proc_malf: [XREF] boolean; 

4375 

4376 VAR 

4377 mtv$aborted task _ threshold: [XREF] integer ; 
4378 

4379 

4380 VAR 

4381 mtv$automatic_unstep_resume: [XREF] boolean; 


4383 {If a MCR fault occurs in a task executing in a ring <= the vaiue 
4384 {of this variable, Monitor wilt halt the CPU. The variable 


{in Monitor and is intended to be used 


for debug only. 


A386 

4387 VAR 

4388 mtv$system_haitring: [XREF] 0 .. 255, 

4389 mtv$hailt _cpu_ring number: [XREF] 0 255; 
4390 

4391 VAR 

4332 mtv$processor_due_ threshold: [XREF] integer ; 
4333 

4394 VAR 

4395 mtv$sys_core_ init_complete: [XREF]) boolean; 


8396 {At deadstart time, monitor copies the job Exchange Package to this 


4397 {before the first exchange to job mode. 


4399 VAR 


foe oMcMeomecMeomeMemeMoMomomeclecMe emcee mecmeicm ci ei cl eiokeol clei) 
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is located 


location 


ost$processor_ model definition; 


4400 mtv$xp_initial_value: [XREF] ostS$exchange_ package; 
4401 
4594 {System page size. } 
4595 
4S96 VAR 
45397 osv$page_size: [XREF] ost$page_size; 
4598 

° 4601 

ce 4602 VAR 

Oo 4603 osv$global_processor_mode!_info: [XREF] 

°o 4604 
4693 
4694 VAR 
4695 osv$special_aam_trap: [XREF] boolean; 
4696 
4697 VAR 
4698 pmv$quantum: [XREF] integer; 
46995 
4700 VAR 
4701 Syv$enable_heap_trace: [XREF] hoolean; 
4702 
4703 { Variable which determines number of lines displayed on the console during 
4704 { a SYSDEBUG session display Command. 
4705 
4706 VAR 
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4707 Syv$debugger_page_wait_lines: [XREF] integer; 
4708 
4709 
4710 VAR 
4711 syv$dfit_debug output disposal: [XREF] syt$dflt_debug output_disposal; 
4712 
ce) 4733 
° 4734 { The following boolean will be set TRUE by SETSA to enable the fault injection utility. 
° 4735 
ce) 4736 VAR 
oO 4737 syv$enable_fault_injection: [XREF] boolean; 
° 4738 VAR 
oO 47393 Syv$job_recovery option: [XREF] integer; 
° 47490 CONST 
oO 4741 syc$jre_enabled = 0, 
° 4742 
Oo &743 syc$jre_command_disabled = 3, 
3° 4744 
Oo 4745 syc$jre_prior_ds_ disabled = 5, 
oO 4746 syc$jre_mo_image =: 6, 
Oo 4747 syc$jre_different_ system = 7, 
oO 4748 syc$jre_page_size_mismatch = &, 
° 4749 
o 4750 syc$jre_system_disabled =9; 
Oo 4751 
o 48752 
o 4753 VAR 
o 4754 syv$mandatory dualstate: [XREF] boolean; 
o 4755 
Oo 4756 
Oo 4757 VAR 
o 4758 Syv$max_debug output_lines: [XREF] integer; 
ce] 4759 
ce) 4760 
QO 4761 VAR 
Oo 4762 Syv$verify heap_linkage: [XREF] boolean; 
© 4763 {Define length of timeout that occurs when a user issues a ‘CYCLE’ request. 
° 4764 
te] 4765 VAR 
Oo 4766 tmv$cycle_delay_time: [XREF] integer ; 
to) 4767 
° 4768 
° 47693 VAR 
o 4770 tmv$dedicate_a_cpu_to_nos: [XREF] boolean; 
Oo 4771 {Define variables that control action taken by monitor when system errors occur. 
° 4772 
Oo 4773 VAR 
o 4774 tmv$halt_on_hung task: [XREF] boolean, 
Oo 4775 tmv$system_debug ring: [XREF] integer, 
oO 4776 tmv$system_debug segment: [XREF] integer, 
Oo 4777 tmv$system_error hang count: [KXREF] © .. Of FFFFFFF(15); 
o 4778 
o 4779 
Oo 47890 VAR 
o 4781 tmv$max_idie_sit_value: [XREF] integer; 
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° 4782 
oO 4783 VAR 
o 4784 ~tmv$timed_wait_not_queued: [XREF] integer; 
3 4785 
oO 4786 
SOURCE LIST OF sym$system_constant_manager NOS/VE CYBIL/II 1.0 89102 1989-08-21- 13:33:34 PAGE 981 
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ce) 4788 
oO 4789 TYPE 
o 4790 value _table_ type = record 
o 4791 deadstart_only: boolean, 
° 47382 name: string (max_mame_Jength), 
ce 4793 min, 
° 4794 max: integer, 
Oo 4795 case value_type: (v_integer, v_halfword, v_byte, v_boolean) of 
o 4796 = v_integer = 
° 47397 integer_p: Ainteger, 
oO 4798 = v_halfword = 
ce) 47993 halfword_ p: AO .. OF FFFFFFF(IE), 
o 4800 = v_byte = 
Oo 4801 byte_p: AO .. 255, 
oO 48902 = Vv boolean = 
Oo 4803 boolean_p: Aboolean, 
fe 4804 casend, 
© 4805 recend; 
Oo 4806 
° 4807 VAR 
Oo 4808 clv$command_statistics_enabled: [XDCL, #GATE] boolean := FALSE, 
o 48093 dmv$space_messages to console: [XDCL, #GATE] boolean := TRUE, 
° 4810 admv$trim_ files: [XDCL, #GATE] boolean :: TRUE, 
Oo 4811 dmv$volume_class_kludge: [XDCL] boolean := FALSE, 
© 4812 dpv$display_delay: [XDCL, #GATE] integer := 1000, 
© 4813 dsv$display_deadstart messages: [XDCL] boolean := TRUE, 
oO 4814 dsv$load_ files: [XDCL, #GATE] boolean := FALSE, 
Oo 4815 dasv$ignore_image: [XDCL] boolean := FALSE, 
oO 4816 iiv$condition_handier_trace: [XDCL, #GATE] boolean := false, 
Oo 4817 iiv$interactive_wait_time: [XDCL, #GATE] integer := 60000000, 
Oo 4818 iiv$output option: [XDCL, #GATE] integer := Oo, 
o 4819 iiv$suspended_job_timeout: [XDCL, #GATE] integer := 180 * 60 * 1000, 
oO 4820 ieov$S$unused_boolean: [XDCL, #GATE] boolean := TRUE, 
° 4821 imv$enable_queue_file_access: [XDCL, #GATE] boolean := FALSE, 
Oo 4822 jmv$swap_file_allocation_size: [XDCL, #GATE] 0 .. OF FFFFFFF(1E) := 262144, 
oO 4823 lov$enable_source_type_checking: [XDCL, #GATE] boolean := FALSE, 
© 4824 lev$ignore_param_verification: [XDCL, #GATE] integer := Oo, 
° 4825 
° 4a26 { Debug, define maximum memory that 180 will use. This is a way of limiting the amount of memory NOS/VE will 
oO 4827 { use. Can limit the memory less than defined upper bound. Default to a value larger than existing memory 
Oo 4828 { Sizes. 
fe] 4829 
o 4830 mmv$maximum_180 memory: [XDCL] integer := 1000000000000(16}), 
oO 4831 mmv$shadow_by_segnum: [XDCL, #GATE] boolean := TRUE, 
oO 4832 
®© 4833 { Maximum segment length is no longer used by the OS. It must remain as a SETSA until release 1.6.1 
© 4834 { because IM/DM uses it. AS Soon as they react to the change-this variable will be deleted. 
Oo 4835 
© 4836 mmv$max segment _length: [XDCL, #GATE] integer := 2147483647, 
© 4837 mtv$mx_ajl_entries: [XDCL, #GATE] © .. OF FEFFFFF(1E) := 100, 
oO 4838 mtv$mx_segments: [XDCL] © .. OF FFFFFFF(16) := 0, 
Oo 4839 mtv$mx_tasks: O .. OF FFFFFFF(1E6) := 255, {this is a no-op and will be removed next release} 
© 4840 mtv$scb_vector_sim_attribute: [XREF] 0 .. 255, 
oO 4841 osv$catalog_ name _ security: [XDCL, #GATE] boolean := FALSE, 
© 4842 osv$defauit_pit: [XDCL] integer := 7FFFFFFF[16), {default vaiue for PIT} 


oD 
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oO 4843 oOsv$delete_unreconciled_ files: [XDCL, #GATE] boolean := FALSE, 
oO 4844 osv$dump_when_debug: [XDCL] boolean := FALSE, 
oO 4845 osv$emergency intervention: [XDCL, #GATE] boolean := FALSE, 
oO 4846 osv$enable_ hyperchannel: [XDCL, #GATE] boolean := FALSE, 
oO 4847 osv$reconcile_ permanent_files: [XDCL, #GATE] boolean := FALSE, 
Oo 4848 eosv$recover_at_all_costs: [XDCL] boolean := FALSE, 
oO 4849 osv$reorganize_ permanent_fites: [XDCL, #GATE] boolean :: FALSE, 
© 4850 osv$validate_active_sets: [XDCL, #GATE] boolean := FALSE, 
o 4851 osv$validate permanent_files: [XDCL, #GATE] boolean := FALSE, 
° 4852 pfv$restrict catalog flushing: [XDCL, #GATE] boolean := TRUE, 
oO 4853 osv$verify missing volumes: [XDCL, #GATE] boolean := TRUE, 
oO 4854 pfv$binary_ catalog search: [XDCL, #GATE] boolean := TRUE, 
oO 4855 pmv$debug logging enabled: [XDCL, #GATE] boolean :=: FALSE, 
Oo 4856 pmv$constrain_meape_ segments: [XOCL, #GATE] boolean := FALSE, 
Oo 4857 rav$deadstart_intervention: [XDCL, #GATE] boolean := FALSE, 
oO 4858 rav$development_deadstart: [XDCL, #GATE] boolean := FALSE, 
o 4859 rav$network _ activation: [XDCL, #GATE]} boolean := TRUE, 
° 4860 rav$system_activation: [XDCL, #GATE] boolean := TRUE, 
Oo 4861 Syv$halt_on_exit_with_io: [XDCL, #GATE]) boolean := FALSE, 
Oo 4862 Syv$nosve_internal_operations: [XDCL, #GATE] boolean := FALSE, 
Oo 44863 nav$disable_network_relays: [XDCL, #GATE] boolean :=: FALSE, 
Oo 4864 Syv$user_templates: [XREF] boolean, 
© 4865 tmv$display_actual priority: [XDCL, #GATE] boolean := FALSE, 
oO 4866 aGmv$pf sparse: [XREF] boolean, 
Oo 4867 Syv$clone_enabled: [XREF] boolean, 
° 4868 endvar: char; 
o 4869 
oO 4870 
° 4871 { NOTE: 
o 4872 { The following variable cannot be set via the set_system_attribute command. 
ce) 4873 { It is set via the change secure _ lagging command during system operation. 
oO 4874 
Oo 4875 
Oo 4876 CONST 
° 4877 cic$change_ secure_logging name = ‘+* CHANGE SECURE LOGGING *’; 
Oo 4878 
o 4879 
Oo 4880 VAR 
Oo 4881 civ$secure_ logging _ activated: [XDCL, #GATE] boolean := FALSE; 
i?) 4882 
oO 4883 
© 4884 { NOTE: 
ie] 48s8aes { The following variable cannot be set via the set_system_attribute command. 
° 4sec6e { It is set via the set _validation_level command during system operation. 
° 4887 
° 4888 
o 4889 CONST 
o 4890 avc$validation_level_const_mame = ‘* VALIDATION LEVEL *’; 
° 4891 
ce) 48392 
© 4893 
° 4894 
° 4895 
° 4896 
o 4897 
. @ 
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rare re rs 


reese es 


VAR 
avv$validation_level: [XDCL, #GATE] © .. 255 :=: 0; 


NOTE: 
The following variable cannot be set via the set_system_attribute command. 
It is set via the activate system_logging and deactivate _ system_logging 
commands during system operation. 


CONST 
clic$system_logging active _mame = ’°* SYSTEM_LOGGING_ ACTIVE *’; 


VAR 
civ$system_logging activated: [XDCL, #GATE] boolean := FALSE; 


Define values for the segment offset array. This array defines page offsets 
for the beginning of some special segments. These segments do NOT start at 
offset zero. This is an attempt to reduce thrashing in the page map. This 


array is defined here because it may need to he model dependent. 


VAR 
mmv$page_map_offsets: [XDCL, #GATE] mmt$page_ map_offsets := [0, 0, 6, 0, 0]; 


VAR 
admv$maximum_allocation_ size: [XREF] integer, 
amv$quick deadstart: [XREF] boolean, 
jmv$max_think_time: [XREF] integer, 
imv$min_think_ time: [XREF] integer, 
isv$enabie_swap_resident: [XREF] boolean, 
jisv$enable_ swap_resident_no_io: [XREF] boolean, 
isv$write_ stale pages: [XREF] boolean, 
mivSwire mli_tables: [XREF] boolean, 
mmv$advise_in_aio_limit: [XREF] integer, 
mmv$age_interval_ceiling: [XREF] © .. 255, 
mmv$age_interval_floor: [XREF] © .. 255, 
mmv$check queues: [XREF] integer, 
mmv$maxws_ aio threshold: [KREF] integer, 
mmv$swapping aic: [XREF] integer, 
osv$debug: [XREF] array [0..15] of integer, 
osv$default_sit_value: [XREF] integer, 
osv$disk_ fault simulation: [XREF] boolean, 
osv$error_idie_hait: [XREF] boolean, 
osv$keypoint_enable: [XREF] integer, 
osv$trap_task_errors: [XREF] boolean, 
sfv$dynamic_file space_limits: [XREF] boolean, 
SyvS$allow_jr_test: [XREF] boolean, 
Syv$debug job_recovery: [XREF] boolean, 
Ssyv$system_job_multiprocessing: [XREF] boolean, 
tmv$ long wait _force_ swap_time: [XREF] integer, 
tmv$long wait swap time: [XREF] integer; 
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° asss 

° 4356 CONST 

°) 4957 max mame_length = 31, 

oO 49858 value _table_length = 179; 

° 49s9g9 

ce) 4960 { Note: The multiple shared queues feature introduces multiple shared queues and it also introduces the 

° 4961 { Manage Memory Utility. The memory variables that it manages are also controlled by the 

o 4962 f{ SET_SYSTEM_ATTRIBUTE command. So that users do not have to immediately change to use of the 

o 4963 { MMU, the old SETSA commands are being left in place. For the attribute MINIMUM_SHARED_ WORKING SET 

Oo 4964 { the field controlled is to be mmv$gpqiimmc$pq_snared_task_service].minimum]. To make this 

° ag96s5 { change we need to change the appropriate entry in the value table. However, this can not be done 

3° 4a966 { because the object library generator will generate incorrect code. A workaround has been coded. 

° 4967 { To remove the work-around, detete these comments, ail lines referencing the 

° 4968 { VAR temp_workaround min _sws and change the appropriate value table entry. \ 
° 4369 

° 4370 VAR temp_workaround min_sws : [STATIC] O. .OFFFEFFFF(I6) :: 0; 

o 4971 

Oo 4372 

oO 49373 VAR 

o 4974 value_tablie: [READ, oss$mainframe_paged_jiiteral] array [1 .. value_table_length] of value_table_type :: [ 

o 4975 { } [FALSE, ‘ASSIGN _MULTIPLE PAGES’, ©, 100000, v_integer, Ammv$assign_multiple_pages], 

o 4976 { } [FALSE, avce$validation_level_const_name, ©, 2, v_byte, Aavv$validation_level], 

o 4977 { } [FALSE, cle$change_secure_logging_ name, 0, 1, V_boolean, AcIv$secure_logging activated], 

o a978 { } [FALSE, cleS$system_logging active_name, ©, 1, v_hoolean, AciIv$system_logging activated], 

o 4s79 { } [FALSE, ‘ABORTED_TASK_THRESHOLD’, 0, 7FFFFFFFFFFF(16), v_integer, Amtv$aborted_task_threshold], 
o ag8o { } [FALSE, ’ADVISE_IN_ LIMIT’, 1, 1000, v_integer, Ammv$advise_in_aio_ limit], 
o 4981 f{ } [FALSE, ‘AGE_INTERVAL CEILING’, 1, 255, v_byte, Ammv$age_interval_ceiling], . 
o 4982 { } [FALSE, ‘AGE_INTERVAL_ FLOOR’, 1, 255, v_byte, Ammv$age_interval_fioor], \ 
o 4983 { } [FALSE, ‘AGGRESSIVE_AGING_ LEVEL’, ©, 100000, v_integer, Ammv$aggressive_aging_ level], 

Oo 4984 f{ } [FALSE, ‘AGGRESSIVE AGING LEVEL 2’, 0, 100000, v_integer, Ammv$aggressive_aging level_2], 

o 4985 { } [FALSE, ‘AGING ALGORITHM’, ©, 10000, v_integer, Ammv$aging_algorithm], 

o 4986 { } [FALSE, ‘AIO LIMIT’, 0, 5000000, v_integer, Ammv$aio_limit], ‘ 
° 4987 { } [FALSE, “ALLOW_JR_TEST’, 0, 1, v_boolean, Asyv$allow_jr_ test], 
° asses { } [FALSE, “AUTOMATIC _UNSTEP_RESUME’, 0, 1, v_boolean, Amtv$automatic_unstep_resume], : 
° 4989 { } [TRUE , ‘CATALOG NAME_SECURITY’, 0, 1, v_boolean, Aosv$catalog name_security], ie 
° 4990 { } [FALSE, “CHECK_IDLE DISPATCHING INTERVAL’, 1000, 10600000000, v_integer, 

o 64991 Ajmv$scan_idie_dispatch_interval], 

° 4992 { -rrreeee Declarations for forcing the use of cache and maps omitted at compile time ------°-- 

o 4993 { } [FALSE, ‘CLONE ENABLED’, 0, 1, v_boolean, Asyv$clone_enabied], 
Oo 4994 { } [FALSE, ‘COMMAND _STATISTICS_ENABLED‘, 0, 1, v_boolean, Aciv$command_ statistics enabled], 

o 4995 { } [FALSE, ‘CYCLE WAIT_TIME’, 0, 100000000, v_integer, Atmv$cycle_delay_time], 
o 4996 f{ } [ TRUE, “DEADSTART_INTERVENTION’, ©, 1, v_boolean, Arav$deadstart_intervention], \ 
Oo 4997 { } [FALSE, ‘DEBUGO’, 0, OFF FFFFFFFFFFLI6), Vv_integer, Aosv$debug[0]], 

o 4998 { } [FALSE, ‘DEBUG1’, 0, OFffFFFFFFFFFF(IE6), v_integer, Aosv$debug[1]], 

o a49gs9 { } [FALSE, ‘DEBUG2’, 0, OFffFffFFFFFFFFLIE6), V_integer, Aosv$debug[2]], 

o 5000 { } [FALSE, ‘DEBUG3’, 0, OF FFFFFFFFFFF(I6), v_integer, Aosv$debug[3]]1, if 
oO s001 f{ } [FALSE, ‘’DEBUG4’, 0, OF FFFFFFFFFFF[IEG), V_integer, Aosv$debug[4]]1, 

o s002 { } [FALSE, ‘DEBUGS’, ©, OFFFFFFFFEFFFF(IG), V_integer, Aosv$debug[5]], 
o 5003 { } [TFALSE, ‘DEBUGS’, 0, OFF FFFFFFFFFF(IEG), V_integer, Aosv$debug[6]], he 
oO 5004 { } [FALSE, ‘DEBUG7’, 0, OF fFFFFFFFFFF[IE6), V_integer, Aosv$debug[7]], 

o soos f{ } [FALSE, ‘DEBUGS8’, 0, Of FFFFFFFFFFF(I6), V_integer, Aosv$debug[8]], 

o s006 { } [FALSE, ‘DEBUGS’, 0, OF fFFFFFFFFFF[IE6), V_integer, Aosv$debug[3]], 

o 5007 { } [FALSE, ’DEBUG10’, 0, Of fF FFFFFFFFF(IG), v_integer, Aesv$debug[10]], 

Oo 5008 { } [TFALSE, ‘DEBUG11’, ©, Of FFFFFFFFFFF(IE), v_integer, Aosv$debug![11]], 


aoe 
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o so0o9 { } [FALSE, ‘DEBUG12’, 0, OF FFFFFFFFFFF(16), v_integer, Aosv$debug[12)]), 
© 5010 { } [FALSE, ‘DEBYG13', 0, OF fFFFFFFFFFF(IE6), v_integer, Aosv$debug[13]], 
Oo 5011 { } [FALSE, ‘DEBUG14’, 0, oFffFfFFFFFFFFF(I6), v_integer, Aosv$debug!14)}], 
o $012 { } [FALSE, ‘DEBUG15’, 0, Off FfFFFFFFFFF(IE6), v_integer, Aosv$debug!15)]], 
o 5013 { } (FALSE, ‘DEBUG _JOB_ RECOVERY’, ©, 1, v_boolean, Asyv$debug_job_recovery], 
o s014a { } [ FALSE, ‘DEDICATE_A_CPU_TO_ NOS’, ©, 1, v_boolean, Atmv$dedicate_a_cpu_to_nos], 
o s015 f{ } [FALSE, ‘DEFAULT “PIT, 1, OFFFFFEEFF(I6), v_integer, Aosv$default_pit], 
Oo so016 { } [FALSE, ‘DEFAULT_SIT’, 500, 1000000000, v_integer, Aosv$default_sit_value], 
o s017 { } [TRUE, ‘DELETE _UNRECONCILED_ FILES’, 0, 1, v_boolean, Aosv$delete_unreconciled files], 
o s018 { } [ TRUE, ’DEVELOPMENT_ DEADSTART’, ©, 1, v_boolean, Arav$development _deadstart], 
o s019 { } [FALSE, ‘DISABLE _WRITE_ FOR_PERF MEAS’, ©, 1, v_boolean, Ammv$disabie_ write _for_perf_ meas], 
© 5020 { } [FALSE, ‘DISDELAY’, 1, 100000, ¥V _integer, Adpv$display_delay], 
© 5021 { } [TRUE, “DISPLAY _DEADSTART _MESSAGES’, ©, 1, v_ boolean, Adsv$display_deadstart_messages ], 
o 5022 { } [FALSE, ‘DUMP_WHEN_DEBUG’, 0, 1, v_boolean, Aosv$dump_when_debug], 
© 5023 { } [FALSE, ‘DYNAMIC_FILE_SPACE_LIMITS”, ©, 1, v_boolean, Asfv$dynamic_file_space_limits], 
o 5024 { } [FALSE, ‘ENABLE DEBUG CODE’, 0, 1, v_boolean, “jsv$enablie_ debug code], 
o 5025 { } [FALSE, ‘ENABLE _FAULT_INJECTION’, ©, 1, v_boolean, Asyv$enable_fault_injection], 
o 5026 { } [TRUE , ‘ENABLE HEAP_TRACE’, 0, 1, v_boolean, Asyv$enable_heap_trace], 
© 5027 { } [TRUE, ‘ENABLE HYPERCHANNEL °, ©, 1, V boolean, Aosv$enabie_hyperchannel], 
Oo s028 { } ITFALSE, ‘ENABLE QUEUE FILE _ACCESS’, Oo, 1, v_boolean, Ajmv$enable_ queue file access], 
o 5029 { } [FALSE, ‘ENABLE SOURCE _CYBIL _CHECKING’, ©, 1, v_boolean, Alov$enable_ source _ type_ checking], 
o 5030 { } [FALSE, ‘ENABLE SWAP_FILE _STATISTICS’, ©, 1, v_boolean, Ajsv$enable_ swap_file_ statistics], 
Oo 5031 { } [FALSE, ‘ENABLE SWAP _ RESIDENT’, oO, 1, v_boolean, Ajsv$enable_swap_resident], 
Oo 5032 { } [FALSE, ‘ENABLE_SWAP_RESIDENT_NO_ IO’. ©, 1, Vv boolean, Ajsv$enable_ swap_resident_no_io]), 
o 5033 { } [ FALSE, ‘FILE ALLOCATION_INTERVAL’, 0, 7FFFFFFF(16), V_integer, Ammv$file_allocation_interval], 
o 5034 { J [FALSE, ‘FILE SERVER_DEBUG_ENABLED’, 0, 1, v_boolean, Adfv$file_server_debug enabled], 
o 5035 { } [FALSE, ‘FILE_SERVER_RECOVERY_ENABLED’, 0, 1, v_boolean, Adfv$job_recovery_enabied], 
o s036 { } [FALSE, ‘FILE _SERVER_ INFO_ENABLED’, 0, 1, v_boolean, Adfv$file_ server_info_enabled], 
Oo $037 { } [FALSE, ’FORCE_ DIRECT_ TAPE_ 10’, 0, 1, V_boolean, Abav$force direct _tape_io ], 
o 5038 { } [FALSE, ‘FREE WORKING SET_ON _SWAPOUT', Oo, 1, V boolean, Ajsv$free_ working set_on_swapout], 
o §039 { } [FALSE, ‘’HALTRING’, ©, 16, v “byte, Amtv$hait _CcPpu_ring_number], 
o s§040 [ } [FALSE, ‘HALT_ON_ HUNG_ TASK’, ©, 1, v_boolean, Atmv$halt_on_hung task], 
o s041 { } (FALSE, *HALT_ ON_ _PROCESSOR_ MALFUNCTION’, Oo, 1, v boolean, Amtv$halt_on_proc_maif], 
oO S042 { } [ FALSE, ‘HALT_ ON _SWAPIN_ FAILURE’, ©, 1, v_boolean, Ajsv$halt_on_swapin_faitlure], 
o 5043 { } [FALSE, ‘IF _CONDITION_ HANDLING _ TRACE’, ©, 1, V boolean, Aiiv$condition_handier_trace], 
Oo 5044 { } [FALSE, *IGNORE_ IMAGE’, o, 1, av _oo lean, Adsv$ignore_image], 
o s045 { } [FALSE, ‘IGNORE_ PARAMETER _VERIFICATION’, ©, 2, v_integer, Alov$ignore_param_verification], 
o so46 { } [FALSE, ‘TRIM_FILES’, ©, 1, v_boolean, Admv$trim files], 
° 5047 { } [TRUE, “UNLOAD_ DEADSTART _TAPE’, ©, 1, v_boolean, AdsvS$unload_deadstart_ tape], 
o 5048 { } [TRUE , ‘JOB_RECOVERY_OPTION’, °, 100, v_integer, AsSyv$job_recovery option], 
o s04s { } [FALSE, ‘JOB_WORKING SET_AGE_INTERVAL’, 1000, TEEFFEFF(IG), v_integer, Ammv$jws_ queve_age_interval], 
o s5050 { } [FALSE, ‘KCU_ENABLE’, ©, 100, v_integer, Aosv$keypoint_enabiel, 
Oo 5051 f{ } [FALSE, ‘dummy’, ©, 1, v_boolean, NIL], 
o s052 { } [FALSE, ‘LONG WAIT_SWAP_TIME’, 0, 1000000000, v_integer, Atmv$long wait_swap_time], 
o s0s83 { } [FALSE, ‘LONG _ WAIT _FORCE SWAP_TIME’, O, 1000000000, v_integer, Atmv$long wait _force swap_time], 
o 5054 { } [FALSE, ‘MANDATORY _DUALSTATE’, ©, 1, V_boolean, Asyv$mandatory_duaistate), 
o 5055 { } [TRUE, “MAXIMUM_180_ MEMORY’, 1000000, 400000000, v_integer, Ammv$maximum_180_memory], 
o 5056 f{ } [TRUE, *MAXIMUM_ ACTIVE _SEGMENTS ’, 100, 65535, v_halfword, Amtv$mx_segments], 
© 5057 { } [FALSE, “MAX IMUM_ BYTES _PER_ TAPE _10’, 1, VFFFFFFF(16), v_integer, Abav$max_bytes per _tape_io ], 
o s058 { } [FALSE, ‘MAXIMUM_INDIRECT_TAPE_ BLOCK’, 1, VFFFFFFF(16), v_integer, Abav$max_indirect_tape_bilock ], 
o 5059 { } [FALSE, ‘MAXIMUM_KNOWN_ JOBS’, 1, jmc$maximum_job_count, v_halfword, 4Ajmv$maximum_known_jobs], 
o s060 { } [FALSE, ‘MAXIMUM_OUTPUT_FILES’, 1, jmc$maximum_output_count, v_halfword, Ajmv$maximum_known_outputs], 
o so061 f{ } [FALSE, ‘MAXIMUM_PAGES_NO_ FILE’, ©, 7FFFFFFF(I16), V_integer, Ammv$max_pages_no_file], 
o 5062 { } [FALSE, ‘MAXIMUM_PAGES_ TO_SWAP’, ©, Of fff(16), v_integer, Ajsv$maximum_pages_to_swap], 
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o 8063 { } [FALSE, ‘’MAX_PAGES FIRST_SWAP_TASK’, 0, Off ff(16), V_integer, Ajsv$max_pages_first_swap_task], 
© S064 
° 5065 { Maximum segment length is mo longer used by the OS. It must remain as a SETSA until release 1.6.1 
° 5066 { because IM/DM uses it. AS soon as they react to the change-this variable will be deleted. 
o S067 
° s068 { } [FALSE, ‘MAXIMUM_SEGMENT_LENGTH’, 150000000, 7FFFFFFF(16), v_integer, Ammv$max_segment length], 
o 5069 { } [ FALSE, ‘MAXIMUM_SWAP _RESIDENT_TIME’, ©, 86400000000, v_integer, Ajsv$max_time_swap_io_compliete], 
o 5070 { } [FALSE, ‘MAXIMUM_TAPE_ BLOCK SIZE’, i 7FFFFFFF(16), v_integer, Abav$max_allowed_tape_block_size }, 
o 5071 { } [ TRUE, "MAXIMUM_TASKS’, 20, osc$max_tasks, v halfword, Amtv$mx_tasks], 
9° 5072 f{ } [FALSE, “MAX IMUM_ THINK TIME’, ©, 1000000000, v_integer, Ajmv$max_think_time], 
Oo 5073 { } [FALSE, ‘MAXWwS _AIO_ THRESHOLD’, ©, 100000, v_integer, Ammv$maxws aio threshold], 
o 5074 { } [FALSE, ‘MAX _TIME _SWAP _IO0_NOT_INIT’, ©, 86400000000, v_integer, Ajsv$max_time_swap_io_not_init], 
o 5075 { } [FALSE, ‘MINIMUM_AVAILABLE PAGES’, ©, 100000, v_integer, Ammv$min_avail_pages], 
Oo 5076 { } [ FALSE, ‘MINIMUM_SHARED_ WORKING SET’, ©, 100000, v_halfword, 
© 5077 Atemp_workaround_min_sws], 
° 5078 { Note: The following line Should be made active when the temp _workaround is mo longer needed 
o 5079 { Ammv$gpqiimmc$pq_ shared _task_service] .minimum], 
o §080 
Oo 5081 { } [FALSE, ‘MINIMUM_THINK_TIME’, ©, 1000000000, v_integer, Ajmv$min_think_time], 
o 5082 { } [FALSE, ‘MM_CHECK_QUEUES’, ©, 2, v_integer, Ammv$check queues], 
Oo 5083 { } [FALSE, ‘MM_ PERIODIC _CALL’, 1000, 10000000, v_integer, Ammv$periodic_call_interval], 
o s084 { } [FALSE, ‘MULTI_PAGE WRITE’, 0, 1, v_bhoolean, Ammv$mu 1t i_page_write], 
o s08s { } [ TRUE, *NETWORK _ACTIVATION’, ©, 1, V boolean, Arav$network_activation], 
o 5086 { } [FALSE, ‘NOSVE_INTERNAL_OPERATIONS’, ©, 1, v boolean, Asyv$nosve_internal operations], 
o 5087 { } [FALSE, ’NO_ MEMORY BUFFERING’, ©, 1, v_boolean, Ammv$no_memory buffering], 
o 5088 { } [FALSE, ‘dummy’, 0, 1, v_boolean, NIL}, 
o sossg { } [FALSE, “OUTPUT__ OPTION’, ©, 100000000, v_integer, Aiiv$output_option], 
o 5090 { } [FALSE, ‘dummy’, 0, 1, v_boolean, NIL], 
° 5091 { } [FALSE, ‘PERMANENT _FILE_ OVERFLOW’, ©, 1, v boolean, Admv$permanent_file_ overflow], 
Oo s09s2 { } [FALSE, ‘PROCESSOR _ DUE_ THRESHOLD‘, ©, TFFFFFFFFFFF(16), v_integer, Amtv$processor_due_ threshold], 
o 5093 { } [FALSE, ‘’QUICKDS’, 0, 1, v_beolean, Admv$quick_deadstart], 
o sos4 { } [FALSE, ‘’READ_TU _EXECUTE’, 1, 32, v uhalfword, Ammv$read_tu_execute], 
Oo s0g95 { } [FALSE, “READ _ TU_READ _WRITE’, 1, 32, v_halfword, Ammv$read_tu_read_ write], 
o 5096 { } [TRUE, “RECONCILE _PERMANENT FILES’, ©, 1, v_boolean, Aosv$reconcile permanent _files], 
o 5097 { } [TRUE, “RECOVER_ AT ALL _costTs’, °, 1, v_boolean, Aosv$recover_at_all_costs], 
Oo 5098 f{ } [FALSE, "RECYCLE _ DEVICE_ LOG’, }, 1, Vv _boolean, Admv$recycle device log], 
o 5099 { } [ TRUE, *REORGANIZE _PERMANENT_ FILES’, 0, 1, v_ boolean, Aosv$reorganize permanent_files], 
o 5100 { } [FALSE, *SCHEDULER_WAIT_TIME’, QO, 5000000, v_integer, Ajmv$scheduter_wait_time], 
o 5101 { } [FALSE, *SCHED_MEMORY_WAIT FACTOR’, ©, 100, v_integer, Ajmv$sched_memory_ wait factor], 
o $102 { } [FALSE, ‘SHARED_PAGES_IN_JWS’, 0, 1, v_boolean, Ammv$shared_pages_in_jws], 
o s103 { } [FALSE, ‘SHARED_WORKING SET_AGE_ INTERVAL’, 0, 7#FFFFFF(16), v_Linteger, Ammv$shared_queue_age_ interval], 
° 5104 { } [FALSE, ‘SWAPPING AIC’, 0, 100, v_integer, ammv$swapping aic], 
o 5105 { } [FALSE, ‘’SWAP_FILE_ ALLOCATION _ SIZE’, 4096, 1000000, v_halfword, Ajmv$swap_file_allocation_size], 
o 5106 { } [FALSE, ‘SWAP_JOBS_IN_ LONG WAIT’, 0, 1, v_boolean, Ajmv$swap_jobs_in_long wait], 
o 5107 { } [FALSE, ’SYSTEM_DEBUG RING’, ©, 15, v_integer, Atmv$system_debug ring], . 
o 5108 { } [FALSE, ‘SYSTEM_DEBUG_ SEGMENT’, ©, 40s5, v integer, Atmv$system_debug segment ], 
o 51098 { } [FALSE, ‘SYSTEM_ERROR_HANG_ COUNT’, 0, 1000, vihalfword, Atmv$system_error_ hang count], 
o 5110 { } [FALSE, "SYSTEM _ HALTRING’, ©, 16, v_byte, Amtv$system_haitring], 
Oo S111 { } [ TRUE, *SYSTEM_ JOB _MULTIPROCESSING”, ©, 1, v boolean, Asyv$system_job_multiprocessing], 
o s112 { } [FALSE, ‘TEMPORARY _FILE_OVERFLOW’ , °, 1, v_beolean, Admv$temporary_ file_overfiow], 
o 5113 { } [FALSE, ‘TEST_RECOVERY’, 0, 1, v_boolean, Admv$test_recovery], 
oO 8114 f{ } [FALSE, "THINK_ EXPIRATION TIME’, ©, 1000000000, v_integer, Ajsv$think_expiration_time], 
o 5115 { } [FALSE, ‘USE _ASSIGN _PAGES _FOR_ TAPE’, ©, 1, v boolean, Abav$use_ assign_pages_for_tape ], 
o 5116 { } [TRUE, "VALIDATE _PERMANENT_ FILES’, 0, 1, v_boolean, Aosv$validate_ permanent _files], 
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» 1, V_boolean, Aosv$validate_active_sets], 
2, v_byte, Amtv$scb_vector_sim_attribute], 
1 1, V boolean, Asyv$verify heap_linkagel], 


v_halfword, 
v_boolean, 
jmc$maximum_job_classes, 


v_integer, 


v_integer, 


v_integer, 


v_integer, 


1889-08-21 


Ammv$write_aged_out_pages], 
Amtv$mx_ajl_entries], 
Ajiov$unused boolean], 
v_halfword, 


jmc$maximum_service_ classes, 


Apmv$debug logging enabled], 
Apmv$constrain_meape_segments], 


Atmv$display_actual_priorityl], 
v_integer, 


° 5117 { } [TRUE, “VALIDATE SYSTEM_SET’, © 
o 5118 { } [FALSE, ‘VECTOR_SIMULATION’, O, 
o 5119 { } [FALSE, ‘VERIFY _HEAP_LINKAGE’, © 
o 5120 { } [ITRUE, ‘VOLUME _CLASS’, ©, 1, v_boolean, Admv$volume_class_kiudge], 
o 5121 { } [TRUE, ‘WIRE _MLI_TABLES’, ©, 1, v_boolean, Amiv$wire_mili_tables], 
o 5122 { } [TFALSE, ‘WRITE_AGED_OUT_PAGES’, ©, 100000, v_integer, 
o 5123 { } [TRUE, ‘WRITE_STALE_PAGES’,©O, 1, v_boolean, Ajsv$write_stale_ pages], 
°o 5124 { } [TRUE, *“MAXIMUM_ACTIVE JOBS’, 1, jmc$max_active_jobs, 
o 5125 { } [false, ‘unused boolean_for_io’, 
o 5126 { } [FALSE, ‘MAXIMUM_JOB_CLASSES’, jmc$minimum_job_classes, 
Oo 5127 A jmv$maximum_job_ classes], 
o 5128 { } [FALSE, ‘MAXIMUM_SERVICE CLASSES’, jmc$minimum_service_classes, 
o 5129 A jmv$maximum_service_classes], 
© 5130 { } [FALSE, ‘MAXIMUM_DEBUG_ OUTPUT_LINES’, 100, 7FFFFFFFFFFF(16), 
o 5131 { } [FALSE, ‘DISK_FAULT_SIMULATION’, ©, 1, 
o 5132 { } [FALSE, ‘EMERGENCY _ INTERVENTION’, ©, 1, v_boolean, 
° 5133 { } [FALSE, ‘DISABLE_NETWORK_ RELAYS’, ©, 1, v_boolean, 
o 5134 { } [FALSE, ‘dummy’, ©, 1, v_boolean, NIL], 
° 5135 { } [FALSE, ‘SHADOW_BY_SEGNUM’, 0, 1, v_boolean, Ammv$shadow_by_segnum], 
© 5136 { } [TFALSE, ‘ENABLE _PM_DEBUG_ LOGGING’, 06, 1, v_boolean, 
° 5137 { } [FALSE, ‘’CONSTRAIN_ MEAPE SEGMENTS’, ©, 1, vV_boolean, 
Oo 5138 { } [TRUE, “SYSTEM_ACTIVATION’, ©, 1, vV_boolean, Arav$system_activation], 
re) 5139 { } [FALSE, ‘USER_TEMPLATES’, 0, 1, v_boolean, Asyv$user_templates], 
o 5140 { } [FALSE, ‘CLIENT_JOB_LISTS’, 1, dfc$max_job_list_p_array_size, 
Oo 5141 Adfv$maximum_client_jeb_lists], 
© 5142 { }) [FALSE, ‘SERVED_FAMILY_LISTS’, 1, dfc$maximum_family_lists, 
oO 5143 Adfv$number_served_family_lists], 
o 5144 { } [FALSE, ‘SPECIAL_TRAP’, 0, 1, v_boolean, Aosv$special_aam_trap], 
o 5145 { } [FALSE, ‘TRAP_TASK_ERRORS’, ©, 1, vV_boolean, Aosv$trap_task_errors], 
° 5146 { } [FALSE, ‘DISPLAY_ACTUAL_PRIORITY’, ©, 1, V_boolean, 
o 5147 { } [FALSE, ’TIMED_WAIT_NOT_QUEUED’, GOO00000, TFFFFFFFFFFF(16), 
o 5148 f{ } [TRUE, ‘VALIDATE ACTIVE SETS’, ©, 1, v_boolean, Aosv$validate_active_ sets], 
o 5149 { } [FALSE, ‘PF_SPARSE’, ©, 1, v_boolean, Admv$pf_sparse], 
o 5150 { } [FALSE, ‘MAXIMUM_ALLOCATION_ SIZE’, 16384, OF FFFFFFFFFFF( 16), 
o 5151 { } 
© 5152 { } [FALSE, ‘SPACE_MESSAGES _TO_CONSOLE’, ©, 1, v_boolean, 
o 5153 { } [FALSE, ‘DEFAULT_DEBUG_OUTPUT_DISPOSAL’, 0, 3, v_byte, 
oO 5154 { } [TRUE, ‘ENABLE CONSOLE BELL’, ©, 1, v_boolean, Adpv$enable_console_bell], 
o 5155 { } [FALSE, ‘BINARY_CATALOG SEARCH’, ©, 1, v_boolean, Apfv$binary_catalog search], 
o 5156 { } [FALSE, ‘HALT_ON_EXIT_WITH_I0’, 0, 1, v_boolean, Asyv$halt_on_exit_with_io], 
o 5157 f{ } [FALSE, ‘dummy’, ©, 1, v_boolean, NIL], 
o 5158 { } IFALSE, ‘dummy’, ©, 1, v_booltean, NIL], 
o 5159 { } [FALSE, ‘dummy’, ©, 1, v_boolean, NIL], 
o 5160 { } [FALSE, ‘dummy’, ©, 1, v_boolean, NIL], 
o 5161 { } [FALSE, ‘dummy’, ©, 1, v_boolean, NIL], 
o 5162 { } [FALSE, ‘dummy’, ©, 1, v_boolean, NIL], 
o 5163 { } [FALSE, ‘dummy’, ©, 1, v_boolean, NIL], 
Oo 5164 { } [FALSE, ‘dummy’, 0, 1, v_boolean, NIL], 
° 5165 { } [FALSE, ‘dummy’, ©, 1, v_boolean, NIL], 
o 5166 { } [FALSE, ‘dummy’, ©, 1, v_boolean, NILI, 
re) 5167 { } [FALSE, ‘dummy’, 0, 1, v_bootean, NIL]]; 
° 5168 
° 5169 
SOURCE LIST OF sym$system_constant_manager NOS/VE CYBIL/II 1.0 89102 


System Constant Management 
[xXDCL] syp$fetch_system_const_from_ssr 


o 5172 

Oo 5173 PROCEDURE [XDCL] syp$fetch_system_const_from_ssr 
4 5174 (VAR status: ost$status) ; 

4 5175 

4 5176 status.normald :: TRUE; 

4 S177 PROCEND syp$fetch_ system_const_from_ssr ; 

oO 5178 


1989-08-21 
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v_halfword, 


Asyv$max_debug_output_lines], 
v_boolean, Aosv$disk_fault_simulation], 

Aosv$emergency_intervention], 
Anav$disable_ network relays], 


Atmv$t imed_wait_not_queued], 


_. =i Admv$maximum_allocation_sizel, 

[FALSE, ‘DEBUGGER_PAGE_WAIT_LINES’, ©, O7FFFFFFFFFFFFFFF(IG), v_integer, Asyv$debugger_page wait_linesl, 
Admv$space_messages_to_console], 
Asyv$dfit_debug output disposal.byte], 


13:33:34 


PAGE 989 


ied 
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[XDCL, 


Pooooooooo0o00 


SOURCE LIST OF sym$system_constant_manager 


#GATE]) 


5180 
$181 
5182 
$183 
5184 
$185 
5186 
$187 
5188 
5189 
5190 
5191 
5192 
5193 
5194 
5195 
5196 
51937 
5198 
5199 
5200 
5201 
§202 
5203 
5204 
5205 
5206 
$207 
5208 
$209 
5210 
5211 
$212 
5213 
5214 
$215 
$216 
5217 
$218 
$219 
$220 
§221 
$222 
§223 
$224 
5225 
S226 
$227 
$228 
5229 
5230 
§231 
$232 
$233 
5234 


syp$fetch system_constant 


NOS/VE CYBIL/II 1.0 89102 


PROCEDURE [XDCL, #GATE] syp$fetch_system_ constant 


(VAR mame: string ( * ); 
VAR index: integer; 
VAR value: integer; 
VAR status: ost$status); 


VAR 
tab_p: Avalue table type, 
temp_status: ost$status; 


temp_workaround_min_sws := mmv$gpqliimmc$pq_shared_task_service] .minimum; 


IF name = ‘EVERYTHING’ THEN 
IF (index >= 1) AND (index <=: 


value _table_length) THEN 


name := value_table [index] .name; 


IF name <> ‘dummy’ THEN 


CASE value _tabie [index].value_type OF 


= v_integer = 


value := value_table [index] .integer_p%; 
= v_hatlfword = 
Value := value table [index].halfword p%; 
= v_byte = 
value := value_table [index].byte_p‘; 
= v_boolean = 
value := ORD (value_table [index] .boolean_ pA); 
CASEND; 
IFEND ; 
IF index = value table _ length THEN 
index := 0; 
ELSE 
index := index + 1; 
IFENOD; 
IFEND; 


ELSE 


search_value_table (name, tab_p, status); 


IF status.normal THEN 
CASE tab_p4%.vailue_ type OF 
> v_Uinteger = 


value := tab_pA.integer pr; 


= v_halfword = 
value 
= v_byte 
value : tab_p”.byte pA; 
= v boolean = 


tab_pA.halfword pA; 


value := ORD (tab_pA.boolean_p}); 


CASEND; 
RETURN; 
IFEND; 


{ The following code is executed only if the status returned from search_value_ table was abnormal. 
{ Use a temporary status in the following procedure 


dmp$fetch_debug option_value 
IF temp_status.normal THEN 
RETURN; 


System Constant Management 


[XDCL, 


31¢C 
31C 
31C 
382 
382 

° 


#GATE] 


5235 
5236 
$237 
5238 
5239 
5240 


syp$fetch_system_constant 
IFEND; 
iop$fetch_ debug option_vatlue 


IFEND ; 
PROCEND syp$fetch_system_constant; 


(name, value, temp_status) ; 


NOS/VE CYBIL/II 1.0 89102 


(name, value, temp_status); 


1989-08-21 
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calls to preserve the bad status from search _value_table. 
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NOS/VE CYBIL/TII 


System Constant Management 
[XDCL] syp$save_system_const_in_ssr 


5242 
$243 
S244 
5245 
5246 
S247 
5248 


OrRPDROO 


SOURCE LIST OF Sym$system_constant_manager 


PROCEDURE [XDCL] syp$save_system_const_in_ssr 


(VAR status: 


status.normal :: 


est$status); 


TRUE; 


PROCEND syp$save_system_const_in_ssrj; 


NOS/VE CYBIL/II 
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[XDCL] 


5250 
5251 
$252 
5253 
5254 
5255 
5256 
$257 
5258 
5259 
5260 
5261 
5262 
5263 
5264 
S265 


PHPAADA PRP HAAPADAHRAPEAHEROOCOCOOCONOOCOC00008 


{ 
{ 
{ 


PROCEDURE 


( 


VAR status: 


Syp$set_processor_attributes 


[xXDCL] syp$set_processor_attributes 
model number: integer ; 
ost$status) ; 


VAR 
p: ARECORD 
filli: string (12), 
ao_offset: 0 OFfFFEFFF( 16), 
fill2: string (4), 
al_offset: 0 OFFFFFFFF( IG), 
RECEND; 


pmv$quantum :=: 
mmv$tick time := 


The default values of the variables managed by the Manage Memory Utility have aiready been saved 


1.0 893102 


1.9 883162 


osv$global_processor_model_info. quantum; 
osv$global_processor_model_ 


info,tick time; 


1989-08-21 


1989-08-21 


procedure mmp$initialize 


Therefore reset the default 


in mmm$deadstart_initialization. 
in mmv$manage_memory_ utility 


But now mmv$tick_ time has been reset. 


mmv$manage_memory utility.ma[ma_tt].default := 


mmv$tick_ time; 


mtv$xp_initial_value.tos registers[1].pva.offset :=: 


mmv$page_map_offsets [mmc$pmo_ri_stack] 


mmc$ring crossing offset ; 


* osv$page_ size + 


mtv$xp_initial_value.tos registers[2].pva.offset := 


mmv$page_map_offsets [mmc$pmo_r2_stack] 


mmc$ring crossing_offset ; 


* osv$page_size + 


mtv$xp_initial_value.tos registers[3].pva.offset := 


mmv$page_map_offsets [mmc$pmo_r3_stack] 


mmc$ring crossing_offset ; 
p := #LOC (mtv$xp_initial value) ; 
p4.aO_offset := mmv$page_map_offsets 
mmc$ring crossing offset ; 
pA.al_offset := mmv$page_map_offsets 
mmc$ring crossing offset; 
PROCEND syp$set_processor attributes; 


* osv$page_size + 


[mmc$pmo_ri stack] * osv$page_ size + 


Immc$pmo_ri_ stack] * osv$page_size + 
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in the 
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_ SOURCE LIST OF sym$system_constant_manager NOS/VE CYBIL/II 1.0 89102 


System Constant Management 
[XDCL, #GATE] syp$store_system_constant 


o $5289 
o 5290 PROCEDURE [XDCL, #GATE] syp$store_ system_constant 
o 5291 ( name: string ( * ); 
o $292 index: integer ; 
© 5293 value: integer; 
© 5294 VAR status: ost$status); 
o 8285 
Oo 52986 VAR 
o %5297 tab _p: Avalue table type, 
o 5298 temp_status: ost$status; 
o %§299 
o 5300 search_value_ table (name, tab_p, status); 
22 5301 IF status.normal THEN 
24 5302 
24 5303 IF (mtv$sys_core_init_ complete) AND (tab_p%.deadstart_only) THEN 
42 5304 osp$set_status_ abnormal (‘SY’, sSye$not_changeable_after_ds, 
76 5305 ‘Variable not changeable after ds complete’, status); 
76 5306 RETURN; 
78 %5307 IFENDO; 
78 5308 
78 5309 IF (value > tab _pA.max) OR (value < tab pA.min) THEN 
$0 5310 osp$set_status_abnormal (’SY‘, sye$range_error, ‘Value out of range’, status); 
c& §311 ELSE 
Ccé& §312 temp_workaround_ min_sws := mmv$gpqiimmc$pq_shared_ task_service].minimum; 
C6 5313 CASE tab_p’4.value_ type OF 
FO 5314 > v_integer = 
FO §315 tab_p’.integer_ pA :: value; 
104 §316 = v_hnalfword = 
104 5317 tab_p’.halfword p% := value; 
110 §318 = v_byte = 
110 5319 tab_p’.byte pA := value; 
11C §320 = v_boolean = 
11C 8321 IF value = ORD (FALSE) THEN 
120 5322 tab_pA.boolean_pA := FALSE; 
12E §323 ELSE 
12E 5324 tab_pA.boolean_pA := TRUE; 
136 5325 IFEND ; 
136 5326 CASEND ; 
136 5327 mmv$gpqil[mmc$pq_shared_task_service].minimum := temp_workaround_min_sws; 
13E 5328 IFEND ; 
13E 5329 RETURN; 
140 5330 IFEND ; 
140 5331 
140 5332 osp$set_status_abnormal (’0S’, cleS$name_not_a_ keyword value, name, status); 
16C §333 ospS$append_ status _ parameter (osc$status_parameter delimiter, ’ for parameter NAME’, status); 
194 5334 
194 5335 { Use a temporary status in the following procedure calis to preserve the status returned for 
194 5336 { search_value_table. 
194 5337 
194 5338 dmp$store_ debug option_value (name, value, temp_status) ; 
1B4 53393 IF temp _status.normal THEN ; 
1BC 5340 RETURN; 
1BE 5341 IFEND; 
1BE 8342 
1BE 5343 iop$store_ debug _ option_value (name, value, temp_status); 
SOURCE LIST OF sym$system_constant_manager NOS/VE CYBIL/II 1.0 89102 1989-08-21 


System Constant Management 
[XDCL, #GATE] syp$store_system_constant 


1E2 5344 

1E2 5345 

1E2 5346 PROCEND syp$store_ system_constant ; 
° 5347 
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SOURCE LIST OF sym$system_constant_manager NOS/ 


System Constant Management 
search _ value _ table 


o 53498 
oO 5350 PROCEDURE search _vaiue_tabie 
o 5351 { mame: string { * ); 
Oo 5352 VAR tab_p: Avalue_tabie_type; 
o 86§353 VAR status: ost$status) ; 
o 5354 
Oo 5355 VAR 
© 5356 error_string: string (55), 
o 5357 i: integer, 
oO 5358 Iname: string (max_name_length), 
o $5359 table i: integer; 
Oo 5360 
o 5361 table i := 1; 
4 S362 Iname ::= name; 
26 5363 FOR i := 1 TO STRLENGTH (1name) DO 
30 8364 IF (tIname (i) >= ‘a’) AND (Iname (i) <= ‘2 
48 5365 Inmame (i) := CHR (ORD (Iname (i}) - ORD 
50 5366 IFEND; 
50 58367 FOREND ; 
54 5368 
54 5369 /Vp/ 
54 5370 WHILE Iname <> value table [table _i].name Do 
74 §371 table i := table_i + 1; 
74 8372 IF table_i <= value table length THEN 
7E 5373 CYCLE /1p/ 
82 5374 IFEND; 
82 5375 error_string := ’Unknown parameter name: 
90 5376 error_string(25, *) : = lname; 
SA 5377 osp$set_status_abnormal (‘SY’, 
CA 5378 RETURN ; 
cc 6§379 WHILEND /1p/; 
ES 5380 
E&8 5381 tab_p := Avalue_ table [table_i]; 
E&8 5382 PROCEND search _ vailue_ table; 
o 5383 


© 5385 MODEND sym$system_constant_manager ; 


x*** 1290557817388S0102D193880821T183254 L=ZZ2XXLIST BelLGG DANONE LO= RC=NONE oOPT=SCHED 
ERROR LIST OF sym$system_constant_manager NOS/VE CYBIL/II 1.0 88102 
System Constant Management 
search _ value _ table 
ERROR LINE TEXT 
WARNING CY 821 §214 Code scheduling abandoned for this block due to register jamming. 


« 


LEVEL SUMMARY 
RK 1 warning diagnostic 


VE CYBIL/TII 


1.09 89102 


“)} THEN 
{'a’} + ORD 


’ 


(*A')); 


sye$unknown_parameter_name, iname, status); 
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EL?F LF=CS612 
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REFERENCES OF sym$system_constant_manager NOS/VE CYBIL/II 1.0 89102 


System Constant Management 
search value table 


IDENTIFIER*-" "secre eee Sie see tS DEFINED=<<<2s6s 24s 605 e205 REFERENCES 
ON LINE 

ao_offset 5258 5282/M 

&1_offset 5260 5284/M 

amc$file_ tbyte_limit 2938 2941 2343 

amt$file byte _ address 2941 2758 2759 

-amt$file length 2943 2807 

ave$validation_level_const_mame 4890 4376 

avtS$account_name 1854 1822 2357 2362 2373 

avtSproject_ name 1858 1823 2363 2380 3021 

avv$validation_level 4899 43976 

bav$force_ direct _tape_io 1722 5037 

bav$max_allowed tape_block size 1724 5070 

bav$max_bytes_per_tape_io 1726 5057 

bav$max_indirect_tape_block 1728 5058 

bav$use_assign_pages_for_tape 1730 5115 

boolean _p 4803 5204 §224 5322/M 5324/M 

byte 4719 5153 

byte_p 4801 5202 5222 5319/M 

cic$change_secure_ logging _name 4877 4977 

cic$min_ecc 15 16 28 30 33 
48 60 64 67 
88 $3 96 101 
122 125 128 133 
154 157 162 165 
186 190 193 188 
217 220 225 230 
249 252 255 261 
281 284 287 230 
310 315 318 323 
342 347 352 355 
372 377 381 385 
412 416 422 426 
4aa 447 450 4s5 
473 476 482 485 
501 504 508 $12 
$27 530 $33 $37 
552 555 558 $61 
576 580 $83 S86 
605 60S 612 616 
631 635 638 643 
662 665 668 §72 
690 694 698 704 
719 722 725 731 
750 753 758 763 
783 788 7391 795 
812 815 &20 823 
842 847 851 857 
886 891 894 898 
$20 $25 $28 932 
953 956 960 964 


2379 


*** REFERENCE ABBREVIATIONS : Memodify, Atattribute, Sssubscript, I: 


REFERENCES OF sym$system_constant_manager NOS/VE CYBIL/II 1.0 89102 


‘System Constant Management 
search value table 


IDENTIFIER-------- +++ - eee ee eee DEFINED=-c es sce eer sees REFERENCES 
ON LINE 

982 985 988 993 
1012 1015 1020 1024 
1044 1047 1050 1053 
1068 1072 1075 1078 
1093 1096 10993 1103 
1119 1122 1125 1130 
1149 1152 1156 1160 
1176 1180 1184 1190 

cic$system_logging act ive_name 4910 4978 

cle$name_not_a_ keyword value 39 §332/P 

civ$command_statistics enabled 4808 4934 

civ$secure_logging act ivated 4881 4377 

civ$system_logging activated 4914 4378 

deadstart_only 4791 5303 

default 42396 5270/M 

dfc$client_job_heap_size 1848 1843 

dfc$client_job_list_size 1923 1794 1795 1932 

dfc$command_record bytes 3461 3469 

dfc$division_overwrite_ words 3448 3476 

dfc$S$esm_command_record_ size 3469 3477 

dfc$esm_header_ record size 3470 3477 

dfc$esm_maintenance_buf_size 3449 3480 

‘'dfc$esm_memory base_shift 3455 3477 3478 3478 

dfc$header_record bytes 3460 3470 

dfc$max_esm_memory_ size 3450 3479 

dfc$max_family parameters 1218 1214 

dfc$max_family_ptr_array_size 1248 1251 

dfc$max_job_list_p_array_size 1935 1838 $140 

_dfc$max_number_of_ mainframes 3457 3442 

dfc$maximum_family_ lists 1227 1218 5142 

dfc$maximum_lifet ime 1870 1867 

dfc$min_data_record_ bytes 3465 3476 

‘dfc$min_esm_division_size 3475 3479 

dfc$served_family_list_size 1242 1218 1245 

dft$client_job_list_entry 1799 1796 

adft$client_job_list_index 1832 1925 

dft$client_job_list_pointer 1793 1791 

dft$client_job_list_root 1784 1775 

dft$client_job_space 1817 1814 

‘dft$client_mainframe_file 1758 1763 

dftS$family_access kinds 1861 1824 1863 

dftS$family list 1231 1230 

_aftSfamily_pointer_ index 1251 1237 

‘dft$job_ heap 1841 1837 

dft$job_list_pointer array 1780 1786 

dft$job_list_ptr_array_ index 1938 1924 

‘dft$S$lifetime 1867 1803 3126 

dft$mainframe_file_ header . 1765 1759 

dft$mainframe_set 3442 3392 3393 3513 3514 

dftS$served_family_ list index 1245 1238 


996 
1027 
1056 
1081 
1107 
1135 
1163 
1197 


**x* REFERENCE ABBREVIATIONS : Msmodify, Azattribute, S:subscript, I= 


1889-08-21 


3020 


I/O ref, 


1983-0 


1000 
1033 
1059 
1084 
1110 
1138 
1167 
1204 


1/0 ref, 


13:33:34 PAGE $98 


R=read, Wewrite, P=parameter 


8-21 


1005 
1038 
1062 
1087 
1113 
1142 
1170 


13:33:34 PAGE 3993 


1009 
1041 
1065 
1080 
1116 
1145 
1173 


Reread, Wewrite, P:sparameter 


REFERENCES OF sym$system_constant_manager NOS/VE CYBIL/II 1.60 89102 


System Constant Management 
search value _ table 


1989-08-21 13:33:34 


PAGE 1000 


Pzsparameter 
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IDENTIFIER-<--+---%--- ee crec eee *DEFINEDs cee eee ee ee == “REFERENCES 
ON LINE 
dft$server_ lifetime 3126 1771 
dft$server_state 3131 1770 | 3134 
dfv$file_server debug enabled 1733 5034 
dfv$file server _info_enabied 1736 5036 
dfv$ job _recovery enabled 1739 5035 
dfv$maximum_client_job_lists 1744 5141 
dfv$number served_family_ lists 3208 5143 
dmp$fetch debug option_value 1619 §232 
dmp$store_ debug option_value 1674 5338 
dmt$globail_fiile_name 2947 2600 2720 
dmt$stored_fmd 2956 2848 
dmt$system_file_id 2016 1994 2465 3424 
dmv$maximum_allocation_size 4927 5150 
dmv$permanent_file_over flow 3213 5091 
dmv$pf_ sparse 4866 5148 
dmv$quick_deadstart 4928 5033 
dmv$recycle device_log 3216 5098 
dmv$space_messages_to_ console 4809 5152 
dmv$temporary file _overflow 3219 5112 
dmv$test_recovery 3222 5113 
dmv$trim_files 4810 5046 
dmv$volume_class_kludge 4811 5120 
dpv$displtay_delay 4812 5020 
dpv$enable_console_bell 3225 5154 
asv$display_deadstart messages 4813 5021 
dsv$ignore_image 4815 5044 
dsv$unload_deadstart_tape 3229 — 5047 
error string 5356 5375/M 5376/M 
fmt$file_ label 2961 2876 2363 
fsc$reserved_damage_symptom_9 2056 2083 
fst$cycle _damage_symptom 2052 2037 
fst$cycle_damage_symptoms 2037 1985 2333 2718 
gft$file descriptor _index 2031 2021 
gftS$system_file_ identifier 2020 2016 4018 
gft$table_ residence 2034 2022 
halfword p 4799 5200 5220 5317/M 
i §357 5363 5364 5364 5365/M 5365 
iiv$condition_handiler_trace 4816 5043 
iiv$output_ option 4818 50893 
index 5183 5193 $183 5194/S 5196/S 5198/S 5200/S 5202/8 §204/S 
5207 5208/M 5210/M 5210 
integer_p 4797 5198 5218 5315/M 
iop$fetch debug option value 1681 5237 
iop$store_ debug option _value 1688 5343 
iot$io_ error 4082 3425 4048 
iov$unused_ boolean 4820 5125 
** x REFERENCE ABBREVIATIONS : Memodify, Azattribute, S:subscript, I21/0 ref, Reread, Wewrite, 
REFERENCES OF sym$system_constant_manager NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 
System Constant Management 
search value table 
IDENTIFIER----~------ aS ese StS eS DEFINED: 24-8 ese s ess REFERENCES 
ON LINE 
jmc$detached_job_wait_time_max 32395 3292 
jimc$highest _det_job_wait time 3305 3295 3306 
jmc$highest_ service accumulator 3896 3897 
jmc$highest_working_set_ size 4114 4105 4115 4117 4119 4121 
jmc$ies_job_swapped 3681 3690 
jmc$ies_ swapin_in_ progress 3680 3689 
jme$iss_idie_tasks_initiated 3696 3723 
jmc$iss_swapin_io_compilete 3721 3724 
jmc$iss_swapin_requested 3717 3724 
jimc$iss_swapout complete 3716 3723 
jmc$iss swapped_io_cannot_init 3707 3734 
jmc$iss_swapped_no_io 3698 3733 
imc$keyword_offset_ maximum 3322 4106 
jmc$k jl_maximum_entries 1274 1267 1268 3848 
jmc$ko1l_maximum_entries 1284 1269 
jmc$max_active_jobs 1265 5124 
jmc$max_aji_ord 1266 1265 3489 
jmc$max_dispatching_ control 3640 3644 
jmc$max_dispatching_ priority 3562 3522 3525 3526 
jmc$maximum_job_classes 3831 3834 5126 
jmc$maximum_job_count 1281 1274 5059 
jmc$maximum_output count 1291 1284 5060 
jmc$maximum_service_classes 3914 3917 5128 
jmc$min_ dispatching contro! 3639 3643 
jimc$minimum_job_classes 3830 5126 
jmc$minimum_service_ciasses 3913 5128 
jmec$null_service_ciass 3907 3908 
jmc$priority pt 3576 3523 
jmc$priority pio 3585 3524 
jmc$priority p14 3589 3524 
imc$priority ps8 3583 3523 
imc$required offset 3320 4120 
jimc$reserved ajls 1270 1265 
jmc$service_ accumulator maximum 3888 3885 
jmc$system_default_offset 3321 3322 4122 
jmc$system_supplied_name_size 1883 1880 
imc$unlimited_ offset 32318 3296 3307 3838 4116 
imc$unspecified_offset 3313 4118 
jimc$working set _size_maximum 4105 4102 
jmt$ajl_ordinal 3489 3361 4180 
jmt$delayed swapin_work 3506 3391 3510 
jmt$detached_job_wait_time 3292 3277 
jmt$dispatching_ control index 3643 3600 3610 
imt$dispatching controls 3613 3611 
jmtSdispatching_priority 3522 3373 3601 3602 3603 3615 
jmt$ijl_block_index 3341 3337 
jmt$iji_bleck_number 3340 3336 
jmt$iji_dispatching control 3599 3374 
imt$ijl_entry_ status 3676 3360 
imt$ijl_ordinal 3335 3267 3380 3408 3350 3951 4011 4040 4185 
*** REFERENCE ABBREVIATIONS : M=modify, Atattribute, S:subscript, I:1/0 ref, R:read, Wewrite, 


P=parameter 


REFERENCES OF sym$system_const 


System Constant Management 
search value table 


LOENTIPLERS <3. 32S s oes ace eS D 
oO 
jmt$ijl_page_fault count 
jmt$ijl_page_stats 
jmt$ijl_service_class_ stats 
imt$S$ijl_statistics 
-jmt$ijl_swap_count 
jmt$ijl_swap_counts 
jmt$ijl_swap_status 
jmtS$initiated job_list_entry 
“jmtS$input_ file location 
jmt$ job _abort_ disposition 
jmt$ job class 
ajmt$ job_control_ block 
jmt$ job _mode 
jmt$job_priority 
jmt$job_recovery disposition 
jmt$ job_system_id 
jmt$kjil_index 
jmt$queue_ file ijl_information 
jmt$scheduling data 
jmt$service_accumulator 
jmt$service_ class index 
jmt$swap_ data 
jmt$swapout_reasons 
jmt$swapped_job_entry 
jmt$system_supplied_ name 
jmt$S$task_time_slice 
jmt$time_slice_values 
jmt$user_supplied_name 
jmt$working set size 
jmv$enable_ queue _ file_access 
jmv$max_think_t ime 
jmv$maximum_job_classes 
jmv$maximum_known_jobs 
jmv$maximum_known_outputs 
imv$maximum_service_classes 
jmv$min_think_t ime 
jmv$scan_idile_dispatch_interval 
jmv$sched_ memory wait_factor 
jmv$scheduier wait time 
. Jjmv$swap_file_allocation_size 
imv$swap_jobs_in_long wait 
jsc$isqi_swapped_io_ completed 
jsc$isqi_swapped_io_not_init 
_ jst$changed _asid_entry 
jst$ijli_swap_queue_id 
jJst$ijl_swap_queue_ Tink 
JSst$io_control_information 
jst$swap_file descriptor 
jstS$swapped_ page descriptor 
jistSswapped_ page descriptors 
isvS$enable_debug_ code 


*** 


REFERENCES OF sym$system_const 


System Constant Management 
search _ value table 


IDENTIFIER: -2 +--+ ee eee ere eee ee D 
0 
jsv$enablie_swap_file_statisttcs 
jisv$enable_swap_resident 
jsv$enablie_swap_resident_no_io 
jsv$free working set_on_swapout 
jJsv$halt_on_swapin_failure 
jisv$max_pages_ first _swap_task 
jsv$max_time_swap_io_complete 
jisv$S$max_time_swap_io_not_init 
jisv$maximum_pages_to_swap 
jsv$think_expiration_time 
isv$write stale pages 


Iname 


lov$enabie_source_type_checking 
Jov$ignore_param_ver ification 
Tp 


ma 
ma_tt 

max 

max name_length 

min 

minimum 

miv$wire_mli_tables 
mmc$pmo_ri1_ stack 
mmc$pmo_r2_ stack 
mmc$pmo_r3_ stack 

mmc$pq_ avail 

mmc$pq_ free 
“mmc$pq_job_fixed 
mmc$pq_ job working set 
mmc$pq shared first_site 
mmc$pq_ shared num_sites 
mmc$pq_ shared other 

mmc$pq shared site 01 
mmc$pq_ shared site_25 
“mmc$pq_shared_task_service 
mmc$pq_ swapped_io_error 
mmc$pq_ wired 

mmc$ring crossing_offset 
mmtS$active_ segment _table_ entry 
mmt$ast_ index 
mmt$global_page_queuve_ index 
mmt$global_page_queue_list 
mmt$global_page _queue_list_ent 
mmt$ job _page_queuve_index 
mmt$ job_page_ queue list 
mmt $ link 

mmt $ locked page 
mmt$manage_ memory utility 


al 


*¥x* 


ant_manager NOS/VE CYBIL/II 1.0 891062 
EFINED-----*-+-+--+e-e->- REFERENCES 
N LINE 
3750 3745 3746 
3744 3740 
3738 3395 
3783 3394 
3759 3755 3756 
3754 3414 3741 
3694 3363 3364 
3357 3266 3975 
3868 3863 
3877 3861 
3834 3419 
3248 3234 
1873 1802 3376 
3837 3416 3417 
3880 3862 
4098 3263 
3848 32362 4098 
3860 3401 
3407 3385 
3885 3409 3419 
3917 3420 
3423 3387 
3920 3415 
39335 3286 3432 
1880 1800 3261 
3653 3633 3634: 
3632 3617 
183932 1801 3262 
4102 3273 3274 
4821 5028 
43929 5072 
4140 §127 
4144 5059 
4153 5060 
4159 5129 
4330 5081 
4163 4391 
4166 5101 
4170 5100 
4822 5105 
4175 5106 
3955 3957 
3954 3957 
39398 3989 
3954 3949 
3948 3369 
3962 3388 
39374 3389 
3983 3981 
3980 3377 
4191 5024 
REFERENCE ABBREVIATIONS Mzemodify, 


ant manager 


EFINED----2-- ero rt eeee REFERENCES 
N LINE 
4195 5030 
4931 5031 
4332 5032 
4202 5038 
4199 5042 
4209 5063 
4212 5063 
4215 5074 
4206 5062 
4219 5114 
4933 5123 
§358 5362/M 
5376 
4823 5025 
4824 5045 
$369 S369 
4311 5270/M 
4289 5270/S 
4794 5309 
4957 4732 
4733 5309 
1331 5191 
4934 5121 
1299 §273/S8 
1299 5276/S 
12939 5279/S 
14893 1535 
1488 1547 
1529 1536 
1531 1548 
1539 1543 
1540 1543 
1498 1538 
1500 1539 
15824 1844 
14933 1537 
1527 1847 
1491 1534 
1313 5274 
4008 3986 
4030 3431 
1547 1338 
1338 4265 
1328 1338 
1848 1339 
1333 3386 
1448 1325 
4059 4043 
4308 4281 


NOS/VE CYBIL/II 


1.0 89102 


$363 
5377/P 


8373 


5358 
$312 


5282/58 


1548 
1548S 


5191/8 


$277 
4024 
4001 
4233 
39337 


4008 


Azattribute, 


3747 


3365 


3411 


3976 
3355 


5364 5364 


5379 


5327/M 


5284/Ss 


5312/S 5327/S 


5280 §283 
4047 
4037 4038 


S=subscript, 


5365/M 


5285 


Tz1/0O ref, 


1989-08-21 


1989-08-21 


S365 


R=read, 


5370 


Wewrite, 


13:33:34 


13:33:34 


5370 


PAGE 


PAGE 


1002 


P=parameter 


1003 


REFERENCE ABBREVIATIONS : Memodify, Azattribute, S:subscript, I21/0 ref, R=read, Wewrite, P=parameter 


REFERENCES OF sym$system_constant_manager NOS/VE CYBIL/II 1.0 89102 
System Constant Management 
search _ value _ table 
IDENTIFIER------ Rphever eS entree e nee DEFINED--- crn ee me ~77---REFERENCES 
ON LINE 
mmt$memory reserve _ request 4088 3379 
mmt$mmu_gpqi_default 42393 4310 
mmt $mmu_ma_data 4307 4311 
mmt$mmu_ma_info 4295 4307 
mmtS$mmu_memory attributes 4288 4291 4292 
mmt$mmu_value_ types 4290 4297 
mmt $page_age 4066 4046 4070 
mmt$page_frame_index 1454 1450 1450 
mmt$page_frame_queue_id 1549 3964 4017 
mmt$page_frame_table_entry 4036 3984 4052 
mmt$page_map_offsets 1301 4823 4923 
mmt$page_map_offsets_ ord 1298 1301 
mmt$page_queue_list_entry 1324 1328 1339 
mmu_boolean 4230 4302 
mmu_ byte 4290 4300 
mmu_ integer 42390 4298 
mmv$advise_in_aio_limit 4935 43980 
mmv$age_interval_ceiling 4936 4981 
mmvSage_interval_floor 4937 4982 
mmvSaggressive_aging_level 4227 4983 
mmv$aggressive_aging_level_2 4228 4984 
mmv$aging algorithm 4235 498s5 
mmv$aio_ limit 4238 4986 
mmv$assign_multiple_ pages 4246 4975 
mmv$check_ queues 4938 5082 
mmv$disable_write_for_perf_meas 4251 5019 
mmv$file allocation_interval 4254 5033 
mmv$gpq1 4265 5191 §312 
mmv$ jws_queue_age_interval 4273 5049 
mmv$manage_memory utility 4281 5270/M 
mmv$max_pages_no_file 4322 5061 
mmv$max_segment_length 4836 5068 
mmv$max imum_180_memory 4830 5055 
mmv$maxws_aio_threshold 4339 5073 
mmv$min_avail_pages 4325 5075 
mmv$mu lt i_page_write 4332 5084 
mmv$no_memory_ buffer ing 4338 5087 
mmv$page_map_offsets 4923 5273 5276 
mmv$per iodic_call_interval 4344 5083 
mmv$read_tu_execute 4347 5094 
mmv$read_tu_read_ write 4346 5085 
mmv$shadow_by segnum 4831 5135 
mmv$shared_ pages_in_jws | 4351 5102 
mmv$shared_queue_age_interval 4358 5103 
mmv$swapping_aic 4940 5104 
mmv$t ick_t ime 4362 5264/M 5270 
mmv$wr ite _aged_out_ pages 4370 5122 
mtvS$aborted_task_threshold 4377 4979 
mtv$automatic_unstep_ resume 4381 43988 
mtv$halt cpu_ring number 4389 5039 
mtv$hailt_on_proc_malf 4374 5041 
*** REFERENCE ABBREVIATIONS Memodify, 


REFERENCES OF : sym$system_constant_manager NOS/VE CYBIL/II 
System Constant Management 
search _ value table 
IDENTIFIER---++ +250 e+e eee ---DEFINED----- Setel Se see eS REFERENCES 
ON LINE 
mtv$mx_ajl_entries 4837 5124 
mtv$mx_segments 4838 S056 
mtv$mx_tasks 4839 5071 
mtv$processor_ due threshold 4332 5082 
mtv$scb_ vector _sim_attribute 4840 5118 
mtv$sys_core_init_complete 4395 5303 
mtvS$system_haltring 4388 5110 
mtv$xp_initial_ value 4400 5272/M 
name 47932 5194 
name 5182 5192 
name 5291 5300/P 
name $351 5362 
nav$disable_network_ relays 4863 §133 
normal 1627 5176/M 
offset 1424 5$272/M 
oscS$aging_interval_maximum 4126 4129 
osc$call_instruction 4582 4590 
osc$data_read 4581 4590 
osc$free_ running clock_maximum 1435 1432 
osc$invalid_ ring 1370 1410 
oscS$max_name_size 1254 1258 
osc$max page_frames 1458 1326 
osc$max_page_size 2265 2261 
osc$max_page_table_entries 1459 1462 
osc$max_processor_model_index 4607 4622 
osc$max_ ring 1369 1410 
osc$max_segment_length 1393 1416 
osc$max_ status _condition_code 1642 1638 
osc$max_ string size 1658 1661 
osc$max_ tasks 1565 1562 
osc$maximum_offset 1392 1393 
osc$maximum_segment 1391 1412 
osc$min_page_size 2264 2261 
osc$min_ring 1368 1411 
osc$status_parameter_delimiter 1646 §333/P 
osc$task_time_slice_maximum 3664 3667 
osp$append status parameter 1695 5333 
osp$set_status_abnormal 1703 5304 
ost$aging_ interval 41293 3275 
ostS$asid 1356 1352 
ost$binary_ unique name 2173 2163 
ost$cp_t ime 3771 3739 
ost$cp_time_vatlue 3769 3270 
ost$date_t ime 2966 2676 
30293 
ost$debug code 4581 4569 
ost$debug_ list 4577 4460 
est$debug_ list_entry 4568 4577 
ost$debug mask 4587 4459 


*e* 


REFERENCE ABBREVIATIONS 


1.0 88102 


5275/M 


5370 
5194/M 
§$332/P 


5215 


5275/M 


1261 
1332 


1411 


1654 
1664 
5071 
1413 


5310 
3276 
3370 
2423 
3784 
3271 
2716 
3030 


4307 


4070 


3963 


4041 


5327/M 


5279 


Azattribute, 


5278/M 
5370 
5195 
§338/P 
§233 


5278/M 


2391 
1454 


1669 


1413 


5332 


3988 
2947 


3412 
2726 
3031 


Memodify, Azattribute, 


1389-08-21 13:33:34 PAGE 1004 


3965 3966 3967 4090 4091 


$282 5284 


S=subscript, 


5281 


z=I1/O ref, Reread, Wewrite, Psparameter 


1989-08-21 13:33:34 PAGE 1005 


5214/P 5232/P 5237/P 


5343/P 

5246/M $301 $339 

23931 

3426 3427 3936 39338 4010 
1697 1706 

1414 

5377 

3998 &O00 4015 

3772 3773 

2805 2808 2810 2997 3004 


S=subscript, 


I=1/O0 ref, Reread, Wewrite, P=parameter 


REFERENCES OF 


System Constant Management 
search value table 


IDENTIFIER---+----- eee eee eee D 
G 

ost$exchange_package 

ost$fami ly_name 

ost$flags 

ost$frame_descriptor 

ost$free running clock 


ost$global_task_id 
ost$halfword 

ost$heap 
ost$key_ lock value 
est$keypoint class 
ost$keypoint mask 
ost$minimum_save_area 
ost$monitor_condition 
ost$monitor_conditions 
ost $name 


ost$p_register 

.ost$page_id 

ost$page_ size 

ost$page_ table_entry 
ost$page_table_ index 
ost$paging statistics 
ost$processor model definition 
ost$processoer_ modei_ index 
.ost$processor_model_number 
ost$processor_serial_number 
ost$pva 

ost$register_number 
ost$ring 

ost$segment 
ost$segment_offset 
ost$signature_ lock 
ost$stack_frame_save_area 
ost$status 


— 
— 
— 


ost$status_condit ion_code 
ost$status_ identifier 
eost$string 

est$string size 
ost$system_virtual_address 
ost$task_index 
ost$task_time_slice 
ost$top_of stack _pointer 
ost$trap_enable 

ost$user_ condition 
ost$user_conditions 
ost$user_identification 
est$user_ name 
ost$valid_ring 
ost$virtual_machine_identifier 


* ex 


REFERENCES OF 


System Constant Management 
search _ value _ table 


IDENTIFIER<--- eee et ee tte ete ene D 
fe) 

ost$x_register 

osv$catalog name_security 

osv$debug 


osv$default_pit 
osv$default_sit_value 
osv$delete_unreconciled files 
osv$disk_fault_simulation 
osv$dump_when_debug 
esv$emergency_ intervention 
osv$enable_ hyperchannel 
osv$globail_processor model_info 
osv$keypoint enable 
osv$page_size 

osv$reconcile _permanent_files 
osv$recover_at_all_costs 
osv$reorganize_permanent_files 
osv$special_aam_trap 
osv$trap_task_errors 
osv$validate_ active sets 
osv$validate_ permanent_fites 


p 
“pfc$account 

pfcS$attached pf_awaiting client 
pfc$attached_pf_entry_ unused 
pfc$attached pf_entry valid 
pfc$attached pf_in_job_recovery 
pfc$attached pf_normal 
pfc$catalog object 

‘pfc$charge change 
pfc$connected file device 
pfc$cycle_expansion_count 
pfc$cycle_number_change 
pfc$delete_damage_change 
pfc$execute 

pfcS$external_ catalog 
pfc$fami ly 

pfcSfamily name_index 
pfc$family path_index 
 /pFfcS$Ffile_ object 

pfc$free cycle entry 

pfc$free_ log_entry 

pfcS$free_ mainframe_entry 
\pfc$free object 

pfc$free permit_entry 
pfc$S$highest cycle 
ipfc$internal_catailog 
pfcS$interstate_link_device 
pfc$local_queue_ device 
pfc$ log _ change 


exx 


sym$system_constant_manager 


EFINED 
N LINE 
44093 
1948 
4466 
4545 
1432 


1556 
1438 
1919 
1405 
4498 
4500 
4ss5 
4504 
4511 
1261 


4481 
1464 
2261 
1469 
1462 
3807 
4610 
4622 
2191 
2269 
1421 
4477 
1410 
1412 
1413 
2090 
4529 
°1626 


1654 
1712 
1667 
1661 
1351 
1562 
3667 
4469 
4824 
4514 
4821 
1941 
1946 
1411 
4491 


REFERENCE ABBREVIATIONS 


sym$system_constant_manager 


EFINED 
N LINE 
4478 
4841 
4941 


4842 
4942 
4843 
4943 
4344 
4345 
4846 
4603 
4945 
4837 
4847 
4848 
4849 
4695 
4946 
4850 
4851 


5256 
2344 
2415 
1972 
1973 
2415 
2414 
2584 
2316 
3087 


REFERENCE ABBREVIATIONS 


NOS/VE CYBIL/TII 


NOS/VE CYBIL/II 


REFERENCES 


4451 
4989 
4997 
500s 
S015 
5016 
$017 
$131 
5022 
S132 
5027 
5263 
5050 
5273 
SO96 
5097 
5098 
5144 
5145 
$117 
5116 


5281/M 
2354 
1993 
1967 
1965 
19399 
1993 
2576 
2330 
2747 
2690 
2324 
2332 
2396 
2598 
2350 
2283 


M=modify, 


1.90 89102 


REFERENCES 
4400 
1820 1943 
4416 
4560 
32693 3278 
3429 3430 
3265 3375 
4144 4153 
1760 1836 
1402 4483 
4429 4500 
4432 
4421 4530 
4511 
4422 4426 
1215 1231 
2289 2422 
4410 4556 
1474 
2242 4s37 
1478 3985 
1478 4044 
3785 
4603 4625 
4624 
2175 3102 
2174 3103 
4454 4472 
4451 4541 
1422 4471 
1423 1773 
1353 1424 
1774 1830 
4563 
1621 1676 
5185 5189 
1629 1650 
1704 
1630 
1668 
4049 
1557 4077 
3653 
4461 
4418 
4521 
4420 4424 
2675 3264 
1821 1942 
4461 
4412 4414 
M=modify, 


1.0 89102 


4541 


4s98 
SOOG6 


5264 


5276 


5148 


5282/M 


23398 


2632 


1989-0 
2352 2356 2361 2367 
3381 3382 3383 3384 
3604 3616 4014 
3404 
2531 
4485 
4535 
1767 1854 1858 1892 
2431 29385 2390 
4611 
4486 
4549 as50 4551 
4449 4571 
4572 4574 
1683 1690 1698 1707 
$244 §253 §294 5298 
1705 3009 
4078 
4533 4562 
2368 2374 2381 
4557 


Azattribute, S=subscript, I-=I1/0 ref, 


1989-0 
4999 5000 5001 5002 
5007 5008 50093 5010 


5279 §282 5284 


5284/M 


Aztattribute, S:tsubscript, I=FI/0 ref, 


8-21 13:33:34 PAGE 1006 
2372 2378 
3418 3428 
1946 1948 
1717 5174 
5353 
Rzsread, We-write, Ptparameter 
8-21 13:33:34 PAGE 1007 
5003 5004 
5011 5012 
R=read* Wewrite, P2:parameter 


REFERENCES OF sym$system_constant_manager 


System Constant Management 
search value table 


IDENTIFIER--- ce cee ee ee eee ee eee 


pfc$ilog device 

pfc$ log expansion_count 
pfc$ lowest cycle 
pfcS$magnetic_tape_device 
pfc$mass_storage device 
pfc$master_catalog name_index 
pfc$master_ catalog path_index 
pfc$max_ amd_size 
pfc$maximum_archive_count 
pfc$maximum_ catalog depth 
pfc$maximum_cycie count 
pfc$maximum_cycle_number 
pfcS$maximum_file_label_size 
pfc$maximum_fmd_size 
pfc$maximum_log_ count 
pfcS$maximum_object_count 
pfc$maximum_permit_count 
pfcS$maximum_retention 
pfcS$member . 
pfcS$memory_ resident device 
pfcS$minimum_cycle_ number 
pfcS$minimum_retention 
pfc$network_device 
pfc$normal_cycle_entry 
pfcS$normal_log entry 
pfc$normal_mainframe_entry 
pfc$normal_permit_entry 
pfc$null_ device 
pfc$password change 
pfc$permit _expansion_count 
pfc$pf_name_change 
pfc$pipeline_device 
pfc$project 

pfc$public 

pfc$purged catalog object 
pfc$purged cycle_entry 
pfc$purged file object 
pfc$read 

pfc$retent ion_change 
pfc$rhfam_device 
pfc$set_path_index 
pfc$specific cycle 
pfc$terminal_ device 
pfc$user 

pfcS$user_ account 
pftSaccess_ count 

pftSamd 

pftSamd_locator 

pft$S$amd_ size 
pftS$application_info 
pftSarchive_count 


KE 


REFERENCES OF sym$system_constant_manager 


System Constant Management 
search value table 


IDENTIFIER---------------- ---- 


pftSarchive_entry 
pftS$archive_entry_ version 
pftS$archive_identification 
pftSarchive_ list 
pft$archive_list_locator 
pftS$archive_media_identifier 
pft$attach_status 
pftSattached _pf_entry 
pftSattached pf_entry type 
pftSattached pf header 
pft$S$attached _pf_recovery state 
pftSattached_ pf_table 
pft$cataiog file 
pftS$catalog header 
pft$cataiog heap 
pft$catalog object _locator 
pft$catalog types 
pft$change descriptor 
pft$change type 
pft$charge_id 

pft$checksum 


pft$compiete_ path 
pft$S$cycle count 
pft$cycle device information 
pft$cycle entry 
pftS$cycie_entry types 
pft$cycle_list 
pft$cycle_list_ locator 
pft$cycle_number 
pft$cycle_ options 
pft$cycle_ statistics 
pft$data_residence 
pft$device class 
pft$file label_locator 
pft$file_ label_size 
pft$fmd 

pftS$fmd_locator 
pftS$fmd_size 

pft$group 
pftS$group_types 
pftSinternal_ catalog name 
pftS$internal_cycile_path 
pft$internal_name 
pftSinternal_path 
Pft$Slog 

pft$log count 

pft$log entry 

pftS$log entry types 
pft$log list 

pft$S$log Tist_locator 


ee 


DEFINED-----+ + cee eee% -REFERENCES 
ON LINE 
30390 2753 
2649 2650 
2235 2299 
3091 2755 
3032 2757 
2283 2284 
2137 2138 
2821 2824 
2784 2788 
2140 2143 
3051 2694 
2277 22393 
2867 2870 
2843 2846 
2651 2655 
2539 2544 
2609 2615 
2280 2310 
2345 2376 
3093 2761 
2276 2293 
2279 2310 
3094 2763 
2732 2713 
2682 2674 
2906 2898 
2642 2484 
3095 2765 
2314 2322 
2610 2611 
2314 2320 
3096 2767 
2345 2359 
2344 2348 
2585 2576 
2733 2713 
2584 2570 
2393 2396 
2315 2326 
3097 2769 
2135 2136 
2296 2303 
3098 2771 
2345 2365 
2345 2370 
3034 2677 
3013 2830 
2833 2812 
2824 2834 
2391 2488 
2788 2799 


REFERENCE ABBREVIATIONS 


DEFINED---+c-- err ee re eee REFERENCES 
ON LINE 

2803 2795 
2978 2804 
2984 2806 
2787 27390 
2798 2722 
2989 2986 
2735 2717 
1977 1975 
1972 1964 
1963 1961 
2414 1992 
1961 1960 
2510 2515 
2524 2519 
2531 2512 
2594 2577 
3039 2595 
2318 2317 
2314 2319 
3019 2565 
3044 2518 

2875 
2146 2147 
3054 2704 
2741 2727 
2708 2700 
2732 2710 
2693 2695 
2703 2574 
2233 19387 
2295 2298 
3028 2715 
3077 2723 
3083 2746 
2879 2721 
2870 2880 
2848 2849 
2857 25939 
2846 2858 
2346 2635 
2344 2347 
2164 2165 
2152 1988 
2163 2149 
2149 2150 
2312 2329 
2656 2666 
2670 2662 
2682 2671 
2654 2657 
2665 2573 


REFERENCE ABBREVIATIONS 


‘“NOS/VE CYBIL/II 


1.0 88102 


2789 
2144 
3054 


2656 
2545 
2616 


2634 


2399 


3032 
3015 


2638 


: Memodify, Azattribute, 


NOS/VE CYBIL/II 


1.0 89102 


2923 


2532 


2550 2621 
2890 3047 


2304 2325 


2854 
2719 


2485 
2463 2464 
2187 
2153 2164 
2154 
2572 


Memodify, Azattribute, 


1889-08-21 


Sz:subscript, I=1/0 ref, 
1989-90 
2661 26939 2794 
2678 2714 
3111 3112 
2563 2709 
S=subscript, I+1/0 ref, 


Rtread, Wewrite, 


8-21 13:33:34 


13:33:34 


PAGE 1008 


Pzparameter 


PAGE 1009 


2829 2853 


Reread, Wewrite, 


P= parameter 


REFERENCES OF sym$system_constant_manager NOS/VE CYBIL/I1I 1.6 89102 1989-08-21 13:33:34 PAGE 1010 


System Constant Management 
search_value table 


IDENTIFIER~---- oS SSS a ae eed DEFINED~----+ rr eer reer REFERENCES 
ON LINE 

pftS$mainframe_count 2913 2909 
pftS$mainframe_entry type 2905 2895 
pft$mainframe_list_ locator 2908 2725 
pftSmainframe_usage_entry 2894 2724 2891 
pftSname 2289 2146 2291 2308 2321 2462 2526 2562 3110 
pft$object_count 2545 2555 2557 2558 
pft$object_entry 2561 2551 
pft$object_ list 2543 2546 
pftSobject_ list _locator 2554 2527 2597 
pft$object types 2583 2567 2587 
pft$p_attached pf_entry 1975 1966 
pft$p_attached_pf_table 1860 1833 
pft$p_compilete_ path 2147 1986 
Pft$p_ queued catalog 2492 1832 2457 2458 
pftSp_queued catalog table 2494 1831 
pft$p_queved_ internal catalog 3107 2468 3116 
pftSpassword 2308 2323 2571 
pft$path 2291 2159 
pftS$permit count 2616 2626 
pft$permit_ entry 2630 2622 3115 
pft$S$permit_entry types 2642 2481 2631 
pftSpermit_list 2614 2617 
pftS$permit_list_ locator 2625 2564 
pftSpermit options 2333 2340 
pftSpermit selections 2340 2486 2636 
pft$physical_amd 2828 2826 
pftS$physical_archive 2733 2787 2791 
pftS$physical_ catalog header 2517 2511 2522 
pftSphysical_cycle 2698 2693 2696 
pft$physical_file_label 2874 2872 
pftSphysical_fmd 2852 2850 
pft$physical_log 2660 2654 2658 
pftS$physical_mainframe_usage 2889 2916 
pft$physical_object 2549 2543 2547 
pftS$physical_permit 2620 2614 2618 
pftS$queued catalog 2456 2492 2494 
pftS$queued internal catalog 3109 3107 
pftSqueued permit_entry 2480 2470 
pft$relative_cell_ pointer 2923 2556 2627 2667 2705 2800 2835 2859 2881 

2910 
pftSrelease_ candidate 2994 2811 
pft$retention 2310 2327 
pftS$retrievail_status 3003 2809 
pftS$sequence 2925 2327 2930 
pftSsequence_record 2923 2933 
pft$sfid_status 1991 1978 
pft$share_options 2399 2341 2400 2738 
pftS$share requirements 2341 2487 2637 
pftSshare_ selections 2400 1982 
pftS$usage count 2777 2736 2737 2738 2900 2901 
pft$usage_ options 2396 2337 2737 

xe REFERENCE ABBREVIATIONS : Mtmodify, Azattribute, S:subscript, z=I/O ref, Rtread, Wewrite, P=parameter 

REFERENCES OF sym$system_constant_manager NOS/VE CYBIL/II 1.060 89102 1989-08-21 13:33:34 PAGE 1011 


System Constant Management 
search value table 


IBENTIFIER------ 21S Sete oie. Sy Shee ee: DEFINED----- cere reece ee REFERENCES 
ON LINE 

pftS$usage_ selections 2397 1981 
pfvSbinary catalog search 4854 5155 
pmc$mainframe_id_ size 3143 3140 
pmc$processor_model_number_size 3151 3143 3148 
pmc$processor model _type_size 4632 4629 
pmc$processor serial _num_size 3201 3144 3198 
pmt$binary mainframe_id 3101 1768 2899 3268 
pmt$cpu_model_number 2251 2240 2247 
pmt$cpu_serial_number 2254 2241 2246 
pmt$mainframe_id 3140 1769 
pmt$processor_model_number 3148 4612 
pmt$processor_model type 4629 4613 4614 
pmt$sense_switches 4135 3279 
pmt$vector_ capability 4686 4618S 
pmv$constrain_meape_segments 4856 5137 
pmv$debug_ logging _enabled 4855 5136 
pmv$quantum 4698 5263/M 
pva 4472 5272/M 5275/M 5278/M 
quantum 4615 5263 
rav$deadstart intervention 4857 4996 
rav$development_deadstart 4858 5018 
rav$network activation 4as9g 5085 
rav$system_activation 4860 5138 
search value table 5350 5214 5300 5382 
sft$counter 3817 3280 3282 3283 3285 3786 3787 
sfv$dynamic_file_ space_limits 4947 5023 
status 5174 5176/M 
status 5185 5214/P 5215 
status 5244 5246/M 
status $294 5300/P 5301 5305/P 5310/P 5332/P 5333/P 
status $353 5377/P 
stt$set_name 2422 2461 
syc$min_ecc 1570 1571 1572 1573 1574 1575 
syc$min_ecc_ commands 1572 1580 1883 1586 1589. 1532 1595 1598 1601 

1604 1607 1610 
sye$not_changeablie_after_ds 1607 5304/P 
sye$range_error 1592 5310/P 
syeSunknown_parameter_ name 1601 §377/P 
Syp$fetch system_const_from_ssr 5173 5177 
syp$fetch_ system_constant 5181 5239 
syp$save_system_const_in_ssr 5243 5247 
syp$set_proecessor_attributes 5251 5286 
syp$store_ system_constant 5290 5346 
Ssyt$debug output _ disposition 4728 4721 
Syt$dfit_debug output disposal 4716 4711 
Syv$allow_jr_test 4948 4987 
syv$clone_ enabled 4867 49933 
syv$debug_job_recovery 4849 5013 


exe REFERENCE ABBREVIATIONS : Memodify, Atattribute, Stsubscript, I21I1/0 ref, Reread, Wewrite, P=sparameter 


REFERENCES OF sym$system_constant_ manager 


System Constant Management 
search value table 


IDENTIFIER------ee-2+---ee- wae 


syv$debugger_page_wait_lines 


Syv$dfilt_debug output disposal 


Ssyv$enable_ fault_injection 
syv$enable_heap_trace 
syv$halt_on_exit_with_io 

SyV$ job_recovery_option 
syv$mandatory_ duatstate 
Syv$max_debug_output_lines 
syv$nosve_internal_operations 


Syv$system_job_mult iprocessing 


syv$user_templates 
syv$verify heap_linkage 


tab op 
tab_p 


tab_p 

table_i 

temp status 

temp_status 

temp workaround min_sws 
tick_time 

tmt$task queue_ link 
tmv$cycle_delay_time 
tmv$dedicate_a_cpu_to_nos 
tmv$display_actual_ priority 
tmv$hailt_on_hung task 

tmv$ long _wait_force swap time 
tmv$ long wait _swap_time 
tmv$system_debug_ ring 
tmv$system_debug_ segment 
tmv$system_error_hang count 
tmv$t imed_ wait _not_queued 
tos_registers 


v_boolean 


v_byte 
v_halfword 


* KX 


REFERENCES OF sym$system_constant_manager 


System Constant Management 
search value_table 


IDENTIFIER-------------------- 


v_integer 


value 


value 
value _ table 


vaiue_ table length 


value table type 
value_type 


EE 


NOS/VE CYBIL/II 1.0 89162 
DEFINED----->- Pies eee a cs - “REFERENCES 
ON LINE 

4707 5151 

4711 5153 

4737 5025 

4701 S026 

4861 5156 

4733 5048 

4754 5054 

4758 5130 

4862 5086 

4950 $111 

8864 5139 

4762 5119 

5188 5214/P 5216 

5297 5300/P §303 
5322/M 5324/M 

5352 5381/M 

5359 S361/M 5370/S 

5189 §$232/P 5233 

52398 5338/P 5339 

4370 5077 5191/M 

4616 5264 

4076 4o4as 

4766 4995 

A770 5014 

4865 5146 

a774 5040 

4951 S053 

4952 5052 

4775 510607 

4776 5108 

4777 5109 

4784 5147 

4461 5$272/™M 5275/™M 

47395 4802 4977 
4396 5013 
$023 5024 
§031 5032 
5041 $042 
$084 5085 
SoO96 50397 
5113 5115 
5125 §131 
$138 5139 
5154 5155 
$162 5163 
§320 

4795 4800 43976 
5201 §221 

4735 4798 5056 


REFERENCE ABBREVIATIONS 


NOS/VE CYBIL/II 


Memodify, Atattr 


DEFINED---- eer eer eee REFERENCES 
ON LINE 
5105 
4735 4796 
4990 
5003 
5011 
5049 
5062 
5075 
5103 
5142 
5184 5198/M 
§232/P 
$293 5309 
4974 5194 
§381 
4958 4974 
47390 4a9o74 
4795 S196 


REFERENCE ABBREVIATIONS 


M=modify, 


1.0 839102 


5109 
4375 
4395 
5004 
5012 
5050 
5063 
5081 
5104 
5147 
5200/M 
5237/P 
§309 
5196 


5193 
5188 
5216 


§218 
5309 


5370/S 
5237/P 
5343/P 
5312/M 


5278/M 


4978 
5014 
5025 
5034 
5043 
5086 
5038 
5116 
5132 
5144 
S156 
5164 


4981 
5318 
5059 


ibute, 


5124 
4g79 
4997 
5005 
5015 
5052 
5068 
§082 
5107 
5150 
5202/M 


5315 
5198 


5207 
5237 
§313 


Arattribute, 


5220 
53098 


5371/M 


$327 


43987 
$017 
S026 
5035 
5044 
5087 
50998 
$117 
5133 
5145 
5157 
5165 


4382 


5060 


S=subpscript 


§126 
4380 
4998 
SOO6 
5016 
5053 
5069 
5083 
5108 
5151 
5204/M 


$317 
5200 


S372 
5382 


S=ssubscript, 


1989-0 
$222 5224 
§313 §315 
$371 §372 
43988 4389s 
5018 5019 
5027 5028 
5036 5037 
S046 5047 
5088 5090 
$102 5106 
5118 5120 
5134 5135 
5146 $148 
5158 5159 
5166 5167 
50393 5110 
5071 S076 
; TtI/0O ref, 

1889-0 
5128 5139 
4983 43984 
4399 5000 
5007 5008 
$020 $033 
5055 S057 
5070 5072 
5089 5092 
5114 5122 
5197 5217 
5218/M 5220 
$313 5321 
$202 5204 


IzI/O ref, 


8-21 13:33:34 PAGE 1012 

/M 5317/M 5319/M 
5381/S 
4933 4g94 
5021 5022 
50293 5030 
5038 5040 
5051 50s4 
5091 5033 
5111 5112 
5121 $123 
5136 5137 
5149 5152 
5160 5161 
5203 5223 
5118 $153 
5094 50s5 


Reread, Wewrite, Psparameter 


8-21 13:33:34 PAGE 1013 
§219 5316 
4985 4986 
5001 5002 
5008 5010 
5045 5048 
5058 5061 
5073 5074 
5100 5101 
5130 5140 
5314 

/M §222/M 5224/M 
5338/P 5343/P 
5370 5370 


Reread, W-write, P=parameter 


SOURCE LIST OF tmm$dispatcher NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 
NOS/VE Task Management dispatcher 
3 MODULE tmm$dispatcher ; 
4 
5 
6 { 
7 PURPOSE: 
& { This module is used for managing the creation and deletion of tasks, 
9 { the creation and deletion of jobs, the status of tasks, and the 
10 { selection of tasks to execute. 
11 { 
12 
13 2 VAR 
14 debug: boolean := FALSE?; 
ce] 5233 
© 5234 PROCEDURE [INLINE] gfp$mtr_get_fde_p (sfid: gft$system_file_identifier ; 
© $235 ijle_p: Ajmt$initiated_job_list_entry; 
Oo 5236 VAR fde_p: gft$file_desc_entry_p); 
ce) $237 
ce) 5238 
fe) 5285 
Oo 5286 PROCEDURE [INLINE] gfp$mtr_get_locked_ fde_p (sfid: gft$system_file_identifier; 
oO 5287 ijle_p: Ajmt$initiated_ job_list_entry; 
oO 5288 VAR fde_p: gftS$locked file _desc_entry_p); 
ce) 5289 
ce) 5290 
ce) $351 
© 5352 { PURPOSE: 
ce) 5353 { This is the monitor mode procedure to change the entry status of a job. The caller 
ce) 5354 { of precedure must set the PTL lock if the entry status change is a SWAPPED/NOT SWAPPED 
° 5355 { transition because the Swapped job counts will be changed. 
fe) 5356 
o 5357 PROCEDURE [INLINE] jmp$change_ijl_entry_status 
Oo 5358 ( ijle_p: Ajmt$initiated job_list_entry; 
© 5359 new_entry_status: jmt$ijl_entry_status) ; 
fe) S360 
° 5361 VAR 
© 5362 old_entry_status: jmt$ijl_entry_ status; 
© 5363 
Oo 5364 old _entry status :: ijle_p%.entry_ status; 
° 5365 
© S366 jmv$ijl_entry status statistics [old_entry_ status] [mew_entry_ status] :+ 
Oo 5367 jmv$ijl_entry_status_statistics [old_entry status] [new_entry status] + 1; 
ce) 5368 
o 5369 ijle_pA.entry status := new_entry status; 
° 5370 
o 5371 IF ({old_entry status <= jmc$ies swapin_in_progress) AND 
Oo 5372 (new_entry_ status >» jmc$ies_swapin_in_progress) THEN 
© 5373 jmp$increment_swapped_job_count (ijle_p); 
° 5374 
o 5375 ELSEIF (old_entry status >» jmc$ies_Swapin_in_progress) AND 
Oo 5376 (new_entry_status <= jmc$ies_ sSwapin_in_progress) THEN 
© 5377 jmp$decrement_swapped_job_ count [(ijle_p) ; 
° 5378 IFEND; 
© 5379 
LIST OF tmm$dispatcher NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 


SOURCE 


NOS/VE 


Task Management 


© 
°o 
° 


oo0o00 60000 eooco0o°o ooo 


oo0oo 


oo0o0o0g0 6 


5380 
5381 
5382 
5385 
5386 
5387 
5395 
5396 
5337 
5400 
5401 
5402 
5405 
5406 
5407 
5408 
5403 
5412 
5413 
5414 
5441 
5442 
5443 
5444 
5445 
5448 
54493 
5450 
5451 
5454 
5455 
5456 
5457 
5460 
5461 
5462 
5463 
5464 
5465 
5466 
5473 
5474 
5475 
5476 
5479 
5480 
5481 
5482 
5483 
5486 
5487 
5488 
5489 
5490 
5491 
5492 


dispatcher 


PROCEND jmp$change_ijl_entry_status; 
PROCEDURE [XREF] jmp$decrement_swapped_job_count(ijie_p: 


PROCEDURE 
VAR 


[inline] 
ijle_p: 


jmp$get_ijle_p (ijl_oerdinatl: 
Ajmt$initiated job_list_entry); 


PROCEDURE [XREF ] jmp$increment_swapped_job_count 


PROCEDURE [XREF] 
ijle_p: 


imp$ready_task_in_swapped_job 
Ajmt$initiated job_list_entry) ; 


(ijl_ord: 


PROCEDURE [XREF] jmp$set_job_terminated 
( ijl_ordinal: jmt$ijl_ordinal; 
ijle_p: Ajmt$initiated job_list_entry) ; 


PROCEDURE [XREF] jmp$set_scheduler_event (event: 


PROCEDURE [XREF] jmp$set_swapout candidate 
( ajl_ordinal: jmt$ajl_ordinal; 
Swapout_ reason: jmt$swapout reasons) ; 


PROCEDURE [XREF] 


jmp$subsystem_priority_ change 
( ijle_p: 


Ajmt$initiated job _list_entry) ; 


PROCEDURE [XREF] jmp$swap_non_dispatchable_job 
( ajl_ordinal: jmt$ajl_ordinal); 


PROCEDURE [XREF] jmp$assign_aji_entry (asid: 
ijl_o: jmt$ijl_ordinat; 
caller: oO 010(16); 
must_assign: boolean; 
VAR aji_o: jmt$ajl_ordinal; 
VAR status: syt$monitor_status) ; 


ost$asid, 


PROCEDURE [XREF] jmp$free_ajl_entry 
( ijle_p: Ajmt$initiated_job_list_entry; 
caller: oO 10(16)); 


PROCEDURE [XREF] imp$free_ajl_with_lock 
( ijle_p: Ajmt$initiated_job_list_entry; 
caller: 0 10(16)); 


PROCEDURE [INLINE] 


jmp$unlock_ajl_with_lock 
( ijle_p: 


Ajmt$initiated_job_list_ entry); 


VAR 


ajlo: jmt$aji_ordinal; 


(ijle_p: 


AjmtSinitiated_job_list_entry); 


imt$ijl_ordinal; 


Ajmt$initiated job_list_entry) ; 


jmt$ijil_ordinatl; 


jmt$ job_scheduler_events) ; 


PAGE 


PAGE 


16014 


1015 
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NOS/VE Task Management : dispatcher 


Oo 5493 ajlo := ijle_pA.ajl_ordinal; 
oO 5494 IF (jmv$aji_p* [ajlo].in_use = jmc$lock_aji}) THEN 
oO 5495 imp$free_aji_with_lock (ijle_p, jmc$lock_aj1); 
© 5496 ELSE 
o 5497 imv$aji_pA [ajlo].in_use :* jmv$ajl_pA [ajlo].in_use - jmc$lock_ajl; 
Oo 5498 IFEND ; 
° 5499 
o 5500 PROCEND jmp$unlock_ajl_with_lock; 
° 5501 
5505 
5506 PROCEDURE [XREF] jmp$update_service_class_ stats 
5507 ( ijle_p: Ajmt$initiated_job_list_entry); 
5508 
5511 PROCEDURE [XREF] jsp$idle_tasks_complete (ijl_ordinal: jmt$ijl_ordinal); 
° 5512 
5515 
5516 PROCEDURE [XREF] jsp$long wait_aging (ijle_p: Ajmt$initiated_job_list_entry) ; 
5517 
ce) 5520 
© 5521 PROCEDURE [XREF] jsp$relink_swap_queue (ijl_ordinal: jmt$ijl_ordinal; 
oO 5522 ijle_p: AjmtS$initiated_job_list_entry; 
© 5523 new _ queue: jst$ijl_swap_queue_id); 
ce 5524 
8527 
5528 PROCEDURE [XREF] mtp$interrupt_ processor (port _mask: ost$cpu_memory_port_mask) ; 
5529 
° 5832 {REFERENCED BY ASSEMBLY CODE ALSO 
° 5533 
° 5534 VAR 
Oo 65535 mtv$mli_status: [XREF] record 
Oo 5536 ready: boolean, 
° 5537 wait inhibit: boolean, 
ce) 5538 recend; 
° 5539 
o 5540 PROCEDURE [XREF] mmp$create_task (parent_xcb_p: Aost$execut ion_control block; 
Oo 5541 xcb_p: Aost$execut ion_control_block; 
oO 5542 ijle_p: AjmtS$initiated_job_list_entry) ; 
° §543 
5546 
5547 PROCEDURE [XREF] mmp$exit task (xcb_p: Aost$execution_control_biock) ; 
5548 
° 5551 
o 5552 PROCEDURE [XREF] mmp$create job (new _job_ajl_ordinal: jmt$ajl_ordinal; 
o 5553 xcb_ segnum_relative_jobs_as: ost$segment ; 
oO 8655554 parent _xcb_ p: Aost$execution_ control block; 
o 65555 xcb_p: Aost$execution_control block); 
° S556 
5560 
5561 PROCEDURE [XREF] mmp$exit_job (xcb_p: Aost$execut ion_control_ block); 
5562 
° 5565 
© 5566 FUNCTION [INLINE] mmp$get_sdtx_entry_p 
oO 5567 ( xcb_p: Aost$execution_control_block; 
o 5568 segnum: ost$segment): Ammt$segment_descriptor_extended; 
° 5569 
oO 5570 mmp$get_sdtx entry p := #address (1, #Ssegment (xcb_p), 
@ 
SOURCE LIST GF tmm$dispatcher NOS/VE CYBIL/II 1.0 89102 1989-08-21 - 13:33:34 PAGE 1017 


NOS/VE Task Management : dispatcher 


co 5571 #SIZE (mmt$segment_descriptor_extended) * segnum + xcb_pA.sdtx_offset); 
fe 5572 
°o 5573 FUNCEND; 
° 5574 
5577 
5578 ; 
5579 PROCEDURE [INLINE] i#disable_traps (VAR old_te: © .. 3); 
° 5598 
o 5599 PROCEDURE [INLINE] i#move (source: Acel11; 
° 5600 dest: Acell; 
o 5601 length: O .. VTFFFFFFFE(16)); 
° 5602 
}o 5603 VAR 
o 5604 stri: Astring (65535), 
© 5605 str2: Astring (65535); 
° S606 
° 5608 IF length <> © THEN 
o 5608 stri = source; 
fe) 5610 str2 = dest; 
o 5611 str24 (1, length) := striA (1, length); , 
i?) 5612 #SPOIL (str24); 
° 5613 IFEND; 
oO 5615 PROCEND i#move; 
° 5616 
Oo 5617 PROCEDURE [INLINE] i#restore_ traps (old_te: 0 .. 3); 
5633 PROCEDURE [INLINE] mtp$cst_p (VAR cst_p: Aost$cpu_state_tabie); 
°] 5644 
Oo 5645 PROCEDURE [INLINE] mtp$set_status_ abnormal (identifier: string (2); 
oO 5646 condition: osc$max_status_ condition _number + 1 .. OF FFFFFFFFE(16) ; 
oO 8647 VAR status: syt$monitor_ status); 
° 5648 
5658 
S659 PROCEDURE [XREF] osp$update_job_keypoint_mask 
5660 ( ijle_p: Ajmt$initiated_job_list_entry; 
5661 ijl_ordinal: jmt$iji_ordinal); 
S662 
S663 { 
s664 { NOTE: Callers of this procedure require that ‘tmv$pti1_lock’ 
5665 { be XREFed or XDCLed in the module. 
s666 f{ 
5667 
5668 PROCEDURE [INLINE] tmp$check_pt1_lock 
5669 (VAR ptil_lock_ set: boolean); 
5670 
S671 ptl_lock set := tmv$pti_lock. locked; 
S672 
S673 PROCEND tmp$check_pt1_ lock; 
5674 
5675 
5676 PROCEDURE [INLINE] tmp$get_xcb_access status 
5677 { ijle_p: Ajmt$initiated_job_list_entry; 
5678 ijl_ordinal: jmt$ijl_ordinal; 
$678 VAR inhibit access: boolean) ; 
5680 
Oo 5742 
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Oo 5744 PROCEDURE [XREF] tmp$set_system_flag (task_id {input} : ost$global_task_id; 
Oo 5745 fiag_id {input} : ost$system_flag; 
oO 5746 VAR status foutput} : syt$monitor_status); 
Oo 5747 
5750 
5751 PROCEDURE [XREF] tmp$set_monitor_flag (task_id: ost$global_task_id; 
5752 flag_id: syt$monitor_ flag; 
5753 VAR status: syt$monitor_status) ; 
0 5756 
o 5757 PROCEDURE [XREF] tmp$send_ signal (taskid: ost$global_task_id; 
o 5758 Signal: pmt$signal; 
o 868759 VAR status: syt$monitor_status) ; 
ce) 5760 
5763 
5764 PROCEDURE [XREF] tmp$Supdate_system_task_list (xcb_p: Aost$execution_control_biock); 
5765 
5767 {Define giobal and external variables. 
5768 {Define SMU Communications Block (SCB). 
5769 
5770 VAR 
5771 mtv$scb: [XREF ] mtt$smu_communicat ions_block; 
c°) S916 
© 5917 VAR 
o 5918 tmv$null_global_task_id: [READ] ost$global_task_id := [0, 0]; 
fe] 5919 
© 8820 {Monitor segment table. } 
ce] 5921 
Oo 5922 VAR 
o 58923 mtv$monitor segment_table: [XREF] record 
o s98324 Sst: ALIGNED [0 MOD 8] array [0 .. 4095] of mmt$segment_descriptor, 
oO 59825 recend; 
Oo 59326 
§329 
$330 VAR 
5931 osv$cpus_ logically on: [XREF] © .. osc$max_number_of_processors; 
5832 
o §935 
© S336 VAR 
o 8937 osv$cpus_ physically configured: [XREF] 1 .. osc$max_number_of_processors; 
oO s838 
5941 VAR 
5942 esvS$keypoint_ control: [XREF] ost$keypoint_contro}; 
5943 
c°) 6171 
° 6172 VAR 
Oo 6173 jmvS$idle_ dispatching controls: [XREF] jmtS$idle_ dispatching controls; 
Q 6174 
6194 
6195 VAR 
6196 jmv$ijl_entry status statistics: [KREF] jmt$ijl_entry_status_ statistics; 
6197 
o 6207 
° 6208 VAR 
LIST OF tmm$dispatcher NOS/VE CYBIL/II 1.0 89102 1989-08-21 
Task Management : dispatcher 
Oo 6209 jmv$job_ counts: [XREF] jmt$job_counts; 
© 6210 
6256 VAR 
6257 jimv$service_ classes: [XREF, oss$mainframe_wired] 
6258 array [jmt$service_class_index] of Ajmt$service_class_entry; 
6259 
ce 6305 
°o 6306 
© 6307 VAR 
oO 6308 jmv$null_ijl_ordinal: [XMREF] jmt$ijl_ordinal; 
ce 6309 
6312 
6313 VAR 
6314 jmvS$subsystem_priority_ changes: [XREF] PACKED ARRAY [jmt$service_class_index] of boolean; 
6315 
© 6318 {Pointer to the Active Segment Table - (AST).} 
° 6319 
ce) 6320 VAR 
Oo 6321 mmv$ast_p: [XREF] Ammt$active_segment_table; 
.°] 6322 
ce) 6325 VAR 
© 6326 null _pva: O .. OF FFFFFFFFFFF(IE), 
oO 6327 osv$system_family_ name: [XDCL, #GATE] ost$name :=: ‘$SYSTEM Pag 
Oo 6328 jmv$system_core_id: [XDCL, #GATE] ost$name, 
o 63298 tmvS$cpu_execution_statistics: [XDCL, #GATE] tmt$cpu_execution_statistics, 
Oo 6330 tmv$dct_priority_ integer: integer, 
Oo 6331 tmvS$dispatch_ priority integer: [XDCL, #GATE] ARRAY [jmt$dispatching priority] of integer, 
Oo 6332 tmv$dispatching controls: [XDCL] tmt$dispatching controls, 
Oo 6333 tmvSdispatching_control_sets: [XDCL, #GATE] tmt$dispatching_controi_sets, 
Oo 6334 tmv$dispatching_ control _time: [XDCL] tmt$dispatching_prio_controls, 
Oo 6335 tmv$dual_state_dispatch_ prior: [XDCL, #GATE] tmt$dual_state_dispatch_prior := 
oO 6336 ffi, 8], [1, 8], [2, 8], [2, 8], (£3, 8], [3, 8], [4, 81, 14, 8], [5, 81, [5, 8], 
Oo 68337 [6, 8], [6, 8], [7, 8], [7, 8]], 
oO 6338 tmv$io_ wait _task_ count: © .. tmc$maximum_pt1 := 0, 
oO 6339 tmvSmultiple_ cpus _ active: [XDCL, #GATE] boolean := FALSE, 
oO 6340 tmv$swapin_in_progress: [XDCL] integer :=: Oo, 
Oo 6341 tmv$time_to_call_dispatcher: [XDCL] integer := 0, 
oO 6342 tmv$timed wait_not queued: [XDCL, #GATE] integer := 600000000, 
oO 6343 tmv$timed_ wait queue: tmt$task_queue_Tink := [0, Oo], 
Oo 6344 tmv$total_task_ count: [XDCL, #GATE] 0 .. tmc$maximum_pt! :=: 0, 
oO 6345 tmvS$ long _ wait _swap_time: [XDCL, #GATE] integer := 6000000, 
oO 6346 tmv$ long wait _force swap_time: [XDCL, #GATE] integer := 6000000, 
Oo 6347 tmv$cycle_ delay _time: [XDCL, #GATE] integer := 20000, 
° 6348 miv$c170 rqst_bik: [MREF] m1t$c170_ rqst_blk, 
Oo 6348 tmv$tables_initialized: [XDCL, #GATE] boolean := FALSE, 
© 6350 syv$debug_control: [XDCL, #GATE] syt$debug control, 
o 6351 Syv$all_jobs_selected_for_debug: [XDCL, #GATE] boolean := FALSE, 
oO 6352 tmv$pti_lock: [XDCL] tmt$pti_lock := [FALSE, 0], 
Oo 6353 tmv$system_job_ monitor gtid: [XDCL] ost$global_task_id := [1, 1], 
© 6354 job_time_zero: [XDCL] integer :=: 0, 
o 6355 tmv$pti_p: [XDCL, #GATE] Atmt$primary _task_list, 
oO 6356 jmvS$aji_p: [XDCL, #GATE] Ajmt$active_job_list := NIL, 
Oo 6357 jimv$ijl_p: [XDCL, #GATE] jmt$ijl_p := I[NIL, 0, Ol], 
© 6358 imvS$ijlte size: [XDCL, #GATE] jmt$ijle_size :=: 0, 
Oo 6359 jmv$swap_jobs_in_long_ wait: [XDCL, #GATE] boolean := TRUE, 
oO 6360 jmv$system_aji_ordinal: [XDCL, #GATE] jmt$ajl_ordinal :: ©, 
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6361 jmv$system_ijl_ordinal: [XDCL, #GATE] jmt$ijl_ordinal 


6362 osv$special_aam_trap: [XDCL, #GATE] boolean := FALSE, 
6363 pmv$quantum: [XDCL, #GATE] integer :: 50000, 


6364 tmv$dedicate_a_cpu_to_nos: [XDCL, #GATE] boolean := FALSE, 
5, 


6365 tmv$subsystem_prior_threshold: [XDCL] © .. Of f(16) := 
6366 tmv$dct: [XDCL, #GATE] tmt$dispatch_control_table; 


6368 {Define types and variables for tracing CYCLE requests. Note that the code to trace CYCLE requests 
6370 {is normally disabled and a special version of the system must be built to record 


6371 2? VAR 


eooooooeonooooeoogoooaooo0ooo000oo06 
on 
Ww 
~l 
W 


6372 tmc$debug cycle requests: boolean := FALSE?; 

6374 TYPE 

6375 cyctrace = record 

6376 code: tmc$cycile reason, 

6377 Status: tmt$task_status, 

6378 pt: Acell, 

6379 p2: Acell, 

6380 gtid: ost$global_task_id, 

6381 xtask: ost$task_index, 

6382 time: © .. OF FFFFFFFFFFF(IEG), 

6383 p: ost$pva, 

6384 utp: Acell, 

6385 recend; 

6386 

6387 ?7IF tmc$debug cycie requests THEN 

6388 

6389 VAR 

6390 osv$debug: [XREF] integer, 

6391 tmv$cycie_trace: [XDCL, #GATE] array [0 .. 10001] of cyctrace, 

6392 ti: [STATIC] integer; 

63933 

© 6394 ?IFEND 

6395 

6396 TYPE 

6397 

6388 { Priority mask and dp_trick_ conversion are types for the variable that 

6398 { used to determine the priority to be considered for select_next_task. 

6400 { #unchecked_ conversion is used to "pull off" the leftmost bit set. 

6401 

6402 priority mask = packed record 

6403 FiTl: ©. .OfF F(16), 

6404 set_number: ©..Of (16), 

6405 dap: jmtS$dispatching_ priority, 

6406 Fi112: O. .OFFFFFFFFFFFF( 16), 

6407 recend, 

6408 

6409 dp_trick conversion = record 

6410 case 0..1 of 

6411 = 0 = 

6412 r: real, 

6413 => 4: 

6414 dp_mask: priority _mask, 

6415 casend, 

6416 recend; 
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6420 
6421 PROCEDURE [INLINE] tmp$set_lock [VAR lock: tmt$pt1_lock); 
6422 
6423 VAR 
6424 b: boolean, 
6425 be: integer; 
6426 
6427 IF osv$cpus_logically_on > 1 THEN 
6428 be :: #read_ register (osc$pr_base_ constant) ; 
642935 IF Yock.id <> bec THEN 
6430 REPEAT 
6431 #TEST_SET (lock. locked, 6b); 
6432 UNTIL NOT b; 
6433 lock.id :: bec; 
6434 ELSE 
6435 lock.count := lock.count + 1; 
6436 IFEND; 
6437 IFEND; 
6438 
6439 PROCEND tmp$set_ lock; 
6440 
© 6443 
© 6444 PROCEDURE [INLINE] tmp$clear_lock (VAR lock: tmt$pt1_lock) ; 
© 6445 
© 6446 IF osv$cpus_logically_on > 1 THEN 
Oo 6447 IF lock.id <> #READ REGISTER (osc$pr_base_ constant) THEN 
3° 6448 i#program_error; {Interlock failure - no message passed 
° 6449 IFENO; 
ce) 645850 IF lock.count > O THEN 
ce) 6451 lock.count := lock.count - 1; 
0 6452 ELSE 
re) 6453 lock.cilear :=: 0; 
° 6454 IFEND; 
ce 6455 IFEND; 
0° 6456 
° 6457 PROCEND tmp$c lear_ lock; 
° 6458 
° 6461 
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for performance reasons) 


1989-08-21 


(tmv$pt1_p%)) OR 


{XDCL, INLINE) tmp$check_taskid, tmp$check_taskid_with_lock_set 
° 6463 
oO 6464 PROCEDURE [XDCL, INLINE] tmp$check_taskid 
4 6465 ( taskid: ost$global_task_id; 
4 6466 option: tmt$option; 
4 6467 VAR status: syt$monitor_ status) ; 
4 6468 
4 6469 
4 6470 { 
4 6471 { The purpose of this procedure is to check for a@ valid taskid. 
4 6472 { Depending on the option selected, this module either halts the 
4 6473 { system or returns the status im case an error condition is 
4 6474 { encountered. 
4 6475 { The callers of this procedure DO NOT set the pti lock. This 
4 6476 { procedure should be used by callers outside of the ’TM’ decks. 
4 6477 { ‘TM’ callers should use TMP$CHECK_ TASKID_WITH_LOCK_ SET. 
4 6478 { 
4 6479 { TMPSCHECK_TASKID (TASKID, OPTION, STATUS) 
4 6480 { 
4 6481 { TASKID: (INPUT) This parameter specifies the taskid. 
& 6482 { : 
4 6483 { OPTION: (INPUT) This parameter specifies the option to 
4 6484 { halt the system or to return an error status. 
4 6485 { 
4 6486 { STATUS: (OUTPUT) This parameter specifies the error status. 
4 6487 { 
4 6488 
4 6489 status.normal := TRUE; 
4 6490 tmp$set_tock (tmv$pti_ lock) ; 
4A 6491 IF (taskid = tmv$null_gliobail_task_id) OR (taskid.index >» UPPERBOUND 
8c 6492 (tmv$ptl_pA [taskid.index].sequence_ number <> taskid.seqno) OR 
8C 6483 (tmv$pti_pA [taskid.index].status = tmce$ts_nul1) THEN 
8c 6494 tmp$clear_lock (tmv$pt1_lock); 
C2 6485 IF option = tmc$opt_return THEN 
CA 6496 mtp$set_status_abmormal (’TM’, tmeS$invalid_global_taskid, status); 
CA 6497 RETURN; 
E2 6498 ELSE 
E2 6499 mtp$error_ stop (’TMO1 - taskid error’); 
104 6500 IFEND; 
104 6501 IFEND ; 
104 6502 tmp$clear_lock (tmv$pt1_lock) ; 
138 6503 PROCEND tmp$check_taskid; 
oO 6505 PROCEDURE [XDCL, INLINE] tmp$check_taskid_with_lock_set 
4 6506 ( taskid: ost$global_task_id; 
4 6507 option: tmt$option; 
4 6508 VAR status: syt$monitor_ status) ; 
4 6509 
4 6510 { 
4 6511 { The purpose of this procedure is to check for a valid taskid. 
4 6512 { Depending on the option selected, this module either halts the 
4 6513 { system or returns the status in case an error condition is 
4 6514 { encountered. 
4 6515 { The callers of this procedure MUST set the pti lock. Callers 
4 6516 { outside of the ‘TM’ decks should use TMP$CHECK_TASKID, which 
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eco00o0odgo0o00o000090 


6517 
6518 
6519 
6520 
6521 

6522 
6523 
6524 
6525 
6526 
6527 
6528 
6529 
6530 
6531 

6532 
6533 
6534 
6535 
6536 
6537 
6538 
6539 
6540 
6541 


tym$dispatcher 


tmp$check_taskid, 


{ 
{ 
{ 
t 
{ 
{ 
{ 
{ 
{ 
{ 
{ 


dees the pti tock management. 


TMPSCHECK TASKID_WITH_LOCK_SET (TASKID, 


tmp$check taskid_with_lock_ 


NOS/VE CYBIL/II 1.0 89102 


set 


OPTION, STATUS) 


TASKID: (INPUT) This parameter specifies the taskid. 


OPTION: (INPUT) This parameter specifies t 


halt the system or to return an error status. 


he option to 


STATUS: (OUTPUT) This parameter specifies the error status. 


Status.normal ::= TRUE; 


1889-08-21 


IF (taskid = tmv$nul1l_global_task_id) OR (taskid.index > UPPERBOUND (tmv$pti1_p4)) OR 
(tmv$pt1l_pA [taskid.index].sequence_ number <> taskid.seqno) OR 


{tmv$ptl_pA [taskid.index].status = 
IF option = tmc$opt_return THEN 


mtp$set_status_abnormal (’TM’, tme$invalid_giobhal_taskid, 


RETURN ; 
ELSE 
mtp$error_ stop (’TMO1 - taskid error’ 
IFEND; 
IFEND; 
PROCEND tmp$check_taskid_with_lock_ set; 


tmp$stop_if_bad_taskid 


6543 
6544 
6545 
6546 
6547 
6548 
6543 
6550 
6551 
6552 
6553 
6554 
6555 


{ 


PROCEDURE [INLINE] tmp$stop_if_bad_taskid 
( taskid: ost$global_task_id)j; 


NOTE: The calter of this procedure MUST set 
IF (taskid = tmv$null_global_task_id) OR 
(tmv$pti_pA [taskid.index].status = 
mtp$error_stop (’TMO1 - taskid error’); 
IFEND; 


PROCEND tmp$stop_if_bad_taskid; 


tme$ts_null) 


); 


NOS/VE CYBIL/II 1.0 89102 


the PTL lock. 


THEN 


status 


(taskid.index >» UPPERBOUND 
(tmv$pti_p% [taskid.index].sequence number <> taskid.seqno) OR 


tme$ts_nuili) 


THEN 


); 


1989-08-21 


(tmv$pt1_pA)) 


OR 
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ce) 6557 

ve] 6558 PROCEDURE [XDCL, INLINE] tmp$obtain_ijl_ordinal_from_pt1 

4 6559 ( global_task_id: ost$global_task_id; 

& 6560 VAR ijl_ordinal: jmt$ijl_ordina?) ; 

4 6561 

4 6562 ijl_eordinal : = tmv$pti_p4 [global_task_id.index].ijl_ordinal; 

4 6563 

4 6564 PROCEND tmpS$obtain_ijl_ordinal_from_pt1; 
SOURCE LIST OF tmm$dispatcher NOS/VE CYBIt/II 1.0 89102 1989-08-21 
ASSIGN_PTL, FREE_PTL 

0 6566 

.¢] S567 PROCEDURE [INLINE] tmp$assign_ pt! 

Oo 6568 ( xcb_p: Aost$execution_control_ block; 

© 6569 ijl_ordinal: jmt$ijl_ordinal; 

Oo 6570 VAR taskid: ost$globai_task_id; 

oO 6571 VAR status: syt$monitor_status) ; 

ce) 6572 

o 6573 { 

° 6574 { The purpose of this procedure is to assign PTL entries from 

0 6575 { the free queue. An error status is returned if the PTL is full. 

o 6576 { 

° 6577 { ASSIGN PTL (XCB_P, JOB_ID, TASKID, STATUS) 

o 6578 { 

o 65879 { xXCB_P : {INPUT) This parameter specifies the pointer to XCB. 

° 6s8o f{ 

© 6581 { JOB_ID : (INPUT) This parameter specifies the ordinal of the 

o 6582 { active job list entry for the job. 

o 6583 { 

re) 6584 { TASKID : (QUTPUT) This parameter specifies the taskid assigned 

o 6885 { to the task. 

o 6586 { 

o 6587 { STATUS : (OUTPUT) This parameter specifies the error status. 

o 6588 { 

° 6589 { NOTE : Anyone calling this procedure must have tmv$pti1_lock set. 

o 6590 { 

fe) 6591 

o 6592 VAR 

o 6593 ijle_p: AjmtS$initiated_job_list_entry, 

o 6594 next _avail_ptilo: ost$task_index, 

© 65985 ptl_p: Atmt$primary_task_list_entry; 

o 6596 

°o 6597 

3° 6598 

o 6589 {Check if PTL space is available. 

° 6600 

ce) 6601 status.normal :+= TRUE; 

oO 6602 next avail _ptlo := tmv$dct [ jmc$nul1l_dispatching priority] .queue_head; 

o 6603 IF nmext_avail_ptlo = 0 THEN 

Oo 6604 mtp$set_status_abnormal (’TM’, tme$ptil_full, status); 

fo) 6605 RETURN; 

.¢] 6606 IFEND; 

Oo 6607 ptl_p := Atmv$pti_pA [next_avail_ptio]; 

o 6608 tmv$det [ jmc$null_ dispatching priority].queue_ head := ptil_pA.pti_thread; 

° 6609 

° 6610 { If the job is selected for system breakpoints, set the flag for the task to set up debug registers. 

° 6611 

oO 6612 imp$get_ijle_p (ijl_ordinal, ijie_p); 

oO 6613 IF ijle_pA.system_breakpoint selected THEN 

Oo 6614 ptl_pA.monitor_ flags := $syt$monitor flags [syc$mf_system_debugger ]; 

fe 6615 ELSE 

Oo 6616 pti_pA.monitor flags := $syt$monitor_ flags [1]; 

oO 6617 IFEND; 

° 6618 

© 6619 {Initialize the PTL entry. 

oO 6620 

oO 6621 xcb_pA.keypoint_enable :: FALSE; 
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o 6622 xcb_ pA. keypoint register_enable := FALSE; 

o 6623 pti_pA.status := tmce$ts_ ready; 

Oo 6624 pti _pA.ijl_ordinal := ijl_ordinal; 

Oo 6625 pti_pA.xcbh_offset := #OFFSET (xcb_p); 

°o 6626 pti_pA.dispatching priority := xcb_pA.dispatching priority; 
3° 6627 ptl_p4A.sequence mumber := pti_p4.sequence_ number MOD 255 + 1; 
Oo 6628 ptil_pA.system_flags := $tmt$system_fiags []; 

o 6629 pti_pA.idie status := tme$is_not_idied; 

Oo 66306 ptl_pA.queue_ link.head := 0; 

o 6631 ptl_pA.queue_ Tink.tail := 0; 

© 6632 pti_pr.end_of_wait_time := 0; 

© 6633 ptl_pA.readying task_priority := 0; 

oO 6634 taskid.index :: next _avail_ptilo; 

ce) 6635 taskid.seqno := ptil_p%.sequence_ number ; 

oO 6636 

o 6637 PROCEND tmp$assign_ptl1; 


° 6639 

° 6640 { NOTE : Anyone calling this routine must have tmv$pti1_lock set. 

Oo 6641 { The caller must also call the procedure remove_ijl to remove the task from the ijl_thread, 

° 6642 f{ which links a11 tasks of a job, if the task being freed is NOT the job monitor task 

° 6643 { If al? tasks are being freed, the caller can zero out the ijl_thread. 

° 6644 

° 6645 PROCEDURE [INLINE] free pti 

oO 6646 ( ptlo: ost$task_index); 

° 6647 

Oo 6648 tmv$pti_pA [ptio].status :+ tme$ts_ null; 

© 66498 tmv$pti_p’ [ptio] .dispatching_ priority := jimc$null_ dispatching priority; 

© 66506 tmv$pti1_p4 [ptio].pti_thread := 0; 

oO 6651 IF tmv$det [ jmc$nul} _dispatching_ priority]. queue head = 0 THEN 

o 6652 tmv$dct [ jmc$nul1_dispatching_priority]. queue_head := ptio; 

° 6653 ELSE 

© 6654 tmv$pti_pA [tmv$dct [ jmc$null_dispatching _priority].queve_tail].ptil_thread := ptio; 

© 6655 IFEND; 

o 6656 tmv$dct [ jmc$null_dispatching priority] .queue_tail := ptio; 

oO 6657 PROCEND free pti; 

. e 
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° 6659 

Oo 6660 PROCEDURE [INLINE] tmp$remove_task_from_dct 

Oo 6661 { ptile: ost$task_index); 

3° 6662 

0 6663 { 

ie) 6664 { The purpose of this procedure is to remove the current task’s 
° 6665 { PTL entry from the DCT thread. 

Oo 6666 { 

o 6667 { REMOVE _TASK_FROM_DCT (PTLO) 

o 6668 { , 

o 6669 { PTLO : (INPUT) This parameter specifies the PTL index of the 
© 6670 { specified task. 

° 6671 { 

oO 6672 { NOTE : Anyone calling this procedure must have tmv$pti1_lock set. 
© 6673 { 

° 6674 

° 6675 VAR 

° 6676 dadcte: tmt$dct_entry, 

Oo 6677 scan_ptilo: ost$task_index, 

Oo 6678 Ssave_ptio: ost$task_index, 

o 6678 ptie p: Atmt$primary_ task _list entry; 

° 6680 

oO 6681 ptie_ p := Atmv$pti_pA [ptlo]; 

o 6682 dcte := tmv$dct [ptile_pA.dispatching priority]; 

° 6683 

oO 6684 IF decte.queue tail = dcte.queue head THEN 

fe) 6685 IF dcte.queue head <> ptlo THEN 

° 6686 mtp$error stop (’TM--remove task from empty DCT’); 

° 6687 IFEND; 

3° 6688 dcte.queue tail = Q; 

o 6689 dcte.queue_ head := 0; 

o 6690 dcte.minor_ priority :: 0; 

° 6691 dcte.major priority = 0; 

Oo 6692 tmv$dispatching_ contro} _sets.ready_ tasks := tmv$dispatching_ control_sets.ready_tasks - 
Oo 6693 $jmt$dispatching_priority_set [jmc$dp_conversion - ptle_pA.dispatching priority]; 
oO 6694 tmp$calculate_dct_priority int; 

fe) 6695 ELSEIF ptio = dcte.queve head THEN 

oO 66896 dcte.queue head := ptie_ pA.pti_thread; 

° 6697 IF ptlo = dcte.major_ priority THEN 

oO 6698 dcte.major_priority := ptile_p”.pti_thread; 

fe) 6639 IFEND; 

° 6700 IF ptlo = dcte.minor_ priority THEN 

Oo 6701 decte.minor_ priority := ptie_pA.ptl_thread; 

° 6702 TFEND; 

° 6703 ELSE 

oO 6704 scan_ptio := dcte.queuve_ head; 

© 6705 WHILE scan_ptilo <> ptio DO 

Oo 6706 save _ptilo := scan_ptilo; 

Oo 6707 scan _ptio :: tmv$pti_pA [scan_pt1lo] .pt1i_thread; 

3 6708 IF scan_ptlo = © THEN 

o 6709 mtp$error_ stop (‘’TM-cant find ptlo to remove from DCT’); 
3° 6710 IFEND; 

oO 6711 WHILEND; 

oO 6712 tmv$pti_p4A [save _ptio].pti_thread := tmv$pti_pA [ptio].pti_thread; 
oO 6713 IF ptlo = dcte.queue_ tail THEN 

oO 6714 dcte.queve tail :=* save _ ptio; 
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© 6715 IFENO; 

ce] 6716 IF ptlo = dcte.major_priority THEN 

° 6717 dcte.major_ priority := save _ptio; 

ce) 6718 IFENO; 

fe 6719 IF ptlo = dcte.minor_priority THEN 

° 6720 dcte.minor .priority := save_ptio; 

0 6721 IFEND; 

° 6722 IFEND; 

Oo 6723 ptie pA.ptl_ thread := 0; 

ce) 6724 tmv$dct [ptlie_p4.dispatching_priority] dcte; 

° 6725 

Oo 6726 PROCEND tmp$remove_task_from_dct; 

° 6727 
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° 6729 

° 6730 PROCEDURE [INLINE] remove_task_from_free_queue 

o 6731 ( ptio: ost$task_index) ; 

° 6732 

° 6733 { 

.°) 6734 f The purpose of this procedure is to remove a task’S PTL entry 
° 6735 { from the free DCT thread. 

fe) 6736 { 

° 6737 { REMOVE TASK_FROM_FREE QUEUE (PTLO) 

o 6738 { 

ce) 6739 { PTLO : (INPUT) This parameter specifies the PTL index of the 
ce) 6740 { specified task. 

ce] 6741 { 

.°) 6742 { NOTE : Anyone calling this procedure must have tmv$pti1_lock set. 
} 6743 { 

° 6744 

ce) 6745 VAR 

ce) 6746 dcte: tmt$dct_entry, 

© 6747 save_ptio: ost$task_index, 

° 6748 scan_ptio: ost$task_index, 

° 6749 ptle_p: Atmt$primary_task_list_entry; 

° 6750 

o 6751 ptle_p := Atmv$pti_p4 [ptilo]; 

o 6752 dcte := tmv$dcet [jmc$null1_dispatching_priority]; 

° 6753 

o 6754 IF dcte.queue tail = dcte.queue_ head THEN 

Oo 6755 IF dcte.queue head <> ptilo THEN 

Oo 6756 mtp$error_stop (‘TM--task not in free queue’); 
ce] 6757 IFEND; 

o 6758 dcte.queue head := 0; 

° 6759 dcte.queue tail := 0; 

Oo 6760 ELSEIF ptilo = decte.queve head THEN 

3° 6761 dcte.queue head := ptile_ pA.pti_thread; 

° 6762 ELSE 

° 6763 scan_ptilo := dcte.queue head; 

° 6764 WHILE (scan_ptio <> ptio) AND (Scan_ptlo <> 0) DO 
° 6765 save_ptilo = scan_ptio; 

oO 6766 scan_ptilo := tmv$pti1_p4 [scan_ptlo].pt1_thread; 
° 6767 WHILEND; 

© 6768 IF scan_ptio = O THEN 

ce) 6769 mtp$error_stop (’TM--task not in free queue’); 
ce) 6770 IFEND; 

Oo 6771 tmv$ptil_pA [save_ptio] .ptl_thread :: tmv$pt1i_pA [ptlo].pt1l_thread; 
° 6772 IF ptlo = dcte.queue tail THEN 

oO 6773 dcte.queue tail := save _ptio; 

° 6774 IFEND; 

° 6775 IFEND; 

© 6776 tmv$dct [ jmc$null_dispatching_ priority] := dcte; 

° 6777 

3 6778 PROCEND remove _ task_from_ free queue; 

° 6779 
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[INLINE] tmp$dct_ready_task 
Oo 6781 
© 6782 { PURPOSE: 
o 6783 { The purpose of this procedure is to pre-select a CPU for a ready task 
o 6784 { to execute on, or place the ready task into the dispatch _controi_table (DCT). 
o 6785 { 
© 6786 { DESIGN: 
o 6787 { Integer representation of dispatching priorities: 
oO 6788 { To accommodate dispatching allocation (guaranteeing minimum and maximum 
° 6789 { percentages of the total CPU time to specified user dispatching priorities), 
° 6790 { each dispatching priority falls into one of three sets. The sets are defined 
° 6791 { in one word of memory in the following order: 
o 6792 { 
o 6793 { BYTE: GS ies 52 ie: Ce aa Bs as Rete SE wel ae BRC we ed ae en AAO ye See Ee EAE) BOE a ° 
o 6794 { PRIORITY: 15 . Oo 15 ; o 15 ox ° 
o 6795 { : 
o 6796 { | 
o 8797 { | 
o 6798 { SET 3 SET 2 SET 1 
© 6799 { 
° 6800 { SET 1: Tasks of priorities in this set have exceeded their maximum dispatching 
© 6801 f{ priority ailocation. 
° 68so2 f{ SET 2: Tasks of priorities in this set have achieved their minimum dispatching 
° 6803 { priority allocation, but have not exceeded their maximum allocation. 
© 6804 { SET 3: Tasks of priorities in this set have not yet achieved their minimum 
o 6805 { dispatching allocation. 
© 6806 { 
o 6807 { When the word containing the dispatching priority sets is normalized and 
° 6808 { converted to an integer, any SET 3 task has a higher dispatching priority integer 
o 6809 { than any SET 2 task, which in turn has a higher dispatching priority integer 
ce) 6810 { than any SET 1 task. Thus, a SET 3°-P4 task has a higher dispatching priority 
o 6811 { integer than a SET 2-P8 task. 
oO 6812 { 
Oo 6813 f{ NOTE: Sub-system and system priorities (P9..P14) are always placed in SET 3, so 
° 6814 { they will always have a higher dispatching priority integer value than 
° 681s { any user dispatching priority. 
© 6816 { 
° 6817 { Task pre-selection or placement in the OCT: 
° 6818 { Task pre-selection will be attempted only if the job with the ready task allows 
o 6819 { multiprocessing or has mo other tasks currently executing. If the ready task 
© 6820 { is going through task _switch and is still ready (its time slice has expired), 
o 6821 { pre-selection will be attempted only if the job allows multiprocessing or has 
° 6822 { no other ready tasks. (This prevents a non-multiprocessing job with a CPU bound 
© 68223 { task from shutting out other tasks of the job. ) 
Oo 6824 { 
© 6825 { The ready task will be pre-selected to run on the First idie CPU that is found, 
o 6826 { or on the the lowest dispatching priority (integer) CPU currently executing, if 
° 6827 { the ready task has a higher dispatching priority integer. If the CPU that is 
° 6828 { pre-selected is currently executing another task, that CPU will be interrupted. 
o 6829 { 
° 6830 { If the ready task cannot be pre-selected to execute on a CPU, the task is inserted 
re) 6831 { imto the DCT. 
© 6832 f{ 
o 6833 { The dispatch _control_tabie (DCT): 
° 6834 { The DCT is an array of Singularly linked lists. There is a list for each 
° 6835 { dispatching priority. Tnere are four different pointers into each ist: 
° 6836 { the head pointer, the tail pointer, the minor priority pointer, and the 
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° 


© 6837 { major priority pointer. 
© 6838 { 
° 6s33 { Each job class has a major and a minor timeslice. The major and minor 
Oo 6840 { timeslice of a job class can be modified by using the change_ciass_attribute 
° 6841 { command. When a task is initially dispatched, it is placed after the minor 
° 6842 { priority pointer in the DCT. "Ready tasks" are placed after the minor 
° 6843 { priority pointer as long as the minor timeslice in the tasks XCB is greater 
° 6844 { than one _ eighth of the job class minor timeslice. Both the minor and the 
ce) 6s84s { major timeslice in the XCB of a task are decremented by the amount of time that 
° 6846 { the task uses the CPU. Once the minor timeslice in the XCB is zero, the task 
©} 6847 { is placed after the major priority pointer in the dispatch contro! table. 
© 6848 { The minor timeslice in the XCB is also reset. When a task finally uses all 
° 6849 { of its major timeslice, it is next dispatched at the tail of the DCT. Both 
° 6sso0 { the major and minor timeslice in the XCB are then reset. 
o 6851 { 
o 6852 { Poetecn sees 
©o 6853 { HEAD pres erie see > TASK 
o 6854 { Leese cin ee | TASK Example of a DCT with five 
° 6sss { | MINOR | SS era eS Sie See eS > TASK tasks waiting to be dispatched. 
° 6856 { | Mein oe ete ee | 
© 6857 { MAJOR ;, «rrr tttte tee > TASK 
o 6858 { eee eae aiats 
o s68s9 { TAIL [) ste ee See > TASK 
o 6860 f{ ah Reta aid \ 
© 6861 
° 6862 
© 6863 PROCEDURE [INLINE] tmp$dct_ready task 
o 6864 ( xcb_ p: Aost$execut ion_control block; 
Oo 6865 ijle_p: Ajmt$initiated job_list_entry; 
Oo 6866 ptlo: ost$task_index; 
© 6867 attempt preselection: boolean) ; 
oO 6868 
o 6869 VAR 
© 6870 cst_index: integer, 
o 6871 cst_p: Aost$cpu_state_ table, 
o 6872 dcte: tmt$dct_entry, 
o 6873 dct_placement: (minor_timeslice_insert, major_timeslice_insert, tail _timeslice_ insert), 
© 6874 insert _ptile_p: Atmt$primary task _list_entry, 
Oo 6875 insert_ijle_p: Ajmt$initiated_job_list_entry, 
° 6876 low _priority: integer, 
o 6877 low _prio_csti: integer, 
Oo 6878 ptie_p: Atmt$primary_task_list_entry, 
o 6879 timeslice: jmt$time_ slice _ values; 
© 6880 
o 6881 ptie_ p := Atmv$pti_p” [ptio], 
oO 6882 
Oo 6883 ?IF NOT debug THEN 
Oo 6884 timeslice :: jmv$service_classes [ijle_p4. job_scheduler_data.service_class]/.attributes. 
© 6885 dispatching control [ijle_p4.dispatching control.dispatching control_index].dispatching timeslice; 
oO 6886 ?ELSE 
6887 timeslice.minor :=: 50; 
6888s timeslice.major = 50; 
o 68893 ?IFEND; 
© 6890 
o 6891 { Determine where the task is to he positioned in the DISPATCH CONTROL TABLE. 
Oo 6892 
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6893 IF xcb_pA.timeslice.minor > (timeslice.minmor DIV 8) THEN 
6894 dact_ placement := minor _timeslice_ insert; 
6895 ELSEIF xcb_ p4.timeslice.major > (timeslice.minor DIV 8) THEN 
6896 dct_placement := major _timeslice_insert ; 
6897 xcb_ pA.timestice.minor := timeslice.minor ; 
6898 ELSE 
68g9 dct_placement := tail_timeslice_insert ; 
6900 xcb pA.timeslice.major :: timeslice.major ; 
6901 xcb_pA.timeslice.minor = timeslice.minor; 
6902 IFEND; 
6903 
6904 { If a task has subsystem table locks set for more than the subsystem lock threshold, then 
6905 { lower the tasks priority. If the task received a READY request while it had subsystem 
6906 { locks set, the priority iS lowered to the greater of the task’s or the READYING task’s 
6907 { dispatching priority. 
6908 
6909 (xcb_p4.system_tabile_lock_count > ©) THEN 
6910 IF (xcb_ pA.system_tabie_lock_count < osc$system_table_lock_set) THEN 
6911 IF xcb_pA.subsystem_lock_priority_count >= tmv$subsystem_prior threshold THEN 
6912 IF (xcb_p4.dispatching_ priority < ptile_ pA.readying task_priority) THEN 
6913 ptle_ p%.dispatching priority := ptie_ pA.readying task_priority; 
6914 ELSE 
6915 ptle_pA.dispatching priority := xcb_ pA.dispatching priority; 
6916 IFEND ; 
6917 xcb_ pdA.subsystem_give_up cpu := TRUE; 
6918 ELSE 
6919 IF ptie_ pA.dispatching_ priority < jmc$prior_subsystem_tb1s_locked THEN 
6920 ptie_ p%.dispatching priority : = jymce$prior_subsystem_tb1s_locked; 
6921 IFEND ; 
6322 IF dct placement <> minor_timesiice_insert THEN 
6323 xcb_ pA.subsystem_lock_ priority count :: xcb_ pA.subsystem_lock_priority count + 1; 
6924 IFEND ; 
6925 xcb pA.subsystem give_up cpu := TRUE; 
6926 IFEND; 
6927 ELSE 
6928 xcb pA.system give up _cpu := TRUE; 
6929 IF ptile_pA.dispatching priority < jmc$prior_system_tb1is_locked THEN 
6930 ptile_p%.dispatching priority :5 jmc$prior_ system _tbhis_ locked; 
6931 IFEND; 
6932 IFEND; 
6933 IFEND; 
6934 
6935 { Determine if the priority is high enough to preempt a task that is currently executing. 
6336 { Send an interrupt to the processor executing the lowest priority task (or an idle processor). 
6937 
6938 IF attempt preselection THEN 
6939 
6940 low priority := tmv$dispatch_priority_integer [ptle pA.dispatching priority]; 
6941 mtp$cst_p (cst_p); 
6942 cst_index := osv$cpus_physically_configured - 1; 
6943 Tow _prio_csti := -1; 
6944 /preselect_loop/ 
6945 BEGIN 
6946 REPEAT 
6947 IF (mtv$csto [cst_index].dispatching_priority_integer < low_priority) 
6948 AND (cst_index IN xcb_p4.processor_selections) THEN 
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6949 
6950 
6951 
6352 
69353 
6954 
6955 
6956 
6957 
6958 
6959 
6960 
6961 
63962 
6963 
6964 
6965 
6966 


{ A task Nas already been pre-selected to run on the pre-selected processor. 


IF tmv$dedicate_a_cpu_to_nos AND (cst_index = 0) THEN 
EXIT /preselect_loop/; 


IFEND; 

low_prio_csti := cst_index; 

low_priority := mtv$csto [cst_index] .dispatching_ priority _integer ; 
IFEND; 
cst _index := cst_index - 1; 


UNTIL (cst_index < ©) OR (low_priority = 0); 
END /preselect_loop/; 


IF low_prio_ csti >= O THEN 
IF (mtv$cstoO [low_prio_csti].next_ptlo_to_dispatch <> 0) THEN 


{ at the head of its priority DCT queue. 


insert _ptle_p := Atmv$pt1_p4 [mtv$cstoO [low_prio_csti].next_ptlo_to_ dispatch] ; 
jimp$get_ijle_p (insert _ptle_pA.ijl_ordinal, insert_ijle_p); 
insert_ijle_pA.executing task count := insert_ijle_ pA.executing task count - 1; 
insert _ptie_pA.status := tmc$ts_ready; 
dcte := tmv$dct [insert _ptie_pA.dispatching_priority]; 
IF dcte.queue head = © THEN 
insert _ptle_ pA.pti_thread := 0; 
dcte.queue_head := mtv$cstoO [low_prio_csti].next_ptlo_to_ dispatch; 
dcte.queue tail := mtv$cstoO [low_prio_csti].next_ptilo_ to dispatcn; 
dcte.minor_ priority := mtv$cstoO [low_prio_csti].next_ptilo_to_ dispatch; 
dcte.major priority := mtv$cstoO [low _prio_csti].next_ptlo_to_ dispatch; 
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The task must be inserted 


tmv$dispatching control _sets.ready tasks := tmv$dispatching control _sets.ready tasks + 


$jmt$dispatching priority_set [ jmc$dp_conversion - 
insert_ptle_pA.dispatching priority]; 
tmp$calculate_ dct priority _int; 
ELSE 
insert _ptle_pA.pti_thread := dcte.queue_ head; 
dcte.queue head := mtv$cstoO [low _prio_csti].next_ptlo_to_dispatch; 
IFEND; 
tmv$dct [insert _ptle_pA.dispatching priority] >= dcte; 
IFEND; 


mtv$cstoO [low _prio_csti].next_ptlo_to_ dispatch :: ptilo; 


mtv$cstO [low _prio_csti].dispatching priority_integer := tmv$dispatch_priority_ integer 


[ptie_pA.dispatching priority]; 

mtv$cstoO [low _prio_csti].dispatch_contro!.call_dispatcher := TRUE; 

ptile_pA.status := tmc$ts_ready_ and_selected; 

ijle_pA.executing task_count :* ijle_pA.executing task count + 1; 

IF (low _prio_csti <> cst_pA.cst_index) AND ((Jow_priority <> © ) OR 
(mtv$csto [low _prio_csti].dual_state_jps <> ©)) THEN 

mtp$interrupt_processor (mtv$cstoO [low_prio_csti].memory port _mask); 
IFEND; 
RETURN; 
IFEND; { low _prio_csti >= © } 


IFEND; { attempt_preselection } 


{ If no processor is executing a task with a lower priority then the task being readied must 
{ placed in the OCT queue. : 


dcte := tmv$det [ptle_ pA.dispatching_ priority]; 
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o0000 


7005 


IF dcte.queue head = 0 THE 
ptle pA.ptl_ thread := 0; 
dcte.queue head := ptio; 
dcte.queue tail := ptio; 
dcte.minor_priority : = ptilo; 
dcteé.major_priority :+ ptilo; 
tmv$dispatching control_sets.ready tasks := 

$jmt$dispatching priority _set 
tmp$calculate_ det_priority_int; 
tmv$dct [ptle_pA.dispatching priority] := 
RETURN; 
IFEND; { dcte.queue_head = 


[ jmc$dp_conversion 
dcte; 
° } 
IF dct_pilacement = minor_timeslice_insert THEN 
ptile_ pA.ptli_thread :: tmv$pti_pA [dcte.minor_ priority] 
tmv$pti_pA [decte.minor_priority].pti_thread := ptio; 


The following is required to 
is never higher than the minor pointer 


insure that the major pointer 
in the DCT. 


IF dcte.minor_priority dcte.major_ priority THEN 


dcte.major_ priority ptilo; 
IFEND; 
acte.minor_ priority := ptilo; 
IF ptile pA.pti_thread = © THEN 


dcte.queue tail := 
IFEND; 
ELSEIF dct placement = major_timeslice_ insert THEN 
ptie pA.pti_thread :: tmv$ptil_p4 [dcte.major_ priority] 
tmv$pti_pA [dete.major_priority].ptl_thread := ptilo; 
dcte.major_ priority := ptilo; 
IF pttle_ pA.ptil_thread = © THEN 
dacte.queue tail := ptio; 
IFEND; 
ELSEIF dct _ placement = tail_timeslice_insert THEN 
tmv$pti_pA [dcte.queue_ tail] .ptl_thread := ptio; 
ptie_ pA.ptl_thread := 0; 
dadcte.queue_ tail :=: ptilo; 
ELSE 
mtp$error_stop [°‘ 
IFEND; 


TMS9--Illegal insert ‘); 


{ If any task 
{ the tasks 


IF (ijle_pA.relative_priority enabled) 
ready task_count > 1) THEN 
IF dct placement = minor_timeslice_ insert THEN 
relative _insert_minor_dct 
ELSEIF dct_piacement = major_timeslice_ insert THEN 
relative _ insert major_dct 
ELSEIF dct placement = tail _timeslice_ insert THEN 
relative _ insert tail_dct 
IFEND; 
IFEND; 
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7061 
7062 
7063 
7064 
7065 


tmv$dct [ptlie_ pA.dispatching priority] := dcte; 


PROCEND tmp$dct_ready_task; 


im a job has specified a relative task priority, 
in the job are subject to the relative priority algorithms. 


(xcb_ pA.relative_task_priority, 
(xcb_pA.relative_task priority, 


(xcb_pA.relative_task_priority, 


1989-08-21 


tmv$dispatching control _sets.ready_ tasks + 


- ptie_pA.dispatching priority]; 


-pti_thread; 


.ptl_thread; 


all of 


AND (ijle_pA.statistics. 


ptlo, ijle_p, dete); 
ptlo, ijle_p, dete); 
ptlo, ijle_p, dete); 
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oO 7067 
o 7068 PROCEDURE [INLINE] relative_insert_minor_dct 
o 7069 ( relative_priority: © .. 255; 
o 7070 ptio: ost$task_index; s 
oO 7071 ijl_p: Ajmt$initiated_job_list_entry; 
o 7072 VAR dete: tmt$dct_entry) ; 
oO 7073 
° 7074 { The following procedure is responsible for making sure a task which was 
°o 7075 { inserted in the MINOR timesltice position is corrected prioritized with the 
o 7076 { other tasks of the same job. This job is currently running with relative 
° 7077 { prioritization enabled. The position of tasks of other jobs can only be 
o 7078 { improved, they will never regress. 
° 7079 
Oo 7080 VAR 
o 7081 insert _ptlo: ost$task_index, 
o 7082 next search _ptilo: ost$task_index, 
oO 7083 save _ ptilo: ost$task_index, 
o 7084 search _ptilo: ost$task_index, 
o 7085 search_xcbh: Aost$execut ion _control_ block; 
oO 7086 
° 7087 { Insert_ptlo is the most recently moved ptio. 
oO 67088 { Search_ptio is the task which we are currently testing for 
© 7089 { possible movement. 
o +7090 { Save_ptio is the last task which was NOT moved. 
o 7091 
° 7092 insert_ptilo = ptilo; 
oO 7093 search ptlo := dcte.queue_ head; 
oO 7094 save _ptlo :: 0; 
Oo 7095 
° 7096 { Tne task has been positioned in the DCT. Now, all the tasks of that 
o 7097 { job (currently in DCT) must be prioritized. The task has been placed 
© 7098 { in the minor priority position. Tasks above that point are checked to 
° 7099 { determine if any of them have to be moved below the new task. If the 
fo) 7100 { task is in the same job, and has a lower relative priority, the task is 
Oo 7101 { moved below the new task. 
o 7102 
o 7103 WHILE (search_ptilo <> ptio) DO 
oO 7104 next search _ ptlo := tmv$ptil_pA [search_ptlo].pti_thread; 
o 7105 IF (tmv$pti_p% [search_ptlo].ijl_ordinal = tmv$pti_p4 [ptio].ijl_ordinal) THEN 
oO 7106 search_xcb := #ADDRESS (1, ijl_p4.ajl_ordinal + mtc$job_fixed_ segment, 
Oo 7107 tmv$pt1_p4 [search_ptlo].xcb_offset ) ; 
Oo 7108 IF (search _xcbA.relative_task_priority < relative_priority) THEN 
o 7109 IF search_ptio = dcte.queue head THEN 
o 7110 dcte.queve head := tmv$pti_p4 [search_ptio].pti_thread; 
oO 7111 ELSE 
oO 7112 tmv$pti_p4 [save_ptio].ptl_thread := tmv$pti_p4A [search_ptilo].pt1_thread; 
oO 7113 IFEND ; 
Oo 7114 tmv$pti_pA [search_ptlo].pti_thread = tmv$pti_p4 [insert_ptilo] .pt1l_thread; 
oO 7115 tmv$pti_pA [insert_ptlo].pti_thread := search _ptio; 
oO 7116 insert _ptlo := search _ptilo; 
° 7117 ELSE 
° 7118 save _ ptlo := search_ptio; 
o 7119 IFEND; 
o 7120 ELSE 
oO 7121 save _ptlo := search _ptio; 
©} 7122 IFEND; 
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o 7123 search ptlo := next _ search _ptlo; 
oO 7124 WHILEND; 
o 7125 
fe) 7126 IF insert_ptilo <> ptilo THEN 
° 7127 
ce 7128 { One or more tasks have been moved below the new task. 
oO 7129 
° 7130 IF dcte.minor_priority = dcte.major_priority THEN 
° 7131 dcte.major_ priority = insert _ptilo; 
Oo 7132 IFEND; 
oO 7133 IF tmv$pti1_pA [insert_ptio].ptl_thread = © THEN 
+?) 7134 dcte.queue tail := insert _ptilo; 
Oo 7135 IFEND; 
° 7136 dcte.minor_ priority := insert_ptio; 
oO 7137 ELSE 
Oo 7138 
° 7139 { There were not any tasks moved betow the new task. We must now check to 
° 7140 { see if there are any tasks below the new task, which have a relative priority 
° 7141 { higher than the new task. A search is made of all of the tasks below the new 
° 7142 { task, the new task is moved below the last task (of the same job) which 
© 7143 { has a higher relative priority than the new task. 
o 7144 
o 7145 insert _ptlo := 0; 
oO 7146 search_ptlo = tmv$ptil_pA [ptio].pti_thread; 
© 7147 WHILE search _ptio <> 6o DO 
oO 7148 IF (tmv$pti_p4 [search _ptlo].ijl_ordinal = tmv$pti_p4 [ptio].ijl_ordinal) THEN 
Oo 7149 search _xcb := #ADDRESS (1, ijl_p4.ajl_ordinal + mtc$job_fixed segment, 
o 7150 tmv$pt1_p4 [search_ptlo]) .xcb_offset ) ; 
o 7151 IF (search_xcbA.relative_task_priority >» relative priority) THEN 
° 7152 insert ptio := search_ptio; 
o 71853 IFEND; 
o 7154 IFEND; 
o 7155 search_ptio := tmv$pti1_pA [search_ptlo].pti_thread; 
o 7156 WHILEND; 
o 7157 
o 7158 IF insert _ptito <> O THEN 
o 7159 IF ptlo = dcte.queue head THEN 
o 7160 dcte.queue head := tmv$pti_pA [ptilo].ptl_thread; 
oO 7161 IFEND; 
° 7162 IF ptlo = dcte.minor_ priority THEN 
, o 7163 dcte.minor_priority := tmv$pti_p4 [ptilo].pti_thread; 
o 7164 IFEND; 
Oo 7165 IF insert _ptlo = dcte.major_ priority THEN 
o 7166 dcte.major_ priority := ptio; 
oO 7167 IFEND; 
oO 7168 tmv$ptl_pA [save_ptio].ptl_tnread := tmv$pti_pA [ptio].pti_thread; 
o 7169 tmv$pti_p4 [ptilo].pti_thread := tmv$pt1_p4A [insert_ptio].ptl_thread; 
oO 7170 tmv$ptl_p4 [insert _ptio].ptl_thread := ptilo; 
o 7171 IF tmv$pti_pA [ptio].pti_thread = 0 THEN 
oO 7172 dcte.queue tail := ptilo; 
oO 7173 IFEND; 
o 7174 IFEND; 
Oo 7175 IFEND; 
Oo 7176 
‘ oO 7177 PROCEND relative _ insert minor dct; 
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o 71783 
o 7180 PROCEDURE [INLINE] relative_insert major_dct 
o 7181 ( relative_priority: 0 .. 255; 
o 7182 ptilo: oest$task_ index; 
o 7183 ijl_p: Ajmt$initiated job_list_entry; 
o 7184 VAR dcte: tmt$dct_entry); 
o 7185 
ce] 7186 { The following procedure is responsible for making sure a task which was 
° 7187 { inserted in the MAJOR timeslice position is corrected prioritized with the 
© 7188 { other tasks of the same job. This job is currentiy running with relative 
© 7189 { prioritization enabied. The position of tasks of other jobs can only be 
© 7190 { improved, they will never regress. 
o 7191 
° 7192 VAR 
o 7183 insert_ptlo: ost$task_ index, 
o 7194 next _search_ptio: ost$task_index, 
o 71395 save_ptio: ost$task_index, 
oO 7196 search _ptilo: ost$task_index, 
oO 7197 search _xcbh: Aost$execution_ control block; 
Oo 7198 
Oo 7199 { Insert_ptilo is the most recently moved ptio. 
ce) 7200 { Search_ptilo is the task which we are currentiy testing for 
o 7201 { possible movement. 
oO 7202 { Save_ptlo is the last task which was NOT moved. 
oO 7203 
o 7204 insert _ptio :: ptio; 
ce) 7205 search _ptio = dcte.queue head; 
.e) 7206 save_ptlo := 0; 
oO 7207 
te) 7208 { The task has been positioned in the DCT. Now, all the tasks of that 
o 72093 { job (currently in OCT) must be prioritized. The task has been piaced 
Oo 7210 { in the major priority position. Tasks above that point are checked to 
3° 7211 { determine if any of them have to he moved below the new task. If the 
oO +7212 { task is in the same job, and has a lower relative priority, the task is 
o 7213 { moved below the mew task. 
o 7214 
oO 7215 WHILE (search ptilo <> ptio) DO 
° 7216 next search ptlo := tmv$pti1_pA [search_ptlo].pt1_thread; 
o 7217 IF (tmv$pti_pA [search_ptio].ijl_ordinal = tmv$pti_p4 [ptilo].ijl_ordinal) THEN 
Oo 7218 search _xcb := #ADDRESS (1, ijl_p4.ajl_ordinal + mtc$job_fixed_ segment, 
o 7219 tmv$pt1_pA [search _ptlo] .xcb_offset}); 
°o 7220 IF (search_xcbA.relative task_priority < relative priority) THEN 
oO T7221 IF search _ptio = dcte.queue head THEN 
o 7222 dcte.queve_head := tmv$pti_pA [search_ptlo].pti_thread; 
Oo 7223 ELSE 
o 7224 tmv$pti_pA [save_ptlo].pti_thread := tmv$ptil_pA [search_ptlo].pti_thread; 
oO 7225 IFEND; 
o 7226 IF search_ptio = dete.minor_ priority THEN 
oO 7227 dadcte.minor_priority := tmv$pti1_p4 [search_ptio].ptl_thread; 
Oo 7228 IFEND; 
o 7223 tmv$pti_pA [search_ptlo].pti_thread := tmv$pti1_p4 [insert_ptlo].pti_thread; 
© 7230 tmv$pt1l_p4 [insert_ptilo].pti_thread = search _ptio; 
° 7231 insert ptilo := search _ptio; 
oO $7232 ELSE 
© 7233 Save_ptilo = search_ptilo; 
oO 7234 IFEND; 
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o 7235 ELSE 

ce) 7236 Save_ptlo := search _ptlo; 

oO 7237 IFEND; 

o 7238 search _ptilo := next search _ptilo; 

o 7239 WHILEND; 

Oo 7240 

oO 7241 IF insert _ptio <> ptilo THEN 

© 7242 decte.major_priority := insert ptio; 

Oo 7243 IF tmv$pti_p4 [insert_ptilo].ptl_thread = 0 THEN 

re) 7244 dcte.queue tail := insert _ptio; 

o 7245 IFEND; 

Oo 7246 ELSE 

oO 7247 

° 7248 { There were not any tasks moved below the new task. We must now check to 

o 72438 { see if there are any tasks below the new task, which have a relative priority 
° 7250 { higher than the new task. A search is made of all of the tasks below the new 
© 7251 { task, the new task is moved below the last task (of the same job) which 

© 7252 { has a higher relative priority than the new task. 

o 7253 

° 7254 insert ptio := 0; 

o 7255 search ptlo := tmv$pti_pA [ptio].ptil_thread; 

Oo 7256 WHILE search _ptio <> 0 DO 

Oo 7257 IF (tmv$pti_pA [search _ptio].ijl_ordinal = tmv$pti_p4 [ptilo].ijl_ordinal) THEN 
o 7258 search_xcb := #ADDRESS (1, ijl_pA.ajl_ordinal + mtc$job_fixed segment, 
o 7259 tmv$pti_pA [search_ptlo].xcb_offset); 

o 7260 IF (search_xcbA.global_task_id <> tmv$null_global_task_id)}) AND 

o 7261 {search xcbA.relative_task priority > relative priority) THEN 
oO 7262 insert _ptilo := search_ptilo; 

o 7263 IFEND; 

Oo 7264 IFEND ; 

o 7265 search ptlo := tmv$ptil_pA [search _ptio].ptl_thread; 

Oo 7266 WHILEND ; 

o 7267 IF insert _ptilo <> O THEN 

o 7268 IF ptio = dcte.quevue head THEN 

o 7269 dcte.queue_ head := tmv$pti_p4A [ptilo].pti_thread; 

o 7270 IFEND ; 

Oo 7271 IF ptlo = dcte.minor priority THEN 

Oo %7272 dcte.minor_priority := tmv$pti_p4 [ptio].ptl_thread; 

o 7273 IFEND ; 

o T1274 IF ptlo = dcte.major_ priority THEN 

o 7275 dcte.major_priority :* tmv$pti1_p4 [ptio] .ptl_thread; 

o 7276 IFENO; 

Oo 7277 tmv$ptl_p4 [save_ptio].pti_thread := tmv$pti_p4 [ptio].pti_thread; 
Oo 7278 tmv$ptil_p4 [ptlo].pti_thread := tmv$ptl1_p4 [insert _ptlo].pti_thread; 
o 7279 tmv$pti_pA [insert _ptlo].pti_thread := ptio; 

o 7280 IF tmv$pti_pA [ptio].ptl_thread = © THEN 

o 7281 dcte.queve tail := ptilo; 

o 7282 IFEND; 

o 7283 IFEND; 

o 7284 IFEND; 

o 7285 

o 7286 PROCEND relative _insert_major_dct ; 
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oO 7288 

o 7289 PROCEDURE [INLINE] relative_insert_taiil_det 

o 7290 ( relative priority: © .. 255; 

oO 7291 ptlo: ost$task_index; 

° 7292 ijle_p: AjmtS$initiated_job_list_entry; 

° 7293 VAR dete: tmt$dct_entry) ; 

° 7294 

° 7295 { The new task has been placed at the tail of the DCT. 

oO 7296 { All of the tasks in the DCT are scanned. Any tasks (of the 

Oo 7237 { same job) which have a lower relative priority than the new 

fe} 7298 { task, are moved below the new task. 

° 7299 

1?) T7300 VAR 

o 7301 insert _ptlo: ost$task_index, 

oO 7302 next search _ptilo: ost$task_index, 

oO 7303 save_ptilo: ost$task_index, 

oO 7304 search ptlo: ost$task_index, 

oO 7305 search _xcb: Aost$execution_ control block; 

Oo 7306 

o 7307 { Insert _ptlo is the most recently moved ptio. 

° 7308 { Search _ptilo is the task which we are currently testing for 

o 7309 { possible movement. 

oOo 7310 { Save_ptlo is the last task which was NOT moved. 

3° 7311 

° 7312 search _ptilo = dcte.queue head; 

3° 7313 save _ptilo := 0; 

© 7314 insert _ptilo = ptilo; 

Oo 7315 

oO 7316 

oO 7317 WHILE (search _ptlo <> ptilo) DO 

oO 7318 next search ptlo := tmv$pti_pA [search _ptio].pti_thread; 

o 7319 IF (tmv$pti1_pA [search_ptilo].ijl_ordinal = tmv$ptl_pA [ptilo].ijl_ordinal) THEN 

oO 7320 search_xcb :=: #ADDRESS (1, ijle_p’.ajl_ordinal + mtc$job_fixed segment, 

oO 7321 tmv$pt1_pA [search_pt1o].xcb_offset); 

oO 7322 IF (search_xcb” .relative_task_priority < relative_priority) THEN 

o 7323 IF (search _ptilo = dcte.queue_head) THEN 

Oo 7324 dcte.queue_ head := tmv$pti_p4 [search_ptlo] .pt1l_thread; 

+?) 7325 IFEND; 

° 7326 IF (search_ptlo = dcte.minor_priority) THEN 

oO 7327 dcte.minor_priority := tmv$pti_p4 [search_ptio].pti_thread; 

oO 7328 IFEND; 

o 7329 IF (search ptlo = dcte.major_priority) THEN 

Oo 7330 dcte.major_ priority := tmv$pti_p4 [search_ptio].pt1l_thread; 

fe) 7331 IFEND ; 

oO 7332 IF save_ptio <> © THEN 

oO 7333 tmv$pti1_pA [save_ptio].ptil_thread := tmv$pt1_p4 [search_ptilo].pt1]_thread; 

oO 7334 IFEND; 

Oo 7335 tmv$pti_pA [search_ptlo].pti_thread =O; 

Oo 7336 tmv$pti_pA [insert_ptlo].ptl_thread = search_ptio; 

oO 7337 insert _ptlo := search_ptio; 

° 7338 ELSE 

© 7339 Save_ptilo := search _ptio; 

© 7340 IFEND; 

° 7341 ELSE 

GC 7342 save _ptto := search _ptlo; 

fe) 7343 IFEND; 
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oO 7344 search _ptlo : = next _search_ptio; 

° 7345 WHILEND; 

° 7346 

°o 7347 dcte.queve tail := insert_ptio; 

© 7348 

o 7349 PROCEND relative _insert_taii_dct ; 
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.*) 7351 

3 7352 PROCEDURE [INLINE] insert_ijl 

o 7353 ( taskid: ost$global_task_id; 

o 7354 cst_p: Aost$cpu_state_tablie); 

5° 7355 

o 7356 { 

° 7357 { The purpose of this procedure is to insert the selected 

ce) 7358 { task’s PTL entry in the IJL thread for it’s job. The 

© 7359 { first task in the IJL thread is the job monitor task. 

3 7360 { 

o 7361 { INSERT_IJL (TASKID) 

ce) 7362 { 

o 7363 { TASKID : (INPUT) This parameter specifies the taskid of 

° 7364 { of the specified task. 

o 7365 { 

Oo 7366 { NOTE : Anyone calling this routine must have tmv$ptl_lock set. 
o 7367 { 

.) 7368 

o 8673693 tmv$ptl_pA [taskid.index].ijl_thread :: tmv$pti1_p4 [cst_p’.ijle_p%. job_monitor_taskid.index].ijl_thread; 
oOo 7370 tmv$pti_pA [cst_pA.ijle_p%. job_monitor_taskid.index].iji_thread := taskid. index; 
© 7371 

0 7372 PROCEND insert_ijl; 
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Oo 7374 
oO 67375 PROCEDURE [INLINE] remove_ijl 
oO T7376 ( taskid: ost$global_task_id; 
o 7377 cst_p: Aost$cpu_state_table) ; 
oO 7378 
o 73798 
o 867380 { 
3° 7381 { The purpose of this procedure is to remove the PTL 
° 7382 { entry for the specified task from the IJL thread. 
o 7383 { 
o 7384 { REMOVE IJL (TASKID) 
o 7385 { 
© 7386 { TASKID : (INPUT) This parameter specifies the taskid 
o 7387 { of the selected task. 
o 867388 { 
° 7389 { NOTE : Anyone calling this routine must have tmv$pti_lock set. 
o 7390 { 
o 7391 
o 7392 VAR 
Oo 7333 last _ptilo, 
o 7394 curr ptilo: ost$task_index; 
o 7395 
o 7396 
Oo 73387 
Oo 7398 Vast _ptlo := 0; 
o 7399 curr ptio = cst _pA.ijie pA. job_monitor_taskid. index; 
o 7400 
oO 7401 /search_loop/ 
o 7402 WHILE curr _ptio <> Oo DO 
Oo 7403 IF curr_ptilo = taskid.index THEN 
oO 7404 EXIT /search_loop/; 
oO 7405 IFEND; 
oO 7406 last ptlo : = curr_ptio; 
oO 7407 curr _ptlo := tmv$ptl_p4 [last_ptlo].iji_thread; 
oO 7408 WHILEND /search_loop/; 
° 7409 
oO 7410 tmv$pti_pA [last_ptio].ijl_thread := tmv$pti_p4 [curr_ptlo].ijli_thread; 
oO 7411 tmv$pti_p4A [curr _ptio].ijl_thread :=: 0; 
oO 7412 
_ Oo 7413 PROCEND remove_ijl; 
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PROCEDURE [XDCL] tmp$find_xcb 
( taskid: ost$global_task_id; 
VAR xcb_p: Aost$execution_control block; 
VAR ijle_p: Ajmt$initiated_job_list_entry; 
VAR status: syt$monitor_status); 
{ 
{ The purpose of this request is to get the pointer to the execution control 
{ block of a specified task. If the job is Swapped but I0 has not been initiated 
{ an aji entry is assigned to allow access to the xcb. Otherwise an 
{ error is returned. 
{ 
{ TMPSFIND_ XCB (TASKID, XCB_P, IJLE_P, STATUS) 
{ 
{ TASKID (INPUT) This parameter specifies the taskid of the 
{ selected task. 
{ 
{ XCB_P (OUTPUT) This parameter specifies the pointer to the 
{ execution control block. 
{ 
{ IJLE_P (OUTPUT) This parameter specifies the pointer to the 
{ initiated job list entry. 
{ 
{ STATUS (OUTPUT) This parameter specifies the request status. 
{ 
{ NOTE This procedure will lock the ajl entry of the job if xcb access is 
{ possible. It is the callers responsibility to unlock the ajl with 
{ acall to jmp$free_ajl_entry. 
VAR 
inhibit access: boolean; 
status.normal := TRUE; 
tmp$set_lock (tmv$pti1_tlock) ; 
tmp$check_taskid_with_lock_set (taskid, tmc$opt_ return, status); 
IF NOT status.normal THEN 
tmp$ciear_lock (tmv$pti1_lock); 
RETURN; 
IFEND; 
imp$get_ijle_p (tmv$pti1_p4 [taskid.index].ijl_ordinal, ijle_p); 
tmp$get_xcb_access_ status (ijle_p, tmv$pt1_p4 [taskid.index].ijl_ordinal, inhibit access); 
IF inhibit access THEN 
mtp$set_ status abnormal (’TM’, tme$job_swapped_ out, status); 
ELSE 
xcb_p :: #ADDRESS (1, ijle_p4.ajl_ordinal + mtc$job_fixed_ segment, tmv$pti1_p4 [taskid.index]. 
xcb_offset) ; 
IFENO; 
tmp$clear_tock (tmv$ptl_loeck) ; 
PROCEND tmp$find_xcb; 
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PROCEDURE [XDCL] tmp$get_xcb_p 
( taskid: ost$global_task_id; 
VAR xcb_p: Aost$execut ion _controi_block; 
VAR ijle_p: Ajmt$initiated _job_list_entry) ; 


The purpose of this request is to get a pointer to the XCB of the 
specified by a global task id (GTID). If the GTID is invalid, 
with an ‘taskid error’. If the taskid is valid but the task 
a NIL pointer is returned. A pointer to the initiated job 
returned. 


tmp$get_xcb p (taskid, xcb_p, ijle_p); 
TASKIO: (input) This parameter specifies the GTID of the task to be 
XCB_P: (output) This parameter contains a pointer to the XCB of the 
task. If the task is Swapped out, a NIL pointer is returned. 
IJLE_P: (output) This parameter contains a pointer to the initiated 
entry of the job. 
NOTE: This procedure will increment the ajl in use count or assign 


xecb access is possible. It is the callers responsibility to 
with a call to jmp$free_ajl_entry. 


VAR 
inhibit. access: boolean; 
tmp$set_lock (tmv$pt1_lock) ; 
tmp$stop_if_bad_taskid-(taskid); 
imp$get_ijle_p (tmv$pti_p’ [taskid.index].ijl_ordinal, ijle_p); 
tmp$get_xcb_access_status 
IF inhibit access THEN 
xcbp := NIL; 
ELSE 
xcb_ p := #ADDRESS 
xcb_offset ) ; 


{ijjie_p, tmv$pti_paA 


(1, ijle_pA.ajl_ordinal 


IFEND; 


tmp$ciear_lock (tmv$pti_lock) ; 


PROCEND tmp$get_xcb_p; 


the system 
1S Swapped out, 
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inhibit_access) ; 
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Oo 7516 
o 7517 PROCEDURE [XDCL] tmp$test_get_xcb_p 
o 7518 ( taskid: ost$global_task_id; 
o 7519 VAR xcb_p: Aost$execution control block; 
o 7520 VAR ijle_p: Ajmt$initiated_job_list_entry); 
o 7521 
°o 7522 { NOTE: This procedure will increment the ajl in use count or assign an aji if 
© 7523 { xcb access is possible. It is the callers responsibility to decrement it 
Oo 7524 { with a call to jmp$free_ajil_entry. 
o 7525 
Oo 7526 VAR 
o 7527 inhibit _access: boolean; 
oO 7528 
Oo 7528 tmp$set_lock (tmv$pt1_lock) ; 
42 7530 
42 7531 IF (taskid = tmv$null_gloebal_task_id) OR (taskid.index > UPPERBOUND (tmv$pti_p‘)) OR 
84 7532 (tmv$pti_p4 [taskid.index].sequence mumber <> taskid.seqno) OR 
84 7533 (tmv$pti_pA [taskid.index].status = tmc$ts_nul1) THEN 
84 7534 xcb p := NIL; 
&4 7535 ijle_p := NIL; 
gC 7536 ELSE 
9C 7537 imp$get_ijle_p (tmv$pti_p4 [taskid.index].ijl_ordinal, ijle_p); 
gc 7538 
9c 7539 tmp$get_xcb_access_status (ijle_p, tmv$pti1_p’ [taskid.index].ijl_ordinal, inhibit access) ; 
14C 8697540 IF inhibit access THEN 
154 7541 xcb_p := NIL; 
164 7542 ELSE 
164 7543 xcb_p := #ADDRESS (1, ijie_p%.ajl_ordinal + mtc$job_fixed_segment, tmv$pti_p’% [taskid.index]. 
196 7544 xcb_offset); 
196 7545 IFEND ; 
196 7546 IFEND; 
196 7547 tmp$clear_lock (tmv$pti_tlock); 
1CAa 7548 
1CA 7549 PROCEND tmp$test_get_xcb_p; 
SOURCE LIST OF tmm$dispatcher NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 


TMP$GET_TOP_OF_STACK 


oo0oo0o0g0goooo0oocoooocoo0 00 000c00 


7551 
7552 
7553 
7554 
7555 
7556 


toon Bone Eh one Ee ote Bote El ote Bate Ei ote Bote Bate] 


PURPOSE: 
This procedure is used to fetch the value of the TOP-OF-STACK pointer for a specified 
ring of a specified task? 

DESIGN: 
The valiue of the TOS register is determined from the exchange package as follows: 
If the value of TOS cannot be determined because the task is executing on another 
processor of a dual CPU system, TOS cannot be determined; a value of 2**31-1 is 
returned. 


PROCEDURE [XDCL] tmp$get_top_of_stack 
( taskid: ost$global_task_id; 
ring: ost$valid_ring; 
VAR tos: integer); 


VAR 
cst_p: Aost$cpu_state table, 
ijle_p: Ajmt$initiated job_list_entry, 
inhibit access: boolean, 
xcb_p: Aost$execution_control block; 


tmp$set_lock (tmv$pt1_ lock); 
tmp$stop_if_bad_taskid (taskid) ; 
imp$get_ijle_p (tmv$pti_p4 [taskid.index].ijl_ordinal, ijle_p)j; 


tmp$get_xcb_access_ status [(ijle_p, tmv$pt1l_p* [taskid.index].ijl_ordinal, inhibit_access) ; 
IF inhibit access THEN 
mtpSerror_ stop (’TM - XCB not accessible’); 


ELSE 
xcb p :+ #ADDRESS (1, ijle_ pA.ajl_ordinal + mtc$job_fixed_ segment, tmv$ptl1_pA [taskid. index]. 
xcbh_offset); 
IFEND; 


mtp$cst_p (cst_p)j; 


IF ((tmv$pti_pA [taskid.index].status = tmce$ts_executing) AND (cst _pA.taskid <> taskid))} OR 


(xcb_p4A.stack _pages_saved [ring] = TRUE) THEN 
tos :: FHFFFFFF( 16); { TOS cannot be determined if executing on another processor. } 
ELSEIF xcb_ pA.xp.p_register.pva.ring > ring THEN 
tos :: 0; { TOS is zero if executing in a higher ring.} 
ELSEIF xcb_pA.xp.p_register.pva.ring = ring THEN 
tos := #OFFSET (xcb_pA.xp.aoO_dynamic_space_pointer); {TOS in XP.AO is correct if in same ring.} 
ELSE 
tos := xcb_pA.xp.tos registers [ring] .pva.offset; {TOS in XP.TOS is correct if in lower ring.} 
IFEND; 


imp$uniock_ajl_with_tock (ijle_p); 
tmp$clear_lock (tmv$pt1_ilock); 


PROCEND tmp$get_top_of_ stack; 


PAGE 


PAGE 


1048 


1049 
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TMPSGET_XCB_P_FROM_PTLO 
fel 7604 : 
° 7605 { NOTE : Any procedure calling this routine must have tmv$ptl_lock set. 
Oo 7606 
o +7607 PROCEDURE [INLINE] tmp$get_xcb_p_from_pt lo 
oO 7608 ( ptlo: ost$task_index; 
o 76093 ajl_ordinal: jmt$aji_ordinal,; 
Oo 7610 VAR xcb_p: Aost$execution_control_ block) ; 
© 7611 
oO 7612 xcb_p := #ADDRESS (1, ajl_ordinal + mtc$job_fixed_ segment, tmv$pti1_p4 [ptlo].xcb_offset) ; 
oO 7613 
oO 7614 PROCEND tmp$get_xcb_p_from_pt lo; 
° 7615 
SOURCE LIST OF tmm$dispatcher NOS/VE CYBIL/II 1.0 89102 1989-08-21 
TMPSFIND NEXT_XCB 
o 7617 
te) 7618 PROCEDURE [XDCL] tmp$find_nmext_xcb 
© 76193 ( search: tmt$fnx_search_ type; 
o 7620 ijle_ p: Ajmt$initiated job_list_entry; 
ce) 7621 ijl_ordinal: jmt$ijl_ordinal; 
o 7622 VAR State: tmtS$find next _xcb state; 
Oo 7623 VAR xcb_p: Aost$execution_control_block) ; 
° 7624 
.¢) 7625 { 
QO 7626 { The purpose of this request is to scan the PTL entry for each 
o 7627 { task in a JOB or the SYSTEM and return its XCB_P. 
o 7628 { 
© 7629 { SEARCH: (INPUT) This parameter specifies the type of search to be 
° 7630 { done, JOB, SYSTEM, SWAPPING JOB, of CONTINUE 
o 7631 { previous search. 
° 7632 { 
o 7633 { IJLE_ P: (INPUT) This parameter specifies a pointer to the initiated 
oO 7634 { job list entry of the job to be searched. 
o 7635 { 
° 7636 { IJL_ORDINAL: (INPUT) This parameter specifies the initiated job list 
o 7637 { ordinal of the job to be searched. 
o 7638 { 
© 7639 { STATE: (INPUT,QUTPUT) This parameter specifies the type of search 
© 7640 { that had been started by a previous call. 
° 7641 { 
Oo 7642 { KCB _P: (OUTPUT) This parameter specifies the XCB_P of the next task 
o 7643 { in the JOB or SYSTEM. 
° 7644 { 
oO 7645 
° 7646 VAR 
© 7647 ijl_bi: jmt$ijil_block_index, 
oOo 7648 ijl_bn: jmt$ijil_block_number , 
o 7649 inhibit access: boolean, 
o 7650 next _ijle_p: AjmtSinitiated job_list_entry, 
© 7651 start index: integer; 
Oo 7652 
o 7653 tmp$set_lock (tmv$pt1_ lock); 
42 7654 
42 7655 {Initialize the search state variable if this is not a continuation search. 
42 7656 : 
42 7657 IF search <> tmc$fnx_continue THEN 
4A 7658 state.search := search; 
44 7659 IF search = tmc$fnx_ system THEN 
58 7660 state.ajl_ordinal := jmv$system_ajl_ordinal; 
58 7661 state.ijl_ordinal := jmv$system_ijl_ordinal; 
5&8 76862 state.in_use_ incremented := TRUE; 
58 7663 jimv$ajl_p4A [jmv$system_ajl_ordinal].in_use := jmv$ajl_p4 [ jmv$system_ajil_ordinal].in_use + 
58 7664 jmc$tock_ajl; 
58 7665 imp$get_ijle_p (jmv$system_ijl_ordinal, state.ijle_p); 
58 7666 state.psxt_ptlo := jmv$ajl_p4 [state.ajl_ordinal].ijie_p4.job_monitor_taskid. index; 
D2 7667 ELSE 
D2 7668 tmp$get_xcb_access status (ijle_p, ijl_ordinal, inhibit _access) ; 
164 7669 state.in_use_ incremented := NOT inhibit_access; 
164 7670 IF (search = tme$fnx_job) AND inhibit access THEN 
17C 67671 state.next ptlo := 0; 
186 7672 ELSE 
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186 7673 state.ajl_ordinal F ijle_ pA.ajil_ordinal; 
186 7674 Sstate.next ptio := ijle_ pA. job monitor taskid. index; 
186 7675 state.ijl_ordinmal := ijl_ordinal; 
186 7676 state.ijle_p := ijle_p; 
1AC 7677 IFEND; 
1AC 67678 IFEND; 
1BO 7678 
1BO0 7680 { If a full system search is in process and we have reached the end of the current job. 
1BO 7681 { Release the temporary ajl ordinal if necessary. Find the next job to be searched. 
1BO 7682 
1BO 7683 ELSEIF (state.next_ptio = ©) AND (state.search = tmc$fnx_system) THEN 
1C6 7684 
16 7685 imp$uniock_aji_with_lock (state.ijle_p); 
20C 7686 state.in_use_incremented :: FALSE; 
20C 7687 
20C 7688 start _index : = state.ijl_ordinal.biock index + 1; 
20C 7689 
20C 76390 /find_next_job/ 
20C 7691 FOR ijl_bn := state.ijl_ordinal.bliock_ number TO jmv$iji_p.max_block_in_use DO 
232 7692 IF jmv$ijl_p.bliock_ pA [ijl_bn].index_p <> NIL THEN 
244 7693 FOR iji_bi := start_index TO UPPERVALUE (jmt$ijl_block_index) DO 
24E 7694 next_ijle_p := Ajmv$ijl_p.block_ pA [ijl_bn].index_p” [ijl_bil; 
24E 7695 IF next_ijle_pA.entry_status <> jmcS$ies_entry_ free THEN 
268 7696 state.ijl_ordinal.block_index := ijl_bi; 
268 7697 Sstate.ijl_ordinal.block_mumber := iji_bn; 
268 7698 tmp$get_xcb_ access status (next_ijle_p, state.ijl_ordinal, inhibit _access) ; 
306 76993 state.in_use_incremented :: NOT inhibit _access; 
306 7700 IF NOT inhibit _access THEN 
316 7701 state.next_ptilo := mext_ijle_p’.job_monitor_taskid. index; 
316 7702 state.ajl_ordinmal := next_ijle_p4.ajl_ordinal; 
316 71703 state.ijle_p := next_ijie op; 
316 7704 EXIT /find_next_job/; 
32E 77058 IFEND ; 
32E 7706 IFEND; 
32E 7707 FOREND; 
332 7708 start index := LOWERVALUE (jmt$iji_biock_index) ; 
336 7709 IFEND; 
336 7710 FOREND /find_next_job/; 
334 7711 
33A 7712 IFEND; 
334 7713 
334 7714 IF state.next_ptlo = © THEN 
342 7715 IF state.in_use_ incremented THEN 
34A 7716 imp$unlock_ajl_with_lock (state.ijle_p); 
390 7717 state.in_use_incremented := FALSE; 
396 7718 IFEND; 
3836 7719 xcb p := NIL; 
3A6 7720 ELSE 
3A6 7721 xcb_p := #ADDRESS (1, mtc$job_fixed_segment + state.ajl_ordinal, tmv$pti_p4 [state.next_ptilo]. 
3A6 7722 xcb_offset); 
3AG6 7723 state.next_ptio := tmv$pti_p4 [state.next_ptio].ijil_thread; 
3EO 7724 IFEND ; 
3EO 7725 tmp$cilear_leck (tmv$pti_lock) ; 
41C 7726 
41C 7727 PROCEND tmp$find_next_xcb; 
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TMPSSET TASK WAIT 


ecoo0oo0o0co0o0o0o00o000000c0 


7729 
7730 
7731 
7732 
71733 
T734 
7735 


[ aoe te Bae 0 ee Tt oon 0 coe Bi oe ate) 


PROCEDURE [XDCL] tmp$set_task_wait 
( task_status: tmt$task_status) ; 


The purpose of this procedure is to change the status 

of the current task to a specified WAIT status. 
TMPSSET_TASK_WAIT (TASK_STATUS) 

TASK_STATUS : (INPUT) This parameter specifies the new task 


status. 


VAR 
est_p: Aost$cpu_state table, 
taskid: ost$global_task_id; 


mtp$cst_p (cst_p); 
tmp$set_ lock (tmv$pt 1_ilock) ; 


IF (task status >=: tmc$ts_first_external_queue) OR (tmv$pti_pA [cst_p4.taskid. 


tmc$ts_ mull) THEN 
mtp$error_ stop (’TM37 - bad call to set _ task_wait’); 


IFEND; 

IF (task_status = tmc$ts_io_wait_not_queued) THEN 
tmv$io_wait task _count :+ tmv$io_ wait _task_ count + 1; 

IFEND; 

tmv$pti_pA [cst_p4.taskid. index] .new_task_status := task_status; 

tmp$clear_lock (tmv$ptl_ lock); 

cst _pA.dispatch_control.call_dispatcher := TRUE; 

IF (cst_pA.next_ptlo_to_dispatch = ©) THEN 
cst_pA.dispatching_ priority integer := tmv$dct_priority_ integer ; 

IFEND ; 


PROCEND tmp$set_task_waitj; 
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TMPSSET_TASK_READY 
Oo 7765 
° 7766 PROCEDURE [XDCL] tmp$set_task_ready 
oO 7767 ( taskid: ost$global_task_id; 
° 7768 readying task_priority: jmt$dispatching priority; 
o 7769 ready condition: tmt$ready_ condition); 
© 7770 
° 7771 
ce] 7772 { 
fe) 7773 { The purpose of this procedure is to make a task ready either 
ce] 7774 { conditionally or unconditionally. A task can be conditionally 
° 7775 { made ready if it is currently in a wait status and can be 
ce) 7776 { unconditionally made ready irrespective of it’s current status. 
° 7777 «&{ The WAIT INHIBITED flag in the PTL iS Set if it is Specified 
o 7778 { on the request. 
o 7779 { 
° 7780 { TMPSSET_TASK_READY (TASKID, READY_CONDITION) 
° 7781 { 
o 7782 { TASKID : (INPUT) This parameter specifies the task to be made ready. 
o 7783 { 
o 7784 { REAODYING TASK_PRIORITY : (INPUT) This parameter specifies the 
oO 7785 { priority of the task which has issued the 
re) 7786 { request to ready this task. This value is only used 
° 7787 { if the task being readied has subsystem locks set. 
o 7788 { 
© 7788 { READY_CONDITION : (INPUT) This parameter specifies if the task 
o 7790 { is to be made ready conditionally or 
° 7791 { unmconditionally. 
o 7792 { 
° 7733 
° 7794 VAR 
ce) 7795 attempt _ preselection: boolean, 
° 7796 cst_p: Aost$cpu_state_table, 
° 77397 old dispatching priority: jmt$dispatching priority, 
ce) 7798 ijle_p: Ajmt$initiated_job_list_entry, 
o 867799 null_dispatching_info: jmt$dispatching control info, 
o 7800 psuedo rb: tmt$rb_update_ job _task_enviro, 
oO 7801 ptl_p: Atmt$primary task_list_entry, 
o 7802 xcb_p: Aoest$execution_controi_biock, 
cel 7803 task_priority changed: boolean; 
o 7804 
o 7805 
Oo 7806 tmp$set_lock (tmv$ptl_ lock) ; 
42 7807 tmp$stop_if_bad_taskid (taskid) ; 
A8& 7808 pti_p := Atmv$ptil_pA [taskid. index] ; 
A& 7809 imp$get_ijle_p (pti_p%.ijl_ordinal, ijle_p); 
As 7810 xcb p := #ADDRESS (1, mtc$job_fixed_segment + ijle_p4.ajl_ordinal, ptil_pA.xcb_offset); 
A8 7811 
A&B 7812 IF (ijle_pA.interactive_task_gtid += taskid) THEN 
FE 7813 psuedo rb.reqcode := syc$rc_update_job_task_enviro; 
FE 7814 psuedo_rb.subcode := tme$ujte_dispatching priority; 
FE 7815 psuedo rb.request_origin := tmec$cpo_interact ive command, 
FE 7816 psuedo rb.ijl_ordinal := pti_p’*.ijl_ordinal; 
FE 7817 psuedo rb.system_supplied name := ijie_pA.system_supplied_ name, 
11E 7818 psuedo rb.dispatching control_info := nulil_dispatching info; 
11E 7819 old_ dispatching priority :* ijle pA.dispatching control.dispatching priority; 
11E 7820 mtp$cst_p (cst_p); 
SOURCE LIST OF tmm$dispatcher NOS/VE CYBIL/II 1.0 88102 1989-08-21 13:33:34 
TMPSSET_TASK_READY 
134 7821 tmp$mtr_update_job_task_enviro (psuedo_rb, cst_p); 
164 7822 IF (ijle_pA.dispatching_control.dispatching priority <> old_ dispatching priority) AND 
117A 7823 (ijle_pA.entry_ status = jmc$ies_swapin_candidate) THEN 
17A 7824 imv$subsystem_priority changes [ijletp%.job_scheduler_data.service_ class] :: TRUE; 
17A 7825 imp$set_scheduler_event (jmc$subsystem_priority change) ; 
198 7826 IFEND ; 
198 7827 ijle_pA.interactive_task_gtid := tmv$nu1l1_global_task_id; 
1A4 7828 IFEND; 
1A4 7829 
144 7830 { Tasks with subsystem locks set will execute with the higher 
1A4 7831 { of the task’s or the "readying" task’s priority, after it 
1A4 7832 { has run for the subsystem lock threshold with a priority of PQ. 
1A4 7833 
1A4 7834 task_priority_changed :=: FALSE; 
1A4 7835 
1A4 7836 IF (readying task_priority <> ©) AND ((pt1_p4.pti_flags.subsystem_locks_set) OR 
1CE 7837 ((ptil_pA. idle _ status < tmce$is_idied) AND (xcb_pA.system_table_lock_count > 0)}))) THEN 
1cCE 7838 IF readying task_priority > ptl_pA.readying task_priority THEN 
1DA 7839 ptl_pA.readying task _ priority := readying task_priority; 
1DA 7840 task_priority changed := TRUE; 
1E2 7841 IFEND; 
1E2 7842 IF ijle_pA.scheduling dispatching priority < readying_task_priority THEN 
1F2 7843 ijlie_pA.scheduling dispatching priority :* readying _task_priority; 
1F2 7844 imp$subsystem_priority change (ijile_p); 
208 7845 IFEND; 
20C 7846 IFEND ; 
20C 7847 
20C 7848 IF (ptil_pA.status = tmc$ts_executing) OR (ptil_pA.status = tmc$ts_ready and selected) THEN 
21C 7849 IF pti_pA.new_task_status < tmc$ts_first_ready uncond THEN 
226 7850 ptl_p4A.new_task_ status :* tmc$ts_ null; 
22H 7851 IFEND; 
22E 7852 
22E 7853 ELSEIF pti_p4A.status = tmc$ts_ready THEN 
232 7854 
232 7885 { If the task being readied has subsystem tocks set, it must be 
232 7856 { removed from the ready string and reinserted. It is possibile 
232 7857 { that the task will execute at a different priority depending 
232 7858 { on how tong the task has had subsystem locks set, and 
232 7859 { the priority of the readying task. 
232 7860 
232 7861 IF task_priority_ changed AND (xcb_p%.system_table_ lock count > ©) AND 
254 7862 ({xcb_pA.system_table_lock_ count < osc$system_table_lock_ set) AND 
254 7863 (xcb_pA.subsystem_lock_ priority count >: tmv$subsystem_prior_ threshold) THEN 
254 7864 tmp$remove_task_from_dct (taskid. index); 
3cé 7865 attempt preselection := (ijle_pA.multiprocessing_ allowed) OR (ijle_pA.executing task count = 0}; 
*WARN* 7866 tmp$dct_ready task (xcb_p, ijle_p, taskid.index, attempt preselection) ; 
Dpoc 7867 IFEND; 
D1iO 8 8=— 7868 
D1O0)06=—: 7869 ELSEIF pti_pA.status < tmc$ts_ready_ but swapped THEN 
016 7870 
D16 7871 { If the task is in the timed wiat queue, take it out. Adjust the tasks _not_in_long wait count based upon 
D16 7872 { the task status. If the job the task belongs to is sSwapped, call scheduler to swap the job in. If the 
D16 7873 { job is in memory, insert the task into the DCT. 
D116 7874 
DiG 7875 
D116 7876 IF pti_pA.status <= tmc$ts_ last _status_in_wait oq THEN 
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Dic 7877 tmpS$remove_task_from_q (pti_p, tmv$timed_wait_queue) ; 

D66 7878 IF (ptl_pA%.status = tmc$ts_ timeout regexp _longviong) THEN 

078 7879 ijle_pA.statistics.tasks not_in__long wait := ijle_pA.statistics.tasks_not_in_long wait + 1; 

D&8& 7880 IFEND; 

D&A 7881 ELSE 

D&A 7882 IF (ptil_pA.status = tmce$ts_ timeout _reqexp_infviong) OR (ptil_pA.status = 

DS& 7883 tmce$ts_timed_wait_not_ queued) THEN 

DSGE 7884 ijle_pA.statistics.tasks_mot_in_long wait := ijle_pA.statistics.tasks_not_in_long wait + 1; 

DAG 7885 IFEND; 

DAS 7886 IFEND; 

DAA 7887 

DA4 7888 IF pti_pA.idle status = tme$is_idied THEN 

DAE 7889 ijle_pA.statistics.ready task_count ::= ijle_pA.statistics.ready_task_count + 1; 

DAE 7890 ptl_pA.status := tmc$ts_ ready _ but swapped; 

DAE 7891 ptl_pA.idile_ status := tmc$is_idied sched notified; 

DAE 7892 jmp$ready task_in_swapped_job (ptil_p4.ijl_ordinal, ijle_p); 

DE4 7893 ELSEIF ptil_pA.idie status < tme$is_idied THEN 

DES 7894 ijle_pA.statistics.ready_task_count :: ijle_pA.statistics.ready_task_count + 1; 

DES 7895 pti_pA.status := tmce$ts_ready; 

DES 7896 imv$aji_p”% [ijle_pA.ajl_ordinal].job_is_good_swap_candidate := FALSE; 

DE& 7897 attempt preselection := (ijle_pA.multiprocessing allowed) OR (ijle_p4.executing task count = 0); 
*WARN= 7898 tmp$dct_ready_task (xcb_p, ijle_p, taskid.index, attempt_preselection) ; 

170A 7899 IFEND; 

170A 7900 

1704 7901 ?IF NOT debug THEN 

170A 7902 IF miv$c170 rqst_bik.req <> NIL THEN 

171C 7903 IF taskid = miv$c170_rqst_blik.reqs.task_id THEN 

1728 7904 mtv$mli_status.ready : = TRUE; 

1730 67905 IFEND ; 

1730 7906 IFEND; 

1734 71907 ?IFEND 

1734 7908 

1734 7909 ELSEIF ptil_pA.status = tmce$ts_ready_but_swapped THEN 

1738 7910 jmp$ready_task_in_swapped_job (ptil_p’.ijl_ordinal, ijle_p); 

1754 7911 IFEND; 

1754 7912 

1754 7913 IF ptl_pA.status = tmc$ts_segment_lock_wait THEN 

175E 7914 remove_task_from_seg_lock_q (taskid, ijle_p, ptil_p); 

1774 7915 IFEND; 


1774 7917 {The ‘wait_inhibited’ flag in the PTL is set to tmc$wi_wait_selected only after 
1774 7918 {the successful completion of a wait request. This prevents potential timing 
1774 78138 {conflicts between ready _ task and wait requests. 


1774 7921 IF (ready condition = tmce$rc_ready_conditional_wi) AND 
17990 7922 (NOT (ptl_pA.ptl_filags.wait_ inhibited = tmc$wi_wait selected) AND 
1790 7923 NOT (ptl_pA.ptil_flags.wait_inhibited = tmc$wi_wait_selected_r3)})) THEN 
1790 7924 pti _pA.ptl_flags.wait_inhibited := tmc$wi_wait_inhibited; 
1798 7925 IFEND; 
1798 79326 ijle_ pA. long wait _aging complete := FALSE; 
1798 7927 tmp$cilear_lock (tmv$pti_lock) ; 
17D6 7928 
1706 7929 PROCEND tmp$set_task_ready; 
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fe) 7931 
oO 17932 PROCEDURE [XDCL] tmp$set_task_ready_uncond 
oO 7933 { taskid: ost$globai_task_id; 
o 7934 task_status: tmt$task_status) ; 
° 7935 
°) 7936 
o 7937 { The purpose of this procedure is to unconditionally ready the 
° 7938 { specified task. The task to be readied must be in the task 
© 7939 { status specified on this request. 
o 7940 { 
° 7941 { TMPSREADY TASK _ UNCONDITIONAL (TASKID, TASKSTATUS) 
o 7942 { 
Oo 7943 { TASKID : (OUTPUT) This parameter specifies the taskid of the 
o 7944 { task to be readied. 
° 7945 { 
o 7946 { TASKSTATUS: (INPUT) This parameter specifies the current status 
oO 7947 { of the task. 
° 71948 
fe] 7949 VAR 
© 79350 attempt preselection: boolean, 
o 7951 ijle_p: Ajmt$initiated_job_list_entry, 
o 7952 xcb_p: Agst$execution_control_ block, 
o 7953 pti_p: Atmt$primary_task_list_entry; 
° 7954 
°o 7955 
Oo 7956 tmp$set_lock (tmv$pt1_lock) ; 
42 7957 tmp$stop_if_bad_taskid (taskid); 
Ag 7958 pti_p := Atmv$ptil_pA [taskid. index] ; 
A& 7959 jmp$get_ijle_p (ptl_p4.ijl_ordinal, ijie_p); 
A&8 79860 IF (task_status = tmc$ts_io_wait_not_queued) THEN 
E2 7961 tmv$io_wait task count := tmv$io_wait_task_count - 1; 
EC 7962 IFEND; 
EC 7963 IF ptl_pA.status <> task status THEN 
F&8 7964 IF (pti_pA.status <> tmce$ts_executing) OR (pti_pA.new_task status <> task status) THEN 
106 7965 mtp$error_ stop (’TMS6 - task not queued’); 
126 79366 IFEND ; 
126 7967 ptl_pA.new_task_status := tmc$ts_null; 
130 7968 ELSE 
130 7969 IF ptil_pA.idie_ status = tmc$is_idied THEN 
13¢€ 71370 ijle_pA.statistics.ready task_count := ijle_pA.statistics.ready task_count + 1; 
13C 7971 pti_pA.status := tme$ts_ ready but swapped; 
13 7972 jmp$ready task_in_swapped_ job (pti_p4.ijl_ordinal, ijie_p); 
168 7973 ptl_pA.idie_ status := tme$is_idied_sched_notified; 
172 7974 ELSEIF ptil_pA.idle_ status < tmc$is_idled THEN 
176 7975 ijle_pA.statistics.ready task_count :+ ijle_pA.statistics.ready_task_count + 1; 
176 7976 ptl_p4.status := tmce$ts_ready; 
176 78377 attempt preselection := (ijle_p4A.multiprocessing allowed) OR (ijle_pA.executing _task_count = 0); 
19C 67878 xcb_p := #ADDRESS (1, mtc$job_fixed_segment + ijle_p4.ajl_ordinal, pt1_p’.xcb_offset ); 
19C 7979 tmp$dct_ready_task (xcb_p, ijle_p, taskid.index, attempt _preselection}); 
A76 7980 IFEND; 
A7& 7981 IFEND; 
A7& 7982 
A7& 7983 tmp$clear_lock (tmv$pti_tlock); 
AAA 73884 


AAA 7885 PROCEND tmp$set_task_ready uncond; 


‘SOURCE LIST OF tmm$dispatcher NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 


TMPSREISSUE MONITOR_REQUEST 


Oo 7987 
o 7988 PROCEDURE [XDCL] tmp$reissue_monitor request ; 
° 79893 
o 7990 { 
© 7991 { The purpose of this request is to cause the P register of the current task to 
ce) 7982 { be decremented by 2. This wil cause the monitor request issued by the task 
ce 799893 { toe he reissued when the task is next executed. This request does NOT change 
ce) 7994 { the status of the task or cause a task-switch. This request is intended 
i+) 7995 { to be used when the resources required to process the current request from the 
o 7996 { task are unavailable. 
o 7987 { 
o 7998 { tmp$reissue_monitor_ request ; 
o 7999 { 
° 8000 
° 8001 VAR 
© 8002 cst_p: Aost$cpu_state table; 
° 8003 
o 8004 mtp$cst_p (cst_p); 
14 8005 
14 8006 cst _ pA.xcb_ pA.xp.p_register .pva.offset := cst_pA.xcb pA.xp.p_register.pva.offset - 2; 
14 8007 
14 8008 PROCEND tmp$reissue_monitor_request ; 
o 8010 
o 8011 PROCEDURE [XDCL)] tmp$cause_task_switch; 
i) 8012 
Oo 806013 VAR 
oO 8014 cst_p: Aost$cpu_state table; 
o 8015 
© 8016 mtp$cst_p (cst_p); 
14 8017 tmp$set_lock (tmv$pt1_ lock) ; 
60 8018 IF (tmv$pti1_p4 [cst_pA.taskid.index].new_task_status > tmc$ts_nul1) AND 
82 8019 (tmv$pti1_p% [cst_pA.taskid. index] .new_task_status <> tmc$ts_timeout _reqexp_shortshrt) THEN 
82 8020 mtp$error stop (’TM38 - bad call to cause _task_switch’); 
A2 8021 IFEND ; 
A2 8022 tmv$pti_pA [cst _p4.taskid.index].new_task_status := tmce$ts_timeout_reqexp_shortshrt ; 
A2 8023 tmv$pti_p4 [cst_pA.taskid.index].end_of_wait_time := #FREE RUNNING CLOCK (0) + tmv$cycle_ delay time; 
CO 8024 cst _pA.dispatch_control.call_dispatcher := TRUE; 
co 8025 IF (cst_pA.next_ptilo_to dispatch = 0) THEN 
D6 8026 cst_p’.dispatching priority integer := tmv$dct_ priority _integer ; 
DE 8027 IFEND; 
DE 8028 
DE #80293 21F tme$debug_ cycle _requests THEN 
8030 IF (osv$debug > O} THEN 
8031 tmv$cycile_ trace [ti].code := tmce$cyc_cause_ task_switch; 
8032 tmv$cycie_ trace [ti] .time = #FREE RUNNING CLOCK (0); 
8033 tio ost ti + 1; 
8034 IF ti >» 10000 THEN 
8035 mtp$error_ stop (‘TM - trace buffer full’); 
8036 IFEND; 
8037 IFEND; 
DE 8038 ?IFEND; 
DE 8039 tmp$cilear_lock (tmv$pti_lock) ; 
110 8040 
SOURCE LIST OF tmm$dispatcher NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 
TMPSREISSUE_MONITOR_REQUEST . 
110 8041 PROCEND tmp$cause_ task _ switch; 
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1D8& 
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8099 
8100 
8101 
8102 
8103 
8104 
8105 
8106 
8107 


PROCEDURE [XDCL] tmp$queue_ task 
( taskid: ost$global_task_id; 
task_status: tmt$task_status; 
VAR queue link: tmt$task_queue_ link); 


{ 
{ The purpose of this request is to add a task to the 
{ end of a task queue. 
{ 
{ TMPSQUEUE TASK (TASKID, QUEUE LINK) 
{ 
{ TASKIO : (INPUT) This parameter specifies the taskid of 
{ the task to be placed in the queue. 
{ 
{ QUEUE LINK : (INPUT) This parameter specifies the head of 
{ the task queue. 
{ 
VAR 
cst_p: Aost$cpu_state_table, 
pti_p: Atmt$primary_task_list_entry; 
ptl_p := Atmv$pti_pA [taskid. index]; 
tmp$set_lock (tmv$pt1_lock) ; 
tmp$stop_if_bad_taskid (taskid); 
IF (pti_p4.queue_link.head <> ©) OR (pti_p%.queuve_Tink.tail <> 0) 
(queue _ link.tail = taskid.index) THEN 
mtp$error stop {’TMO2 - already queued’); 
IFEND; ; 
IF (task_status < tmce$ts_first_external queue) OR (pti_pA.new_task_ status > tme$ts_null) THEN 
mtp$error_ stop (’TM4S - bad call to queue task’); 
IFEND; 
IF queue link.tail = © THEN 
queue link.head := taskid. index; 
queue _ link.tail = taskid. index; 
ELSE 
tmv$ptil_p4 [queue_link.tail].queve_ link. head := taskid. index; 
pti_pA.queue_lTink.tail := queve_ link.tail; 
queue Tink.tail :: taskid. index; 
IFEND; 
mtp$cst_p (cst_p); 
cst_pA.dispatch_control.call_ dispatcher :: TRUE; 
IF (cst_p4.next_ptilo_to_ dispatch = 0) THEN 
cSst_p%.dispatching priority integer :: tmv$dct_priority_integer ; 
IFEND; 
IF taskid <> cst_pA.taskid THEN 
mtp$error_stop (’TM - attempt to queue task not xtask’); 
IFEND,; 
tmm$dispatcher NOS/VE CYBIL/II 1.60 89162 1989-08-21 
IF (task_status = tmc$ts_page_wait) OR (task_status = tmc$ts_io_wait_queued) THEN 
tmv$io_wait_task_count : = tmv$io_wait_task_count + 1; 
IFEND; 
ptl_p4A.new_task status :* task_status; 


tmp$ciear_lock (tmv$pt 1_iock) ; 


PROCEND tmp$queue_ task; 


1989-08-21 
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SOURCE LIST OF tmm$dispatcher NOS/VE CYBIL/II 1.0 891062 1989-08-21 13:33:34 PAGE 
TMPSDEQUEUE TASK 
o 8109 
o 8110 PROCEDURE [XDCL] tmp$dequeuvue_task 
oO 8111 (VAR queue _ Vink: tmt$task_queue_ link; 
oO 8112 VAR taskid: ost$global_task_id) ; 
ce) 8113 
oO 8114 
ce) ei1tis { The purpose of this procedure is to delink the task at the 
© 8116 { head of the task queue. 
o 8117 { 
° 8118 { TMPSDEQUEUE TASK (QUEUE LINK, TASKID) 
o 8119 { 
re) 8120 { QUEUE LINK : (INPUT,OUTPUT) This parameter specifies the head 
o 8121 { of the task queue. 
Oo 8122 { 
° 8123 { TASKID : (QUTPUT) This parameter specifies the taskid of the 
Oo 8124 { delinked task. 
o 8125 { 
oO 8126 
° 8127 VAR 
o 8128 attempt preselection: boolean, 
Oo 81298 ijle_p: Ajmt$initiated_job_list_entry, 
o 8130 xcb_p: Aost$execution_control_ block, 
° 8131 ptl_p: Atmt$primary task _list_entry; 
° 8132 
Oo 8133 
Oo 8134 tmp$set_lock (tmv$pt1_lock) ; 
42 8135 taskid.index := queue_Tink.head; 
42 8136 ptl_p := Atmv$pti_pA [taskid. index] ; 
42 8137 taskid.seqno := ptil_pA.sequence_ number ; 
42 8138 tmp$stop_if_bad_taskid (taskid) ; 
c8 8139 
C8 8140 imp$get_ijle_p (pti_p%.ijl_ordinal, ijle_p); 
c8 8141 
C& 8142 IF queue _link.nead = queue _Tink.tail THEN 
F6 8143 queue_ link. head = QO; 
FE 8144 queue_link.tail = 0; 
104 8145 ELSE 
104 8146 queue _ link.head = ptil_p%.queue_ Tink. head; 
104 8147 tmv$pti_pA [queue_link.nead].queve_ link.tail := 0; 
104 8148 ptl_p4A.queue_link.nead := 0; 
120 8149 IFENO; 
120 8150 
120 68151 IF (ptl_pA.status = tmc$ts_page_ wait) OR (pti_pA.status = tmc$ts_io_wait_queued) OR 
13E 8152 (ptl_pA.new task status = tmc$ts_page_wait) OR (pti_pA.new_task_ status = tmc$ts_io wait queued) THEN 
13E 8183 tmvSio_wait task_count := tmv$io_wait_task_ count - 1; 
148 8154 IFEND ; 
148 8155 
148 8156 IF pti_pA.status < tmc$ts_first_external queue THEN 
152 8157 IF (pti_pA.status <> tmc$ts_executing) OR (pti_p4A.new_task_status < tmc$ts_first_external_queue) THEN 
160 8158 mtp$Serror_ stop (‘TMS2 - task not queued’); 
180 8159 IFEND; 
180 8160 ptl_p%.new_task_status := tmc$ts_null; 
188 8161 ELSE 
188 8162 IF pti_pA.idie_ status = tmc$is_idied THEN 
194 8163 Tjle_pA.statistics.ready task_count := ijle_pA.statistics.ready task count + 1; 
194 8164 pti_pA.status := tme$ts_ready_ but swapped; 
SQURCE LIST OF tmm$dispatcher NOS/VE CYBIL/II 1.60 88102 1989-08-21 13:33:34 PAGE 
TMPSDEQUEUE TASK 
194 8165 ptil_pA.idle status := tmc$is_idied sched _ notified; 
194 8166 jmpS$ready_task_in_swapped_job (pti_p4.ijl_ordinal, ijle_p); 
1CA 8167 ELSEIF ptil_pA.idie status < tmc$is_idied THEN 
1CE 8168 ijle_pA.statistics.ready_task_count := ijle_ pA.statistics.ready task _ count + 1; 
1CE 8169 ptl_pA.status :-= tmc$ts_ready; 
1CE 8170 xcb_p := #ADDRESS (1, mtc$job_fixed_ segment + ijle_p4A.ajl_erdinal, ptl_p4%.xcb_offset) ; 
1CE 8171 attempt preselection := (ijle_pA.multiprocessing allowed) OR (ijle_pA.executing task_count = 0); 
20C 8172 tmp$dct_ready_ task (xcb_p, ijle_p, taskid. index, attempt preselection) ; 
ABS& 8173 IFEND; 
ABS 8174 IFEND; 
ABS 8175 
ABS 8176 tmp$clear_lock (tmv$pti1_lock); 
AEA 8177 
AEA 8178 PROCEND tmp$dequeue task; 
° 8173 
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SOURCE LIST OF tmm$dispatcher NOS/VE CYBIL/II 1.0 88102 1989-08-21 


REMOVE_TASK_FROM_SEG_LOCK_9 


© &181 
oO 8182 PROCEDURE remove _task_from_seg_lock_q 
o 8183 ( taskid: ost$global_task_id; 
o 8184 ijle_p: Ajmt$initiated,  job_list_entry,; 
Oo 8185 ptli_p: Atmt$primary task_list_entry); 
° 8186 { 
° 8187 { The purpose of this procedure is to remove a task from the segment 
o 8188 { lock queue. This task has been readied by another task. It will NOT 
© 8189 { have the segment lock. 
° 8190 { 
o #8191 { REMOVE _TASK_FROM_SEG_LOCK_Q (taskid, ijle_p, pt1_p) 
o 8182 { 
© 8193 { TASKID: (INPUT) This parameter specifies the taskid of the 
o 8194 { task which is being removed from the segment ileck queue. 
° 8195 { 
o 8196 { IJLE_P: (INPUT) This parameter specifies the ijl pointer of the job 
o 8197 { owning the task being removed. 
o 8198 { 
o 8199 { PTL_P: (INPUT) This parameter specifies the pointer to the PTL entry 
Oo 8200 { of the task heing removed. 
° 8201 { 
© 8202 { NOTE : Anyone calling this procedure must have tmv$pti1_ tock set. 
o 8203 { 
3° 8204 
° 8205 VAR 
Oo 8206 asti: mmtS$ast_index, 
0 8207 fde_p: gft$locked file_desc_entry_p, 
oO 8208 found: boolean, 
o 8209 queue _ Tink: tmt$task_queue link, 
o 8210 queue link save: Atmt$task_queue_ link, 
Oo 8211 sdtx_p: Ammt$segment_descriptor_extended, 
© 8212 segnum: ost$segment, 
o 8213 task rb: Ammt$rb_tlock_ unlock segment, 
oO 8214 xcb_p: Aost$execution_control block; 
3° 8215 
° 8216 found := FALSE; 
4 8217 IF pti_pA.idle_status < tmc$is_idiled THEN 
12 8218 xcb_p := #ADDRESS (1, mtc$job_fixed_ segment + ijle_pA.aji_ordinal, pti_p4.xcb_offset) ; 
12 8218 task_rb := #LOC (xcb pA.xp.x_ registers [0]); 
32 8220 segnum := #SEGMENT (task rb4.pva); 
32 8221 sdtx_p := mmp$get_sdtx_entry p (xcb_p, segnum) ; 
32 8222 ofp$S$mtr_get locked _fde_p (sdtx_pA.sfid, ijle_p, fde_p); 
E2 8223 tmp$remove_task_from_q (pti_p, fde_p4.segment_lock.task queue) ; 
13C 8224 ijle_pA.statistics.ready_ task_count :: ijle_pA.statistics.ready task count + 1; 
13C 8225 pti_pA.status := tmc$ts_ready; 
13C 8226 jmv$ajl_p4 [ijle_p4.ajl_ordinal]. job_is_good_ swap_candidate := FALSE; 
*WARN* 8227 tmp$dct_ready_ task (xcb_p, ijle_p, taskid.index, TRUE fattempt_preselection}) ; 
B3E 8228 ELSE 
B3E 8229 /search_loop/ 
BSE 8230 FOR asti := LOWERBOUND (mmv$ast_p) TO UPPERBOUND (mmv$ast_p4) DO 
B54 8231 IF (mmv$ast_p’ [asti].in_use) THEN 
B66 8232 gfpSmtr_get_ locked _fde_p (mmv$ast_p’ [asti].sfid, ijle_p, fde_p); 
BE& 8233 queue _ link :: fde_pr*.segment_lock.task_ queue; 
BE8 8234 WHILE NOT found AND (queue _Tink.head <> 0) DO 
BFC 8235 IF queue _link.nead = taskid.index THEN 
COA 8236 found := TRUE; 
SQURCE LIST OF tmm$dispatcher NOS/VE CYBIL/II 1.0 8910602 1989-08-21 


REMOVE _TASK_FROM_SEG_LOCK_9Q 


COA 
C18 
C18 
C32 


8237 
8238 
8239 
8240 
8241 
8242 
&243 


EXIT /search_loop/; 
ELSE 
queue Tink := tmv$pti_pA [queue_link.head] .queue_link; 
IFEND; 
WHILEND ; 
IFEND; 
FOREND /search_loop/; 


IF NOT found THEN 
mtpS$error_stop (’TM112-task not found in seg lock Q’); 


IFEND,; 
tmp$remove task_from_q (pti_p, fde_p4.segment_lock.task_queue} ; 
ijle_pA.statistics.ready_task_count := ijle_pA.statistics.ready task_count + 1; 
pti_pA.status := tmc$ts_ready_but_swapped; 
ptl_pA.idie status := tmce$is_idied_ sched notified; 
jmp$ready task_in_Sswapped_ job (pti_p4.ijl_ordinal, ijle_p); 

IFEND; 


PROCEND remove_task_from_seg_ lock_q; 
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SOURCE LIST OF tmm$dispatcher NOS/VE CYBIL/II 1.0 89102 
TMPSFIND_ NEXT_QUEUED TASK 
o 8258 
Oo 8259 PROCEDURE [XDCL] tmp$find_next_queued_ task 
Oo 8260 (VAR taskid: ost$global_task_id)j; 
Oo 8261 
Oo 8262 VAR 
© 8263 ptl_p: Atmt$primary _task_list_entry; 
oO 8264 
© 8265 tmp$set_lock (tmv$pt1_lock}) ; 
42 8266 tmp$stop_if_bad_taskid (taskid) ; 
AC 8267 pti_p := Atmv$pti_p4A [taskid. index] ; 
4C 8268 taskid.index :: ptil_p4A.queue_ link.head; 
AC 8269 taskid.seqno := tmv$pt1_p4 [ptl_p’%.queue_link.head] .sequence_number ; 
AC 8270 tmp$ciear_lock (tmv$ptl_lock); 
108 8271 
108 8272 PROCEND tmp$find_next_queued task; 
° 8273 
SOURCE LIST OF tmm$dispatcher NOS/VE CYBIL/II 1.0 89102 


i[XDCL] tmp$check_timed_wait_not_queued 


oO 8275 
oO 8276 PROCEDURE [XDCL] tmp$check_timed_wait_not_queued 
oO 8277 ( time next _scan_wait_nmot_queued: integer); 
oO 8278 
o 8279 VAR 
Oo 8280 ptlo: ost$task_index; 
° 8281 
oO 8282 tmp$set_lock (tmv$pt1_lock); 
&2 8283 
42 8284 FOR ptto := 1 TO UPPERBOUND (tmv$pt1_p) 
56 8285 IF (tmv$pti_pA [ptilo].status = tmc$ts_timed_wait_not_queued) 
7T& 8286 end _of wait _time <= time _next_scan_wait_mot_queued) 
74 8287 tmv$pti_p’ [ptio].status := tme$ts_timeout_reqexp_longviong; 
74 8288 tmp$insert_timed_ wait queue (ptio); 
144 8289 IFENDO; 
144 &2390 FOREND ; 
14a 8291 
144 8292 tmp$clear_lock (tmv$ptl_lock); 
182 8293 


182 8294 PROCEND tmp$check_ timed wait _not_queued; 
oO #8235 


(tmvSpt1_pA 
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SOURCE L 


[INLINE] 
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1989-08-21 


82397 

8298 PROCEDURE [INLINE] tmp$insert_timed_ wait _queue 

8299 ( ptlo: ost$task_index) ; 

&300 

8301 { 

8302 { The purpose of this request is to add a task to 

8303 { tmv$timed_wait_queue. Tasks are arranged in the queue 

8304 { in ascending order according to their ‘’end_of _wait_time’. 

8305 { 

a3zo06 { TMPSINSERT_TIMED_WAIT_QUEUE (PTLO) 

8307 { 

8308 { PTLO : (INPUT) This parameter specifies the ptl ordinal of 

8309 { the task to be placed in the queue. 

8310 { 

8311 { NOTE : Anyone calling this routine must have tmv$pt1_lock set. 

8312 { 

8313 

8314 VAR 

8315 next index: ost$task_index, 

8316 previous index: ost$task_index, 

8317 end_of wait_time: integer; 

8318 

8318 next_index := tmv$timed_wait_queue.head; 

8320 previous index := 0; 

8321 end_of_wait_time := tmv$pt1_p4 [ptlo].end_of_wait_time; 

8322 

8323 IF tmv$timed_wait_queue.head = © THEN 

8324 tmv$timed_ wait _queue.head > ptilo; 

8325 tmv$timed_ wait queue.tail := ptilo; 

8326 ELSE 

8327 WHILE (tmv$pti1_p4 [next_index].end_of_wait_time <= end _of_wait_time) AND 

8328 (next _index <> ©) AND (next_index <> ptio) DO 

8329 previous index := next index; 

8330 next_index : = tmv$pti_pA [next_index].queue_link.head; 

8331 WHILEND; 

8332 

8333 IF ptlo = next index THEN {Dont put this in the while loop - it kilts optimization. } 

8334 mtp$error stop (‘TMO2.5 - already queued’ ); 

8335 IFEND; 

8336 

8337 tmv$pti_pA [ptio].queue_link.head := next_index; 

8338 IF next_index = tmv$timed_wait_queue.head THEN 

83398 tmv$timed_ wait _queue.head := ptio; 

8340 ELSE 

8341 tmv$ptil_p” [previous index].quevue_link.head := ptio; 

8342 IFEND; 

8343 tmv$pti pA [ptile].queue_ link.tail := previous index; 

8344 IF previous _ index = tmv$timed_ wait _queue.tail THEN 

8345 tmv$timed_ wait _queue.tail := ptio; 

8346 ELSE 

8347 tmv$pti_pA [next _index].queue_link.tail := ptilo; 

8348 IFEND; 

8349 IFEND; 

8350 

8351 PROCEND tmp$insert_timed_wait_queue; 

8352 

e 

IST OF tmm$dispatcher NOS/VE CYBIL/II 1.0 89102 1989-08-21 
tmp$remove_task_from_q 

8354 { Purpose: 

8355 { This procedure removes a task from either the timed wait queue, or 

8356 { a segment lock queue. 

8357 

8358 PROCEDURE [INLINE] tmp$remove_task_from_q 

83593 ( ptie_p: Atmt$primary_task_list_entry; 

8360 VAR queue: tmt$task_queue_ link); 

8361 

8362 IF ptie_ pA”.queuve_ lTink.head = 0 THEN 

8363 queue.tail := ptile_ pA.queue Tink.tail; 

8364 ELSE 

8365 tmv$ptl_ pA [ptle_p%.queue_link.head].queue_link.tail := ptle_pA.queue_ Tink.tail; 

8366 IFEND,; 

8367 

8368 IF ptle_pA.queue Tink.tail = © THEN 

83683 queue .head := ptie_ pA.queue link.head; 

8370 ELSE 

8371 tmv$pti_pA [ptie_pA.queue_link.tail].queue_link.head := ptle_pA.queue_Tink.head; 

8372 IFEND; 

8373 : 

8374 ptle_pA.queue link.head := 0; 

8375 ptie_ pA.queve lTink.tail :5 0; 

8376 

8377 PROCEND tmp$remove_task_from_q; 
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TMPSCREATE_JOB 
7 © 8380 
© 8381 PROCEDURE [XDCL] tmp$create_job 
Oo 8382 (VAR rb: tmt$rb_initiate_ jon; 
© 8383 cst_p: Aost$cpu_state_table); 
© 8384 
© 8385 
oO 8386 { 
© 8387 { This procedure is used to schedule a newly created job monitor 
© 8388 { task. A PTL entry is assigned to the job monitor task and it 
° 8389 { is inserted in the DCT chain. The segment table entry for the 
© 8390 { mew job’s JFS is deleted from the address space of the current 
te) 8391 { task that initiated this job. Execution of the new job may 
° 8392 { actually begin before the requesting task continues execution. 
o 8393 { 
© 8394 { TMPSCREATE_ JOB (RB) 
o 8395 { 
o e396 { RB : (INPUT,OUTPUT) This parameter specifies the request block. 
© 8397 { 
Oo 8398 
oOo 8399 VAR 
ce) 8400 attempt preselection: boolean, 
o 8401 sdt_p: mmt$max_sdt_p, 
° 8402 ktt: packed record 
© 8403 case boolean of 
© 84804 = TRUE = 
° 8405 Ss: string (5), 
ce) 8406 => FALSE = 
° 8407 f1: 0 OFFFFFL(1E), 
° 8408 #2: Oo OfFFF(16), 
ce) 84093 casend, 
©} 8410 recend, 
© 8411 job_segnum: ost$segment, 
oO 8412 segnum: ost$segment, 
Oo 8413 ijl_ordinal: jmt$iji_ordinal, 
© 8414 ijle_p: Ajmt$initiated_job_list_entry, 
Oo 8415 xcb_p: Aost$execution_control_biock, 
Oo 8416 ajl_ordinal: jmt$ajil_ordinal, 
oO 8417 jm: ost$keypoint_mask, 
oO 8418 jicb_p: Ajmt$job_control_ block; 
© 8419 
Oo 8420 
° 8421 
oO 8422 : 
© 8423 { Make an entry in the monitor segment table for the JOB FIXED SEGMENT of the new job. 
Oo 8424 
Oo 8425 sdt_p : = #ADDRESS (1, cst_p’%.ajlo + mtc$job_fixed_segment, cst_pA.xcb_p4.sdt_offset); 
4 8426 job_segnum :: #SEGMENT (rb.xcb_p); 
4 8427 jimp$assign_ajl_entry (sdt_p4%.st [job_segnum].ste.asid, rb.ijlo, jmc$swapping ajl, 


FALSE {must assign}, 


}e 


ajl_ordinal, 


70 8429 IF NOT rb.status.normal THEN 

78 8430 RETURN; 

7TH 8431 IFEND; 

7H 8432 

TA 8433 rb.ajo := ajl_ordinatl; 

TA 8434 

74 8435 { Make an entry in the PTL for the new task. 
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rb.status); 


TA 8436 

TA 8437 segnum := rbh.ajo + mtc$job_ fixed segment ; 

TA 8438 ijl_ordinal := jmv$aji_p% [rb.ajo].ijl_ordinal; 

TA 8439 jmp$get_ijle_p (ijl_ordinal, ijle_p); 

7h 8440 IF syv$all_jobps_selected_for_debug THEN 

C4 8441 ijle_p%.system_breakpoint selected := TRUE; 

C8 8442 IFEND; 

C8 8443 xcb_ p : = #ADDRESS (1, segnum, #OFFSET (rb.xcb_p)); 
C8 8444 tmp$set_ lock (tmv$pt1_lock) ; 

114 8445 tmpSassign_ptl (xcb_p, ijl_ordinal, rb. jmtr_taskid, 
1E8& 8446 IF NOT rb.status.normal THEN 

1FO 8447 mtv$monitor_segment_table.st [segnum].ste.v1l := 
1FO 8448 #PURGE BUFFER (osc$purge_all_page_seg_ map, nul1_pva); 


« 
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osc$vil_invalid_entry; 


ptk$new_job_name_2); 


THEN 


21C 8449 jmp$free ajl_with_ lock (ijle_p, jmc$swapping aj); 
234 8450 rbo.ajo = jme$null_ajl_ordinal; 
234 8451 tmp$ciear_iock (tmv$pti1_lock) ; 
26E 8452 RETURN; 
270 8453 IFEND; 
270 8454 xcb p4.global_task_id := rb. jmtr_taskid; 
270 8455 tmv$total_task_count := tmv$total_task_count + 1; 
270 8456 
270 8457 { Initialize the IJL entry and the JCB for the job. 
270 8458 
270 8489 jcb_p := #ADDRESS (1, rb.ajo + mtc$job_fixed_segment, 0); 
270 8460 jcb_p4.jcb_identifier := Of £F00(16); 
270 8461 jcb_ pA. job _ monitor _id := rb. jmtr_taskid; 
270 8462 jcb_p4.last_execution_time := #FREE_ RUNNING CLOCK (0); 
2BO0 8&63 jcb_pA.ijle_p :2 ijile_p; 
280 8464 jeb_p4.ijl_ordinal := ijl_ordinal; 
2B°0 8465 ijle_pA.swap_ status := jmc$iss_executing; 
2B0 8466 ijle_p*.sfd_p := NIL; 
2B0 8467 ijle_pA. job_fixed_contiguous_ pages := 0; 
2BO0 8468 ijle pA.statistics.ready task_count :: 1; 
2B0 84693 ijle_pA.statistics.tasks not_in_long_wait := 1; 
2BO0 8470 ijle p%.job_monitor_taskid :: rb. jmtr_taskid; 
2B0 8471 imp$change_iji_entry status (ijle_p, jmc$ies_job_inm_memory_non_swap) ; 
33C 8472 IF syv$perf_keypoints_enabled.swapping keypoints THEN 
348 8473 ktt.s :* ijle_p4.system_supplied mame (16, 4); 
356 8474 #KEYPOINT (osk$performance, osk$m * ktt.f1, ptk$new_job_name_1); 
\ 366 8475 #KEYPOINT (osk$performance, osk$m * ((ktt.f2 * 256) + rb.ajo), 
360 8476 IFEND; 
380 8477 jm := $ost$keypoint_mask []; 
380 8478 IF (osv$keypoint_control.environment = osc$system_keypoints) OR 
394 8479 (osv$keypoint _control.environment = osc$system_sample_keypoints) 
394 8480 jim := osv$keypoint_control. jm; 
394 8481 xcb pA. keypoint_register_enable := TRUE; 
3sc 8482 IFENDO; 
39C 8483 IF jm <> $ost$keypoint_mask [] THEN 
3A4 8484 xcbh_ pA.xp.flags := xcb_pA.xp.flags + $ost$filags [osc$keypoint_enabie] ; 
3BA 8485 ELSE 
y 3BA 8486 xcb_pA.xp.flags := xcb_ pA.xp.flags - $ost$flags [osc$keypoint_enabie] ; 
3CC 8487 IFEND ; 
3Cc 8668488 xcb_ pA.xp.keypoint mask := jm; 
; 3cc 8489 
3scc 8490 { Set up the new job‘s segment table from calling task’s segment table. 
scc 686491 { task will be put in the proper place in the new job’s segment table. 


The xcb segment 


13:33:34 


13:33:34 


in calling 


PAGE 


PAGE 


1070 


1071 


SOURCE LIST OF tmm$dispatcher NOS/VE CYBIL/II 1.0 89102 1889-08-21 13:33:34 PAGE 


TMPSCREATE_ JOB 
3CC 8492 
3cc 84393 
SF& 8494 
3F4 8485 
3Fa 8496 
3F4 8497 
3F4 84398 
430 8499 
CDE 8500 
CO6 8501 
CO6 8502 
COG 8503 
CDG 8504 
CO6 8505 
CDSs 8506 
cos 8507 
CDo6 8508 
D22 8509 
D22 8510 


SOURCE LIST OF 


TMPSEXIT_JOB 
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8512 
8513 


mmp$create job (rb.ajo, job_segnum, cst _p4.xcb p, xcb_p); 


Insert the PTL entry for the new job into the Dispatch Tabltles. 
xcb_ pA.timestlice :+ jmv$service classes [ijle_p”.job_scheduler_data.service class]A.attributes. 
dispatching control [ijle pA.dispatching control.dispatching control_index] .dispatching timeslice; 
attempt_preselection := (ijle_p4.multiprocessing allowed) OR (ijle_pA.executing task_count = 0); 
tmp$dct_ready task (xcb_p, ijle_p, tb.jmtr_taskid.index, attempt _preselection) ; 


Increment the count of initiated jobs that scheduler checks. This count must be changed in 
monitor with the pti lock set. : 


jmv$ job_counts.service_class_ counts Lijle_p4. job_scheduiler_data.service_class].scheduler_initiated_jobs 75 
jJmv$ job _counts.service class _counts [ijle pA. job_scheduler data.service_ ciass]. 
scheduler _initiated jobs + 1; 

tmp$clear_lock (tmv$pt1_lock) ; 


PROCEND tmp$create job; 
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PROCEDURE [XDCL] tmp$exit_ job 
(VAR rb: tmt$rb_exit_job; 
cst_p: Aost$cpu_state_table) ; 


The purpose of this procedure is to exit a job monitor task. 
The PTL entry for the job monitor task is deleted and the job 
status in the ajl entry is set to terminated. 


TMPSEXIT JOB (RB) 
RB : (INPUT,OUTPUT) This parameter specifies the request block. 


VAR 
xcb_p: Aost$execution control block; 


tmp$set_lock (tmv$pt1_ lock); 
IF tmv$pti_pA [cst_pA.taskid.index].idle status = tmce$is_idied THEN 
mtpSerror_ stop (’TMO4 - swapped job exiting’); 


IFEND; 

IF tmv$pti_pA [cst_pA.taskid.index].iji_thread <> © THEN 
mtp$error stop (’TM - exit job with active task(s).’); 

IFENO; 


Free the PTL entry for the task. 


tmv$total_task_count := tmv$total_task_count - 1; 
cst_p4.ijle_ pA.executing task_count := cst _pA.ijle_pA.executing task_count - 1; 
free pti (cst_pA.taskid. index); 


Decrement the job count that scheduler uses. This count must be changed in monitor 
with the pti lock set. 


jmv$job_counts.service class _counts [cst_p4.ijle_p“.job_scheduler_data.service_ class]. 
scheduler_initiated jobs :: jmv$job_counts.service_ class _ counts [cst_p’.ijle_p%. 
job_scheduler_data.service_ciass].scheduler initiated jobs - 1; 


tmp$clear lock (tmv$ptil_lock); 
Delete the current task from the ready string and cause a task switch. 


x¢cb_p :* cst _pA.xcb_p; 
cst _pA.xcb_p := NIL; . 
cst _pA.dispatch_control.call_dispatcher := TRUE; 
IF (cst_p4%.next_ptlo_to_ dispatch = 0) THEN 
cst _p4.dispatching priority integer := tmv$dct_ priority integer ; 
IFEND; 


Free memory resources of any segments still in jobs address space that are unique to the job. 
Deletes the job fixed segment from monitor’s address space too, can ne longer reference the job’s xcb. 


mmp$exit job (xcb_p); 
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TMPSEXIT JOB 
184 8568 
184 8569 { Update the service class statistics for the service class this job belongs to. 
184 8570 
184 8571 jmp$update_service_ cilass_stats (cst_p4.ijle_p); 
198 8572 
198 8573 { Free the AJL and notify scheduler that the job has terminated. 
198 8574 
198 8575 jmp$free_ajl_entry (cst_p’%.ijle_p, jmc$swapping ajl); 
1B0 8576 imp$set_job_terminated (cst_p%.ijl_ordinal, cst_p’.ijle_p); 
1cC 8577 
1CC 8578 PROCEND tmp$exit_ job; 
SOURCE LIST OF tmm$dispatcher NOS/VE CYBIL/II 1.0 8810602 1989-08-21 13:33:34 
TMPSCREATE_ TASK 
Oo 8580 
o 8581 PROCEDURE [XDCL] tmp$create_task 
Oo 8582 (VAR rb: tmt$rb_initiate_ task; 
Oo 8583 cst_p: Aost$cpu_state_table) ; 
oO 8584 
o 8885 
o 8586 { 
° 858a7 { This procedure is used to schedule a nmewly created task. 
ce) ss58es { A PTL entry is assigned to the task and it is inserted 
° sseg { in the DCT chain. Tne PTL entry is also linked to the 
© sssg0 { AJL thread for this job. 
o 8551 { 
o 8s92 { TMPSCREATE_ TASK (RB) 
o #8593 { 
Oo 38594 { RB : CINPUT,OGUTPUT) This parameter specifies the request block. 
o 8s95 { 
© #8&596 
o 8597 VAR 
o 8598 attempt preselection: boolean, 
o 8s993 jm: ost$keypoint_mask, 
Oo 8600 wrb: tmt$rb delay, 
Oo 8601 offset: integer, 
o 8602 xcb_p: Aost$execution_control_block; 
Oo 8603 
° 8604 
© 8605 offset :: #OFFSET (rb.xcb_p); 
4 8606 xcbo_p := #ADDRESS (1, cst_p4.ajlo + mtc$job_fixed_segment, offset); 
4 8607 tmp$set_lock (tmv$pti1_tock); 
66 8608 tmp$assign_ pti (xcb_p, cst_pA.ijl_ordinal, rb.taskid, rb.status); 
148 86098 IF NOT rb.status.normal THEN 
150 8610 tmp$clear_lock (tmv$pti_lock) ; 
182 8611 RETURN; 
184 8612 IFEND; 
184 8613 
184 8614 IF tmv$pti_pA [cst_pA.taskid.index].idjle status = tmc$is_idie_initiated THEN 
198 8615 tmv$pti_p4 [rb.taskid.index].idle_status := tmc$is_idied_sched_notified; 
198 8616 tmv$pti_pA [rb.taskid.index].status := tmc$ts ready but swapped; 
198 8617 jmp$ready_task_in_swapped_ job (cst_p4%.ijl_ordinal, cst_pA.ijle_p); 
1CC 8618 ELSE 
1¢€ 8619 IF cst_pA.ijl_ordinal = jmv$system_ijl_ordinal THEN 
1D8 8620 cst_pA.ijle_ pA. job_scneduler data.service class := 1; 
1EO0 8621 IFEND; 
1E9O 8622 xcb_p%.subsystem_lock priority counmt := 0; 
1E0 8623 xcb pA.dispatching priority : = cst _pA.xcb pA.dispatching priority; 
1EO0 8624 xcb pA.timeslice := jmv$service classes [cst_pA.ijle_p4.job_scheduler_data.service_ciass]A.attributes. 
1EO 8625 dispatching control [cst_p4.ijle_p4.dispatching_control.dispatching control index]. 
1EO 8626 dispatching_timeslice; 
1EO 8627 attempt preselection := (cst _pr.ijle_p%.multiprocessing allowed) OR 
22E 8628 (cst _pA.ijle_pA.executing task _count = 0); 
22E 8629 IF tmv$tables_ initialized THEN 
236 8630 tmp$dct_ready_ task (xcb_p, cst_pA.ijle_p, rb.taskid.index, attempt preselection) ; 
AEA 8631 IFEND; 
AEA 8632 IFEND; 
AEA 8633 
AEA 8634 IF tmv$tables initialized THEN 
AF2 8635 insert_ijl (rb.taskid, cst_p); 
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TMPSCREATE_TASK 
B2H 8636 ELSE 
B2A 8637 tmv$tables initialized := TRUE; 
B2E 8638 IFEND; 
B2E 86398 
B2E 8640 tmv$total_task_count :+: tmv$total_task_count + 1; 
B2E 8641 : 
B2E 8642 cst_p4.ijle_pA.statistics.ready_ task count := cst _pArA.ijle_pA.statistics.ready task _count + 1; 
B2E 8643 cst_p%.ijle_pA.statistics.tasks not_in_long_wait := cst _pA.ijle_pA.statistics.tasks_ not_in_long wait + 1; 
B2E 8644 cst_pAr.ijle_p%.task_created after last_swap := TRUE; 
B2E 8&645 
B2E 8646 xcb_ pA.global_task_id :: rb.taskid; 
B2E 8647 xcb_ pA.parent_giobal_task_id :* cst _p%.taskid; 
B2E 8648 
B2E 8649 { Each task inherits its parents keypoint_enable flag. “ 
B2E 8650 xcb_pA.keypoint_enable := cst_pA.xcb_pA.keypoint_ enable; 
B2E 8651 
B2E 8652 IF (osv$keypoint_control.environment = osc$system_keypoints) OR 
B84 8653 (osv$keypoint_control.environment = osc$system_sample_keypoints) THEN 
B84 8654 jm := osv$keypoint_control. jm; 
B84 8655 xcb_ pA. keypoint_register_enable :: TRUE; 
B90 8656 ELSE 
B90 8657 { check if correct job 
BSO 8658 IF xcb_ pA, keypoint_enable = TRUE THEN 
B94 8659 { correct - update masks 
BS4 8660 jm := osv$keypoint_ control. jm; 
B94 &8661 xcb_ pA.keypoint_register_enmable : = TRUE; 
BAO 8662 ELSE 
BAO 8663 { different - clear masks 
BAO 8&&64 im := $ost$keypoint_mask []; 
BAO 8665 xcb pA. keypoint register _enable := FALSE; 
BAG 8s&66 IFENO; 
BAG 8667 IFEND; 
BAG 8668 IF jm <> $ost$keypoint_mask [] THEN 
BAE 8669 xcb pA.xp.flags := xcb_pA.xp.flags + $ost$flags [osc$keypoint_enable] ; 
BCS& 8670 ELSE 
BC6 8671 xcb_pA.xp.flags := xcb_pA.xp.flags - $ost$flags [osc$keypoint enable] ; 
BDA 8672 IFEND; 
BDA 8E73 xcbh pA.xp.keypoint mask := jm; 
BDA 8674 
BDA 8675 mmp$create_task (cst_p4.xcb p, xcb_p, cst _pAr.ijle_p); 
BFE 8676 


BFE 8677 tmp$clear_lock (tmv$pti_lock) ; 


C30 8679 PROCEND tmp$create_ task; 
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o 8681 

oO 8682 PROCEDURE [XDCL] tmp$task_exit 

o 8683 (VAR rb: tmt$rb_task_exit; 

oO 8684 cst_p: Aost$cpu_state_table) ; 

o 8685 

© 8686 

o 8687 { 

° 8688s { The purpose of this procedure is to exit the current task. 

o 8689 { The PTL entry for the task is deleted and the parent task 

Oo 8690 { is motified of callee termination. 

0 8691 { 

o 8692 { TMPSTASK_EXIT (RB) 

o 8693 { 

° s694 { RB: (INPUT,OUTPUT) This parameter specifies the request block. 

o s86s5 { 

oO 8696 

Oo 8697 VAR 

o 8698 osv$trap_task_errors: [XDCL, #GATE] boolean :: FALSE, 

o 8699 pit_value: integer; 

o &8&700 

o 8701 

° 8702 rb.status.normal :: TRUE; 

4 8703 IF rb.parent _global_task_id <> cst_pA.xcb_ pA.parent_global_task_id THEN 
26 8704 mtp$set_status abnormal (’TM’, tmeS$invalid_global_taskid, rb.status) ; 
26 8705 RETURN; 
3E 8706 IFEND; 
3E 8707 
3E 8708 IF osv$trap_task_errors AND ((cst_p4.xcb_pA.system_table_lock_ count DIV 256) <> 
5C 87093 Oo} THEN 
SC 8710 mtp$error_ stop (’ Task exit with system tables locked ’); 
7G 848711 IFEND; 
7C 8712 
7C 4808713 tmp$update_system_task_list (cst_p4.xcb_p); 

90 8714 

go 8715 { Send signal to the parent task. 

90 8716 

90 8717 tmp$send_signal (rb.parent_global_task_id, rb.signal, rb.status); 

BE 8718 “IF NOT rb.status.normal THEN 

C&é 8719 RETURN ; 

C8 8720 IFEND; 

c&8& 8721 

C8 8722 

C8 8723 mmp$exit task (cst_pA.xcb_p); 

DC 8724 IF osv$special_aam_trap AND (cst_pA.xcb_p4.special_trap_count <> ©) THEN 

FO 8725 mtp$error_stop (’ Trap AAM Lock problem ’); 

110 8726 IFEND; 

110 8727 tmp$set_lock (tmv$pt1_ilock) ; 

148 8728 cst_p4.ijle_pA.maxws_aio_ slowdown display := 0; 

148 8729 cst_pA.ijle_ pA.statistics.ready task_count :=: cst_pA.ijle_p’.statistics.ready task_count - 1; 
148 &8&730 cst_pA.ijle_pA.statistics.tasks_ not_in_long wait :* cst_pA.ijle_pA.statistics.tasks_ not _in_ long wait - 1; 
148 8731 est _pA.ijle_pA.task_created after last swap := FALSE; 

148 &732 ecst_p4.accumulated_monitor_cptime := Of FFFFFFF(IE) - #READ REGISTER (osc$pr_process_ interval timer); 
170 8733 pit_value := cst_pA.xcb_pA.xp.process_interval_timer_1 * 10000(16) + cst_pA.xcbh_pA.xp. 

1790 8734 process interval timer 2; 

170 8735 IF pit _value > 7FFFFFFFLI1E) THEN 


194 8736 pit_value := pit value - 100000000(16); 
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189A 8737 IFEND; 

193A 8738 cst_pA.accumulated job cptime := cst_pA.accumulated job_cptime - pit_value; 
*WARN* 8739 update _cp_ statistics (cst_p); 

640 8740 cst_pArA.ijle_p%.executing task count := cst _ pA.ijle_p%.executing task_count 

640 8741 free pti (cst_pA.taskid. index) ; 

682 8742 remove_ijl (cst_pA.taskid, cst_p); 

6BC 8743 cst_pA.xcb p%.task_has_terminated := TRUE; 

SBC 8&744 cst_pAr.jcb_ pA. ilast_lpid_for job := cst_pA.cst_index; 

6BC 8745 cst_p4.xcb p :: NIL; 

6BC 8&746 cst _pA.dispatch control.call_dispatcher := TRUE; 

6BC 8747 IF (cst_p4.next_ptlo_to_dispatch = 0) THEN . 

6FC 8748 cst_pA.dispatching priority_integer := tmv$dct_priority_integer ; 

704 87493 IFEND; 

704 8750 

704 8751 tmv$total_task_count := tmv$total_task_count - 1; 

704 8752 

704 8753 IF tmv$pti_p% [cst_p%.taskid.index].idle_status = tmc$is_idle_initiated THEN 

722 8754 initiate _swap_if_possible (cst_p); 

7AG 8755 IFEND; 

JAG 8756 tmp$clear_lock (tmv$pt1_lock); 

708 8757 

7D8 8758 PROCEND tmp$task_exit; 
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°o 8760 
Oo 8761 PROCEDURE [XDCL]} tmp$mtr_begin_lock_activity 
4 8&762 ( xcb_p: Aost$execution_control block; 
4 8763 activity: 1 .. 256); 
4 8764 
4 8765 xcb_ pA.system_table_ lock count := xcb pA.system_table_ lock_count + activity; 
4 &766 
4 8767 PROCEND tmpS$mtr_begin_lock_activity; 
o 8769 
o 8770 PROCEDURE [XDCL] tmp$mtr_end_lock_activity 
o 8771 ( cst_p: Aost$cpu_state_ table; 
Oo 8772 activity: 1 .. 256; 
© 8773 VAR xcb_p: Aost$execution_control_ block) ; 
oO 8s774 
Oo 8775 VAR 
Oo 8776 ijle_p: AjmtS$initiated_job_list_entry, 
° 8777 new_scheduling priority: jmt$dispatching priority, 
Oo 8778 ptio: ost$task_index, 
Oo 8779 state: tmt$find_next_xcb_state, 
o 8780 status: syt$monitor_ status, 
oO 8781 temp_xcb_p: Aast$execution_control block; 
Oo 8782 
o 8783 tmp$set_lock (tmv$pt1_lock) ; 
42 8784 
42 8785 { Debug code--verify the lock count. 
42 8786 
42 8787 IF activity = 256 THEN 
4E 8788 IF xcb_p4%.system_table lock _ count < 256 THEN 
5E 8789 mtp$error stop (’TM--system_table_lock_count 17’); 
7E 8790 IFEND; 
82 8791 ELSEIF activity = 1 THEN 
86 8792 IF ((xcb_pA.system_tabie_ltock_ count MOD 256) = 0) THEN 
AO 8793 mtp$error_ stop (‘’TM--system_table_lock_count 2’); 
CoO 8794 IFEND; 
C4 87935 ELSE 
C4 87396 mtpSerror_ stop (’TM--system_table_lock count 37’); 
EQ4 8797 IFEND; 
E4 8738 
E4 879383 { End debug code. 
E4 88&00 
E4 8801 
E4 8802 xcb_pA.system_ table lock count := xcb_ pA.system_table_ lock count - activity; 
E4 8803 ptlo :: cst_pA.taskid. index; 
E4 8804 
E4 8805 IF (xcb_pA.system_give_up_cpu) AND 
116 8806 {xcb_ pA.system_table_lock_count < 256) AND 
116 8807 (xcb_pA.system_table_lock count > 0) THEN 
116 8808 ? 
116 88os { Reset the task to it’s original priority. If the task has subsystem iocks set 
116 8810 { its correct PTL dispatching priority will be determined when the task is readied. 
116 8811 { The TMPSDCT_ READY _TASK procedure will sort out the priorities. 
116 8812 : - 
116 8813 tmvS$pti_pA [ptlo].dispatching priority := xcb_pA.dispatching priority; 
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SOURCE LIST OF tmmSdispatcher NOS/VE CYBIL/II 1.0 88162 1989-08-21 13:33:34 
TMPSMTR_BEGIN SYSTEM_ACTIVITY 
116 8814 xcb_pA.system_ give _up_cpu :: FALSE; 
116 #8815 cst_p%.dispatch control.call_dispatcher :=+ TRUE; 
116 8816 IF (cst_pA.next_ptio_to_dispatch = 0) THEN 
13C 8817 cst_p4A.dispatching priority integer := tmv$dispatch_priority, integer 
14C 8818 [xcb_pA.dispatching priority]; 
14C 8819 IFEND; 
150 8820 ELSEIF (xcb_p4.system_table_lock_count <= 0) AND 
16C 8821 (xcb_p%.system_give_up_cpu OR xcb_p4A.subsystem_give_up_cpu) THEN 
16C 8822 
16C 8823 xcb_pA.subsystem_give_up_cpu :+ FALSE; 
16C 8824 xcb pA.system_give_ up cpu :: FALSE; 
16C 8825 cst_pA.dispatch control.call_dispatcher := TRUE; 
16C 8826 IF (cst_pA.next_ptlo_to_dispatch = 0) THEN 
186 8827 cst_pA.dispatching priority_integer := tmv$dispatch_priority_integer 
194 8828 [xcb_pA.dispatching priority]; 
194 8829 IFEND; 
194 8830 
19A 8831 Reset the task to it’s original priority. Also, reset the subsystem tock priority 
194 8832 which is maintained in the PTL. 
119A 8833 
194 8834 tmv$ptil_p% [ptio] .dispatching priority := xcb_p%.dispatching priority; 
194 8835 tmv$pti_pA [ptio].readying task_priority := 0; 
194A 8836 ; 
194 8837 imp$get_ijle_p (tmv$pti1_p4 [xcb_p4.global_task_id.index].ijl_ordinal, ijle_p); 
19A 8838 new _ scheduling priority :* ijle pA.dispatching control.dispatching priority; 
194 88398 tmp$find_ next _xcb (tmc$fnx_ job, ijle_p, tmv$pti_p4 [xcb_ p%.globai_task_id.index].ijl_ordinal, 
20E 8840 state, temp_xcb_p); 
20E 8841 WHILE temp_xcb_p <> NIL DO 
21C 8842 IF tmv$pti_p4 [temp_xcb_p4.global_task_id.index].readying task_priority > 
234 8843 new _ scheduling priority THEN 
234 8844 new _ scheduling priority :: tmv$pti_p4 [temp_xcb_p4A.global_task_id.index].readying task_priority; 
238 8845 IFEND; 
238 8846 tmp$find next _xcb (tmce$fnx_ continue, NIL, jmv$null_ijl_ordinal, state, temp_xcb_p) ; 
268 8847 WHILEND; 
27E 8848 ijle_ p%.scheduling dispatching priority : = mew_scheduling priority; 
27E 8849 xcb_ pA.subsystem_lock_ priority count := 0; 
27E 8850 tmv$ptl_ pA [ptio].pti_flags.subsystem_locks set :=: FALSE; 
2A4 8851 IFEND; 
2A4 8852 
2A4 8853 IF xcb_ pA.stic_allocation THEN 
2B4 8854 xcb_ pA.stic_allocation := FALSE; 
2B4 8855 tmp$set_monitor flag (xcb_p4.global_task_id, mmc$mf_segment_mgr_flag, status); 
2DA 8856 IFEND; 
2DA 8857 
2DA 8858 27IF tmc$debug cycle _ requests THEN 
8859 IF (osv$debug > ©) THEN 
8860 tmp$set_lock (tmvS$pt1_lock) ; 
8861 tmv$cycie_trace [ti].code := tmc$cyc_mtr_end_sys_activity; 
8862 tmv$cycie_ trace [ti].time := #FREE RUNNING CLOCK (0); 
8863 tio:= ti + 1; 
8864 IF ti >» 106000 THEN 
8865 mtp$error_stop (’TM - trace buffer full’); 
&8&66 IFEND ; 
8867 tmp$cilear_lock (tmv$pt 1_lock) ; 
8868 IFEND; 
2DA 8869 ?IFEND; 
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2DA 
314 
314 


8870 
8871 
8872 


tmp$ciear_lock (tmv$pti_ lock) ; 


PROCEND tmp$mtr_end_lock_activity; 
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SOURCE LIST OF tmm$dispatcher NOS/VE CYBIL/II, 1.0 89102 1889-08-21 13:33:34 
TMPSCYCLE 
Oo 8874 
o 8875 PROCEDURE [XDCL] tmp$cycle 
o 8875 (VAR rb: tmt$rb_cycie; 
Oo 8877 cst_p: Aost$cpu_state table) ; 
o 8878 
o 8878 
Oo 888so { 
° 888e1i { The purpose of this procedure is to cause a task switch to 
° 8882 { eccur. The CYCLE request is issued by the currently executing 
oO 8883 { task. 
oO 8884 { 
o 8885 { TMPSCYCLE 
o 8886 { 
oO 8887 
oO 8888 VAR 
o 8889 xcb p: Aost$execution_controi_ biock, 
° 8890 ijle_p: Ajmt$initiated job_list_entry, 
o 8891 state: tmt$find_next_xcb_ state, 
© 8882 new _scheduling priority: jmt$dispatching priority, 
© 8893 lock _ptlo: ost$task_index, 
o 8894 ptlo: ost$task_index; 
O° g8sg5 
° 8896 ptlo := cst _pA.taskid. index; 
4 8897 tmp$set_lock (tmv$pt1_lock) ; 
aA 8898 
44 8899 IF NOT tmv$tables_initialized THEN 
54 83900 ELSEIF (cst_pA.xcb_pA.system_table_lock_ count > ©) AND 
76 8901 (cst_p4.xcb_p%.system_table_lock_count < 256) AND 
76 8902 (cst_p4.xcb_pA.system_give_up_cpu) THEN 
76 8903 cst_pA.xcb p4”.system_give_up_cpu := FALSE; 
8O 8904 ELSEIF (cst_p4.xcb_p4.system_table_lock_count <= 0) AND 
sc 83905 (cst_pA.xcb_pA.system_give_up_cpu OR cst_pA.xcb_pA.subsystem_give_up_cpu) THEN 
sc 8906 
9C 8907 cst_p4A.xcb_ pA.subsystem_give_up_cpu :: FALSE; 
sc 8908 cst_pA.xcb_pA.system _give_up_cpu := FALSE; 
gc 89093 
sc gg10 { Reset the task to it’s original priority. Also, reset the subsystem lock priority 
sc s911 { which is maintained in the PTL. 
sc 8812 
9c 8913 tmv$ptil_p’ [ptio].dispatching priority := cst_pA.xcb_pA.dispatching_ priority; 
9c 8914 tmv$ptil_p4 [ptio].readying task_priority := 0; 
gc 8915 
gc 8916 new_scheduling priority := cst_p%.ijle_pA.dispatching control .dispatching priority; 
9C 8917 tmp$find_next_xcb (tmc$fnx_job, cst_pA.ijle_p, cst_p%.ijl_ordinal, state, xcb_p); 
F2 8918 WHILE xcb_p <> NIL DO 
100 8919 IF tmv$pti1_p4 [xcb_p4.global_task_id.index].readying task_priority > 
118 8920 new scheduling priority THEN 
118 832.1 new_scheduling priority := tmv$pt1_p4 [xcb_p4.global_task_id.index].readying task_priority; 
11C 89822 IFEND; 
11 89823 tmp$find_next_xcb (tmc$S$fnx continue, NIL, jmv$null_ijl_ordinal, state, xcb_p); 
14C 8824 WHILEND; 
162 8325 cst_p%.ijle_ p*.scheduling dispatching priority := new scheduling priority; 
162 83826 cst_p’.xcb_ p%.subsystem_lock_priority count := 0; 
162 8927 tmv$pti_p* [ptlo].pti_flags.subsystem_locks_set := FALSE; 
184 8928 ELSEIF tmv$cycle_ delay _time >» © THEN 
182 8929 tmv$pti_p*% [ptlo].new_task_status :: tmc$ts_timeout_regqexp_shortshrt ; 
SQURCE LIST OF tmm$dispatcher NOS/VE CYBIL/II 1.0 88102 1989-08-21 13:33:34 
TMPSCYCLE 
192 8930 tmv$pti_op* [ptio].end_of_wait_time := #FREE RUNNING CLOCK (0) + tmv$cycle_delay_time; 
1AE 8931 IFEND; 
1AE 8932 
1AE 8933 cst_p’A.dispatch_control.call_dispatcher := TRUE; 
1AE 8934 IF (cst_pA.next_ptlo_to_dispatch = ©) THEN 
1BA 8935 cst_p4A.dispatching priority _ integer :=: tmv$dct_priority_ integer ; 
1C2 8936 IFEND ; 
1€2 8937 
1C2 8938 ?IF tmc$debug cycie requests THEN 
8939 IF (osv$debug > 0) THEN 
8940 tmv$cycle_trace [ti].code := rb.code; 
8941 tmv$cycie_ trace [ti].pi := rb.p1; 
8942 tmv$cycle_trace [ti].p2 := rb.p2; 
8943 tmv$cycle_trace [ti].time := #FREE_ RUNNING CLOCK (0); 
8944 tmv$cycle_ trace [ti].xtask := ptlo; 
8945 lock_ptilo := rb.tlock_ value DIV 256; 
8946 tmv$cycie_trace [ti].gtid := lock ptlo; 
8947 tmv$cycie_trace [ti].status := tmv$pti1_p4 [lock_pt1lo].status; 
8948 IF tmv$cycle_trace [ti].status = tmc$ts_ page wait THEN 
8949 imp$get_ijle_p (tmv$pti_p4 [lock _ptio].ijl_ordinal, ijle_p); 
8950 xcb_p := #ADDRESS (1, ijle_pA.ajli_ordinal + mtc$job_fixed_ segment, tmv$pti_p4 [lock _ptio]. 
8951 xcb_offset ) ; 
8952 tmv$cycie_ trace [ti].utp := xcb_pA.page_ wait_info.pva; 
89353 tmv$cycie trace [ti].p := xcb_p4.xp.p_register.pva; 
8954 IFEND ; 
89s5 tioss ti + 1; 
8356 IF ti >» 10000 THEN 
8957 mtp$error_ stop (’TM - trace buffer full’); 
8958 IFEND ; 
8959 IFEND; 
1€2 8960 ?IFEND ; 
1c2 8961 tmp$clear_lock (tmv$pt1_ tock) ; 
1FA 8962 


1FA 8&963 PROCEND tmp$cyctle; 
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SOURCE LIST OF tmm$dispatcher NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 
TMPSDELAY 
Oo 8965 
Oo 8&966 PROCEDURE [XDCL] tmp$delay 
Oo &s3867 (VAR rb: tmt$rb_ delay; 
o 83968 cst_p: Aost$cpu_state_table); . 
o #8s68 
oO 83870 
o 8971 { 
oO 8972 { The purpose of this procedure is to Suspend execution of the 
© 8973 { requesting task until the time specified by the task. The 
© 8974 { DELAY request is issued by the currently executing task. 
o 8975 { 
o 8es76 { TMPS$DELAY (RB) 
°o 8977 { 
o 8s78 { RB : (INPUT,OUTPUT) This parameter specifies the request block. 
o ss79 { 
o 898o f{ TYPE 
o 86981 { TMTSRB_ DELAY = RECORD 
o 8982 { REQCODE, 
Oo 8983 { STATUS, 
Oo #8984 { REQUESTED WAIT_TIME, 
o 8985 { EXPECTED WAIT_TIME, 
o ~sg986 { RECEND ; 
o 8987 { 
o 6 8s8s { REQCODE: (input) The value of this parameter is SYCSRC_DELAY. 
© 89389 { STATUS: (output) This parameter specifies the system status. 
© 8990 { REQUESTED_WAIT_TIME: (input) This parameter specifies the requested 
© 8essi f{ wakeup time for this task. 
.°) 83s2 { EXPECTED WAIT_TIME: (input) This parameter specifies the expected 
© 8e9g93gs3 { wakeup time for this task. 
o 8994 { 
© 8995 
oO 8 689ss6 VAR 
° 8997 ptle_p: AtmtS$primary task_list entry; 
o 8988 
o 8999 IF NOT tmvS$tables_initialized THEN 
190 906000 cst_pA.max_cptime :* 20000; 
10 $001 RETURN; 
1E 9002 IFEND ; 
1E $003 
1E 9004 tmp$set_lock (tmv$pt1_lock) ; 
58 93005 IF miv$c170_rqst_bik.req <> NIL THEN 
6A 9006 IF (cst_pA.xcb_p4.global_task_id = miv$c170_ rqst_bik.req4.task_id) AND 
8A $007 (cst_p4.xcb_p%.xp.p_register.pva.ring > 1) THEN 
8A 93008 IF mtv$mli_status.wait_inhibit THEN 
96 9009 cst_pA.xcb_pA.wait_inhibited : = TRUE; 
96 $010 tmp$cilear_iock (tmv$pt1_lock) ; 
CE 9011 RETURN; 
D4 9012 ELSE 
D4 9013 mtv$mli_status.ready :=: FALSE; 
DA 9014 IFEND; 
DA 93015 IFEND; 
DA 9016 IFEND; 
DA $017 
DA 3018 ptie_p := Atmv$pti_p” [cst_pA.taskid. index] ; 
DA 9019 
DA 9020 IF ptle_pA.monitor_ flags <> $syt$monitor_fiags [] THEN 
SOURCE LIST OF tmm$dispatcher NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 
TMPSDELAY 
F4 9021 cst_pA.xcb pA.xp.user_condition_ register :: cst pAr.xcb_ pA.xp. 
F4 $3022 user condition register + $ost$user_ conditions [osc$free_ flag]; 
Fa $023 cst_pA.xcb_pA.monitor_flags := cst_pA.xcb pA.monitor_flags + ptie_ pA.monitor_ flags; 
Fa $024 cst_pA.xcb_ pA.system_flags := cst _pA.xcb_ pA.system_filags + ptle_ pA.system_f lags; 
Fa $025 
FQ 90626 ptle_ pA.monitor_ flags := $syt$monitor_fiags [1]; 
F4 9027 ptle_pA.system_flags := $tmt$system_flags []; 
Fa 9028 tmp$clear_lock (tmv$pti1_lock) ; 
154 $029 RETURN; 
15C 9030 IFEND ; 
15C 9031 
15C 9032 IF rb.requested wait_time < UPPERVALUE (ost$free_ running clock) THEN 
16C 9033 IF (rb.expected_wait_time < tmv$long wait _swap_time) OR (cst_p’.xcb_pA.system_table_lock count > 0) 
184 9034 ptie pA.new_task_status := tmc$ts_timeout_reqexp longiong; 
18E 9035 ELSEIF (rb.expected _wait_time < tmv$timed wait _nmot_queued) THEN 
196 906036 ptie pA.new_task_ status := tmce$ts_timeout_reqgqexp_longviong; 
1A90 9037 ELSE 
1A90 9038 ptle_ pA.new_task_ status :=: tmce$ts_timed_ wait_not_ queued; 
1A6 9039 IFEND; 
1AA 93040 ELSE 
1ARK 93041 IF (rb.expected wait _time < tmv$long wait _swap_ time) OR (cst_p4.xcb_p4.system_table_ lock count > 0) 
102 $042 ptle_ pA.new_task_status :+ tmce$ts_ timeout _reqexp_infiong; 
1C€C $043 ELSE 
1CC 93044 ptile pA.new task _ status := tmc$ts_ timeout reqexp_infviong; 
102 9045 IFEND; 
1D2 $046 IFEND; 
192 93047 ptie_pA.end_of wait_time := rb.requested wait _time; 
1D2 93048 tmp$clear_lock (tmv$pt1_lock) ; 
210 $0493 cst_p4.dispatch_ control.call_dispatcher := TRUE; 
210 $050 IF (cst_p4.next_ptlo_to_dispatch = ©) THEN 
21Cc $051 cst_pA.dispatching priority integer := tmv$dct_priority integer ; 
224 $052 IFEND ; 
224 9053 
224 93054 


224 9055 PROCEND tmp$delay; 
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PROCEDURE [XDCL] tmp$mtr_wait 
(VAR rb {input, output} : tmt$rb_wait_ signal; 


cst_p: Aost$cpu_state_table) ; 


The purpose of this procedure is to process the job mode 
request to suspend execution of the current task until the 
specified time has expired or an event has occured. However 
execution of the task is not suspended if the WAIT INHIBITED 
flag is set in the XCB. 


TMPSMTR_WAIT (RB) 


(INPUT,OUTPUT) This parameter specifies the request block. 


TYPE 


TMT$SRB_WAIT_SIGNAL = RECORD 
REQCODE, 
STATUS, 
REQUESTED _WAIT_TIME, 
EXPECTED _WAIT_TIME, 
RECEND; 


REQCODE: (input) The value of this parameter is SYC$RC_WAIT. 
STATUS: (output) This parameter specifies the standard monitor status. 
REQUESTED WAI T_TIME: (input) This parameter specifies the maximum amount 


of time to wait before resuming execution. 


EXPECTED_WAIT_TIME: (input) This parameter specifies the expected amount 


of time to wait before resuming execution. 


VAR 


new_task_status: tmt$task_status, 

ptle_p: AtmtS$primary_task_list_entry, 

readied _ijle_p: Ajmt$initiated_job_list_entry, 
readying _task_priority: jmt$dispatching priority, 
service class _p: Ajmt$service_class_attributes; 


If the request was PMP$READY TASK_AND_WAIT, the rb.global_taskid contains the taskid of the task 


{ to be readied. That taskid must be a valid taskid. 


tmp$set_lock (tmv$pti_ lock) ; 
IF rb.global_taskid <> tmv$nuli_globail_task_id THEN 


tmp$check_taskid_with_lock_set (rb.global_taskid, tmc$opt_return, rb.status) ; 
IF NOT rb.status.normal THEN 

tmpSclear_lock (tmv$pti_lock); 

RETURN; 
IFEND ; 


IFEND; 


{ Determine the new task status based on the length of time the task wants to wait. 


IF rb.requested wait_time < UPPERVALUE (ost$free running clock) THEN 
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IF (rb.expected_wait_time < tmv$long wait _swap_time) OR (cst_pA.xcb_ pA.system_ table lock count > 


new_task_status := tmc$ts_ timeout _reqexp_longiong; 
ELSEIF (rb.expected wait_time < tmv$timed_wait_not_queued) THEN 
new_task_status := tmce$ts_timeout_reqexp_longviong; 
ELSE 
new_task_status := tmc$ts_timed wait _not_ queued; 
IFEND; 
ELSE 
IF (rb.expected wait_time < tmv$long wait_swap_time) OR (cst_pA.xcb_p%.system_table_ lock count > 
new_task_status := tmce$ts_timeout_reqexp_inflong; 
ELSE 
new_task_status := tmc$ts_timeout_reqexp_infv long; 
IFEND; 
IFEND ; 


If this WAIT request will cause the job to go into long wait then do the 

cyclic aging that is done as part of swapout. Note: long wait aging may cause tasks of the job to go 
to assign backing files to transient segments. In this case the NEXT long wait should NOT 

do LONG WAIT aging. 


ptie_p := Atmv$pti_pA [cst_pA.taskid. index]; 
ptle pA.new_task_status :: new_task_status; 
IF ((new_task_status 


tmc$ts_timeout_reqexp_infvilong) OR 
(new _task_status tmc$ts_ timeout reqexp_ltongviong) OR 
(new_task_status tmc$ts_ timed _wait_not_queued)) AND 
{(cst_pA.ijle_pA.statistics.tasks_not_in_long wait = 1) AND NOT 
cst_p4.ijle_pA.long wait_aging complete AND (cst_p4.ajlo > 0) THEN 
IF (ptile_pA.monitor_ flags = $syt$monitor_flags []) AND NOT 
(cst_pA.xcb_pA.wait_inhibited OR 
(ptie_pA.ptl_fiags.wait_inhibited = tmc$wi_wait_inhibited)) THEN 
isp$long wait_aging (cst_pA.ijie_p); 
cst_pA.ijle_pA. long wait_aging complete :=: TRUE; 
IFEND; 


IFEND ; 


If the task has pending monitor flags or has wait inhibited, let it keep running. 
{ If 


long wait aging has readied this task then PTL.NEW_TASK_STAUS will be null. 


new_task_ status :: ptle_p%.new_task_status; 

IF (ptie_pA.monitor_fiags <> $syt$monitor_filags []) OR (new_task_ status = tmc$ts_nuil1) THEN 
cst_pA.xcb_p%.xp.user condition_register :: cst _pA.xcbh pA.xp. 

user _condition_register + $ost$user conditions [osc$free_ flag]; 

cst_pA.xcb_pA.monitor flags := cst _pA.xcb_ pA.monitor_ flags + ptle_ pA.monitor flags; 
cst_pA.xcb_pA.system_ flags :* cst_pA.xcb_pA.system_flags + ptle_pA.system flags; 
ptie_pA.monitor_filags := $syt$monitor_flags [1]; 
ptle_ pA.system_fiags := $tmt$system_fiags [1]; 
new_task_ status := tmc$ts_null; 


ELSEIF cst_p4.xcb_pA.wait_ inhibited OR 


(ptie_pA.ptl_flags.wait_inhibited = tmc$wi_wait_inhibited) THEN 
new_task_ status := tmc$ts_ null; 


IFEND; 


IF new_task_status <> tmc$ts_ mull THEN 


IF cst_pA.xcb_p4A.xp.p_register.pva.ring <= osc$tsrv_ring THEN 


©) THEN 


©) THEN 
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264 9169 ptle pA. pti_flags.wait_inhibited := tmc$wi_wait selected _r3; 

274 9170 ELSE 

274 9171 ptle_pA.ptil_flags.wait_inhibited := tmc$wi_wait_selected; 

282 $172 IFEND; 

282 3173 ptle pA.end_of wait_time :+= rb.requested_ wait time; 

282 93174 cst_p4.dispatch control.call_dispatcher := TRUE; 

282 9175 IF (cst_p’4.next_ptlo_to_ dispatch = 0) THEN 

2936 $176 cst_pA.dispatching priority _integer := tmv$dct_priority_integer; 

23E 3177 IFEND; 

242 $178 ELSE 

2A2 9178 cst_pA.xcb_pA.wait inhibited := FALSE; 

2A2 $180 ptie_pA.ptil_flags.wait_inhibited := tmc$wi_null; 

2A2 9181 ptle_pA.new_task_status := tmce$ts_nult; 

2BA 9182 IFEND; 

2BA 3183 

2BA 9184 { If user request was PMP$READY_TASK_AND_WAIT, the rb.global_taskid is the taskid of the task to 

2BH 9185 { be readied. 

2BA 9186 

2BA 9187 IF rb.gleobal_taskid <> tmv$null_global_task_ id THEN 

2CA 9188 IF cst_pA.xcb_ p4.dispatching priority >= 

2E6 9189 tmv$pti_pA [cst_pA.xcb_pA.global_task_id.index] .readying_task_priority THEN 

2E6 9130 readying task_priority : = cst _pr.xcb pA.dispatching priority; 

2EA 9191 ELSE 

ZEA 9192 readying task_priority := tmv$pti1_p4 [cst_pA.xcb_p4.global_task_id.index] .readying task_priority; 

2EC $193 IFEND; 

2EC 9194 tmp$set_task_ready (rb.global_taskid, readying task_priority, 

308 9195 tme$rc_ready_ conditional wi); 

308 $196 Imp$get_ijie_p (tmv$pti_p4 [rb.global_taskid.index].ijl_ordinai, readied _ijle_p); 

308 9197 IF readied _ijle_p4.entry_status = jmc$ies_job_swapped THEN 

340 9198 service_class_p := Ajmv$service_ classes [cst_p4.ijle_p4.job_scheduler_data.service_class]4A.attributes; 

340 931939 cst_pA.ijle_p”. job scheduler data.service_ accumulator since swap :: 

340 920600 service cilass_pA.guaranteed service quantum; 

340 9201 IF readied_ijle_p”.job_scheduiler data.priority > service class pA.scheduling_ priority.minimum THEN 

36C 93202 IF cst_pA.ijle_p’. job_scheduler data.priority >: readied_ijie_ pA. job scheduler _data.priority THEN 

374 9203 cst _pr.ijle pA.job scheduler _data.priority := readied _ ijle_ p4.job_ scheduler data.priority - 1; 

37C $204 IFEND; 

380 93205 ELSEIF readied_ijle_p4. job_ scheduler _data.priority = service class_p4.scheduling priority.minimum THEN 

384 9206 cst_pA.ijle_ p%.job_scheduler _data.priority :* readied ijle_p%. job scheduler _data.priority; 

388 93207 IFEND; 

388 9208 IFEND; 

388 93209 IFEND; 

388 9210 

388 9211 tmp$clear_lock (tmv$pt1_lock) ; 

3BA $212 

3BA 9213 

3BA 9214 PROCEND tmp$mtr_wait; 
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PROCEDURE [XDCL] tmp$check_for_swapout_ candidate 
{ ajl_ordinal: jmt$ajl_ordinal) ; 


VAR 
ijle_p: Ajmt$initiated job_list_entry, 
next ready time: integer, 
ptlo: ost$task_index, 
xcb_p: Aost$execut ion_control_block; 


IF (ajl_ordinal = jmv$system_ajl_ordinal) OR NOT jmv$swap_jobs_in_long wait THEN 
RETURN; 
IFEND; 


ijle p :2 jmv$ajl_p4 [Lajl_ordinal].ijle_p; 
ptlo :=2 ijgle_ pA. job monitor taskid. index; 
next ready time := OF FFFFFFFFFFF( 16); 


Do long wait aging if not already done. 


IF NOT ijle_ pr. long wait _aging complete THEN 
isp$tong_ wait aging (ijle_p); 
ijle_pA. long wait_aging complete := TRUE; 
IFEND; 


If the job now has a ready task (that condition must be checked with the PTL lock set) or if a 
task of the job has a system iock set, do NOT swap out the job. 

Scan the PTL thread for the job and search for next ready time. If the next ready time of all 
tasks is greater than the force- long-wait-Swap-time, then swap the job out. 


tmp$set_lock (tmv$pt1_lock) ; 


IF ijte_ pA.statistics.ready task _count >» O THEN 
tmp$clear_lock (tmv$pt1_lock) ; 
RETURN; 

IFEND; 


WHILE ptilo <> © DO 
tmp$get_xcb_p_from_ptio (ptio, ajl_ordinal, xcb_p); 
IF xcb_ pA.system_table lock count <> © THEN 
tmp$ciear_lock (tmv$pti_lock) ; 
RETURN; 
ELSEIF (tmv$pti_p4 [ptio].status >= tme$ts_first_status_in_wait_q) AND 
(tmv$pt1_pA [ptlo].status <= tmc$ts_last_status_in_wait_q)} AND 
(tmv$ptil_pA [ptlo].end_of_wait_time < next ready time) THEN 


next _ready time := tmv$pti_p4 [ptio].end_of _wait_time; 
IFEND; 
ptlo :5 tmv$pti_pA [ptio].ijl_thread; 
WHILEND; 


IF (next _ready time - #FREE RUNNING CLOCK (0)) > tmv$long wait_force_swap_time THEN 
tmp$set_swapout_candidate (ajl_ordina?l); 
IFEND; 


tmp$clear_lock (tmv$pt1_tloeck); 
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 TMP$SET_SWAPOUT_CANDIDATE 
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9275 
9276 
3277 
$278 
9279 
9280 
$281 
$282 
9283 
$284 
9285 
9286 
9287 
9288 
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NOTE 


PROCEDURE tmp$set_swapout_ candidate 
( ajl_ordinal: jmt$ajl_ordinal); 


VAR 


temp mext_ cyclic_aging: integer, 


ptlo: ost$task_index, 
jcb_p: Ajmt$job_control_biock, 
ijle_p: AjmtGinitiated job_list_entry; 
IF (ajl_ordinal = jmv$system_ajl_ordinal) OR NOT 
RETURN; 
IFENODO; 
ijle_p := jmv$ajil_p4 [ajl_ordinal].ijle_p; 


{ Scan the IJL thread and mark the entries swapped. 


ptlo :=5 ijle_p%.job_monitor taskid. index; 
WHILE ptilo <> Oo DO 


tmv$pti_pA [ptlo].idle_ status := tmc$is_idied; 


jmv$swap_jobs_in_long_ wait 


1989-08-21 


1989-08-21 


Anyone calling this routine must have tmv$pti_tock set. 


THEN 


ptio := tmv$ptil_pA [ptio].ijl_thread; 
WHILEND ; 
jcb_p := #ADDRESS (1, mtc$job_fixed_segment + ajl_ordinal, 0); 


temp_next cyclic_aging := jcb_p4.nmext cyclic _aging time 
IF temp _next cyclic aging < © THEN 


- #FREE RUNNING CLOCK (0); 


jcb_p4%.next_ cyclic aging time := 0; 
ELSE 
jcb_p4.next cyclic _aging time := temp_next cyclic aging; 


IFEND; 
imp$set_swapout_ candidate (aji_ordinal, 


PROCEND tmp$set_swapout_ candidate; 


imc$sr_long_ wait); 


13:33:34 


13:33:34 
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[XDCL] tmp$idle_non_dispatchable_job 


1989-08-21 13:33:34 


ce) 9315 

© 9316 { PURPOSE: 

Oo $317 { This procedure will idle a job whose dispatching priority is currently too low to be dispatched. 
} 9318 { DESIGN: 

© 9319 { This procedure is called from mmp$periodic when a job is discovered to be non-dispatchable. The job is 
oO 9§320 { Swapped out only if all tasks can he idied. 

o $321 

oO $322 PROCEDURE [XDCL] tmp$idie_non_dispatchable_job 

© 9g§323 ( ajl_ordinal: jmt$ajl_ordinal) ; 

° 9324 

° 9325 VAR 

© $326 ijle_p: Ajmt$initiated_job_list_entry, 

° $327 status: syt$monitor_status; 

© $328 

oO $329 tmp$set_ lock (tmv$pt1_lock) ; 

42 9330 

42 $331 ijle_p := jmv$aji_p4 [ajl_ordinal].ijle_p; 

42 9332 IF ijlie_ pA.entry status = jmc$ies_job_in_memory THEN 

66 9333 tmp$idie_tasks_in_job (ajl_ordinal, jmc$sr_idile_dispatching, status); 
8&4 9334 IF status.normal THEN 

8C $335 imp$swap_non_dispatchable_ job (ajl_ordinal); 

gc $336 IFEND; 

gc 9337 IFEND; 

gc 9338 

9C $339 tmp$clear_lock (tmv$pti1_lock) ; 

DO 9340 

eke) 9341 PROCEND tmp$S$idie_non_dispatchable_ job; 

i) $342 

SOURCE LIST OF tmm$dispatcher NOS/VE CYBIL/II 1.60 88102 1889-08-21 13:33:34 
TMP$SIDLE TASKS_IN_JOB 

° 9344 

° 9345 { PURPOSE: 

te) 9346 { The purpose of this procedure is to idle all tasks in a job. 

° $347 { NOTE!!! The calter of this procedure MUST set the PTL lock. 

ce] 9348 

° 9349 PROCEDURE [XDCL] tmp$idie_tasks_in_job 

Oo $350 ( ajli_ordinal: jmtS$aji_ordinal; 

o $351 Swapout_reason: jmtS$swapout_reasons; 

© $352 VAR status: syt$monitor_ status} ; 

° 9353 

° 9354 VAR 

° 9355 attempt_preselection: boolean, 

Oo 9356 end_ptilo: ost$task_index, 

oO 93357 ijle_p: Ajmt$initiated job_list_entry, 

o 9358 jcb_p: Ajmt$ job_control_block, 

° 9359 ptlo: ost$task_index, 

o 93360 ready _task_count: integer, 

o 93361 tasks _not_Swappabile_ count: oO osc$max_tasks, 

° $362 temp_next_cyclic_aging: integer, 

o $3363 xcb p: Aost$execut ion_control block; 

° 9364 

ce] $365 status.normal ::= TRUE; 

4 9366 ijle_p := jmv$aji_p4 [ajl_ordinal].ijle_p; 

4 $367 

4 9368 jcb_p :* #ADDRESS (1, mtc$job_fixed_segment + ajl_ordinal, 0); 

4 9369 

4 $370 { Reject the request if the job is non-swappable. 

4 9371 

4 $372 IF jmv$ajil_pA [ajl_ordinal].ijle_pA.entry_ status = jmc$ies_job_in_memory_non_swap THEN 
44 $373 mtp$set_ status abnormal (‘JS’, jse$job_executing nmon_Sswappable, status); 
44 9374 RETURN; 
56 $375 IFEND; 
56 $376 

56 8377 { Scan the IJL thread and mark the entries swapped. If the swapout reason is idie dispatching and ALL 
56 9378 { tasks cannot be idied, then do not idle any tasks. 
56 $379 
56 9380 ptlo := ijle pA. job _monitor taskid. index; 
56 3381 ready task count := 0; 

56 3382 tasks_not_ swappable count :=:= 0; 
56 9383 
56 $384 WHILE ptto <> O DO 

66 $385 xcb p := #ADDRESS (1, mtc$job_fixed_ segment + ajl_ordinal, tmv$pt1_p4 [ptilo].xcb_offset ) ; 
66 9386 IF (xcb_ pA.system_table_lock_ count >= osc$system_table_lock set) OR 
B2 9387 (tmv$ptil_pA [ptio].status = tmc$ts_executing) OR 

B2 $388 (tmv$pti_p4 [ptio].status = tmc$ts_ready_and_selected) OR 

B2 9389 (xcb_p4.system_table_lock_ count > 0) AND ((tmv$pti_pA [ptio].status < 
B2 $8390 tme$ts_ timeout regexp longlong) OR (tmv$pti_pA [ptio].status > 
B2 $391 tmce$ts_timeout_reqexp_infvilong)) THEN 
B2 $392 IF swapout reason <> jmc$sr_idie dispatching THEN 
BC 9393 tasks not _sSwappable_ count := tasks_not_ swappable count + 1; 
BC 9394 tmv$pti_pA [ptio].idie_ status := tmc$is_idie_initiated; 
CE 9395 ELSE 
CE 93396 end_ptlo := ptio; 
CE $397 ptlo :2 ijle_pA. job_monitor_taskid. index; 
CE $3398 WHILE (ptlo <> end _ptie) Do 
D& $393 IF (tmv$pti_pA [ptio].idle_ status”>= tmc$is_idied) THEN 
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E& $8400 IF tmv$pti1_p4 [ptlo].status = tmce$ts_ready_but_ swapped THEN 

F2 98401 tmv$pti_p4 [ptlo].status := tmc$ts_ ready; 

FE 9402 IFEND,; 

FE 9493 IF tmv$pti1_pA [ptilo].status <= tme$ts_last_status_in_dct THEN 
106 9404 attempt_preselection := (ijle_p4%.multiprocessing allowed) OR 
114 9405 (ijle_p4%.executing task_count = 0); 

*WARN* 9406 tmp$dct_ready_ task (xcb_p, ijle_p, ptlo, attempt _preselection) ; 
A48 9407 IFEND; 
A48 $408 IFEND; 
A48 9409 tmv$pti_pA [ptilo].idle_ status := tme$is_not_idied; 
448 9410 ptlo :2 tmv$pti_pA [ptlo]).ijl_thread; 
A4s 9411 WHILEND; 
ASC 9412 mtp$set_status_abnormal (‘JS’, jse$unable_to_idile_all_tasks, status) ; 
ASC $413 RETURN; 
AGE 9414 IFEND; 
A72 9415 
A7T2 9416 ELSEIF tmv$pti_pA [ptlo].status <= tmc$ts_last_status_in_dct THEN 
A&82 9417 tmp$remove_task_from_det (ptio); 
BFO 9418 tmvS$pti_pA [ptio].status := tme$ts_ready_but_swapped; 
BFO $419 ready task_count := ready task _count + 1; 
BFO 9420 tmv$S$pti_p4 [ptio].idle_ status := tmc$is_idied_sched_ notified; 
C1A 9421 ELSE 
C1A 9422 tmv$pti_pA [ptio].idlte_ status := tmc$is_idied; 
Cie 9423 IFEND ; 
Cie $424 
C1E 9425 IF xcb_pA.system_table_ lock count >» O THEN 
C26 9426 tmv$S$ptl_ pA [ptlo] .pti_flags.subsystem_locks set := TRUE; 
C36 $427 IFEND; 
C36 3428 ; 
C36 9429 ptlo := tmv$pti_pA [ptio].ijl_thread; 
C36 $430 WHILEND ; 
C4E 9431 
C4E 9432 IF tasks_not_Swappable_ count <> © THEN 
C52 $433 mtp$set_status_ abnormal (’JS’, jse$unable_to_idie_ali_tasks, status); 
C64 9434 ELSE 
C64 9435 temp_next_ cyclic_aging := jcb_pA.next_cyclic_aging_time - #FREE RUNNING CLOCK (0); 
C6A 9436 IF temp_nmext_ cyclic _aging < © THEN 
C76 9437 jcb_pA.next cyclic _aging time := 0; 
c7c $438 ELSE 
C7C 94393 jcb_p4.next_ cyclic _aging time := temp_next _cyclic_aging; 
C8oO S$440 IFEND; 
C8O 9441 IFEND; 
C8O 9442 
C8O 9443 PROCEND tmp$idie_tasks_in_job; 
SOURCE LIST OF tmm$dispatcher NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 
TMPSRESTART_IDLED_ TASKS 
Oo 9445 
oO 9446 PROCEDURE [XDCL] tmp$restart_idied_ tasks 
Oo 9447 ( ajl_ordinal: jmt$ajl_ordinal) ; 
© 9448 
oO 9449 VAR 
oO 9450 attempt preselection: boolean, 
Oo 9451 cst_p: Aost$cpu_state table, 
© 9452 ijle_p: Ajmt$initiated_job_list_entry, 
o $453 ready _ task _ count: integer, 
oO $454 xcb_ p: Aost$execution_control_biock, 
o 9455 ptlo: ost$task_index; 
o 9456 
© 9457 
o 9458 jmp$get_ijle_p (jmv$ajl_p4 [ajl_ordinal].ijl_ordinal, ijle_p); 
4 9459 
4 9460 IF jmc$dsw_update_keypoint_masks IN ijle_p4.delayed_ swapin_work THEN 

4A 9461 esp$update _job_keypoint_mask (ijle_p, jmv$ajl_p4 [ajil_ordinal].ijil_ordinal); 

SE 9462 IFEND; 

SE 9463 

5E 9464 ptio := ijle_ pA. job_monitor_taskid. index; 

SE $465 

SE 9466 { Scan the IJL thread and mark the entries swapped in. 

SE $467 

SE 9468 ready _task_count := 0; 

SE 9469 tmp$set_lock (tmv$pt1_lock)  ; 

A&G 9470 WHILE ptlo <> 0 DO 
AR 9471 xcb_p := #ADDRESS (1, mtc$job_fixed segment + aji_ordinal, tmv$pti_pA [pt1lo].xcb_offset) ; 
AR 9472 IF (tmv$pti_pA [ptio].idie_status >= tmc$is_idled) THEN 

D2 9473 IF tmv$pti_pA [ptio].status = tmc$ts_ready_but_ swapped THEN 

DC 9474 tmv$pti_p4 [ptilo].status := tme$ts ready; 

DC 9475 ready _task_count := ready _ task _count + 1; 

E2 9476 IFEND ; 

E2 9477 IF tmv$pti_p4 [ptio].status <= tmc$ts_last_status_im_dct THEN 

F2 9478 attempt_preselection :: (ijle_pA.multiprocessing_allowed) OR (ijle_pA.executing task_count = 0); 

*WARN# 8479 tmp$dct_ready task (xcb_p, ijle_p, ptio, attempt_preselection); 
AGG 9480 IFEND; 
AGS 39481 IFEND; 
AG4 9482 tmv$pti1_pA [ptio].idle_status := tmc$is_ not_idied; 
AG4& 9483 ptio := tmv$pti_pA [ptio].ijl_thread; 
ABS 9484 WHILEND ; 
A78& g48s 
A778 9486 tmp$clear_tlock (tmv$pt1_ilock) ; 
ARE 9487 
AAE 9488 PROCEND tmp$restart_idied tasks; 


PAGE 


PAGE 


1094 


1095 


SOURCE LIST OF tmm$dispatcher NOS/VE CYBIL/II 1.0 8910602 1889-08-21 13:33:34 PAGE 
TMPSIDLE TASKS_IN_SYSTEM_JOB 
o $4390 . 
o 9491 PROCEDURE tmp$idie_tasks_in_system_job 
oO 9492 ( idle resume_sys_task_kind: tmt$idle_resume_sys_task_kind; 
o 9493 VAR status: syt$monitor status) ; 
o 9494 
o 9495 VAR 
oO $496 ptio: ost$task_index, 
oO 94397 xcb_p: Aost$execution_control_block, 
o 9498 ready _task_count: integer, 
© 9499 ijle_p: Ajmt$initiated_job_list_entry, 
o 9500 tasks_not_ swappable count: © .. osc$max_tasks; 
o 93501 
oO 93502 status.normal := TRUE; 
4 9503 ijle_p := jmv$ajil_p* [jmv$system_ajl_ordinal].ijle_p; 
4 95064 tmp$set_lock (tmv$pti_tock); 
5C 9505 
5c 9506 { Scan the IJL thread and mark the entries Swapped. 
5C 9507 
5C 9508 ptlo :* ijle_p%. job _monitor_taskid. index; 
5C 9509 ready _task_ count := 0; 
SC 93510 tasks _ not swappable count :: 0; 
§C 9511 
5C 9512 IF idie resume _sys_task_kind = tmc$ir_dm_system_tasks THEN { Idle ONLY the Device Management tasks. } 
6A $513 
6A $514 WHILE ptieo <> oOo DO 
SE 9515 xcb_p := #ADDRESS (1, mtc$job_fixed_ segment + jmv$system_ajl_ordinal, tmv$pti_p4 [ptio].xcb_offset) ; 
6E 9516 IF (xcb_p%.system_task_id = tmc$stid_administer_log) OR 
AB 3517 {xcb_p’.system_task_id = tmc$stid_dm_split_ail} OR 
AG 9518 (xcb_pA.system_task_id = tmc$stid_volume_space_managemnt) THEN 
AG 9518 IF (xcb_pA.system_table_lock_ count >=: osc$system_table_lock_set) OR 
DA 9520 (tmv$pti_pA [ptilo].status = tmce$ts_executing) OR 
DA 9521 (tmv$pti1_pA [ptio].status = tmce$ts_ready_and_selected) OR 
DA 9522 (xcb_p*.system_tabie_lock_count > 0) AND ((tmv$pti_pA [ptio].status < 
DA 9523 tmc$ts_ timeout _reqexp_ shortshrt) OR (tmv$pti_pA [ptio].status > tmc$ts_last_status_in_wait_q)) 
DA 9524 THEN , 
DA 9525 tasks not swappable count := tasks _not_swappable count + 1; 
DA 9526 tmv$ptil_pA [ptlo].idle_status := tmc$is_idie_initiated; 
Ec $527 ELSEIF tmv$pti_p4 [ptlo].status <= tmc$ts_last_status_in_dct THEN 
Fo 9528 tmp$remove_task_from_dct (ptio); 
264 93529 tmv$pti_pA [ptio].status := tmc$ts_ready_but_swapped; 
26A 9530 ready task _ count :: ready task_count + 1; 
26A 9531 tmv$pti_pA [ptlo].idie_ status := tmc$is_idied_sched_notified; 
294 9532 ELSE 
294 9533 tmv$pti_pA [ptlo].idle_ status := tmce$is_idied; 
298 $534 IFEND; 
298 9535 IFEND ; 
298 $3536 ptlo := tmv$ptl_pA [ptlo].ijl_thread; 
238 9537 WHILEND; 
248 9538 
2A8 9539 tmp$ciear_leck (tmv$pt1_lock); 
2EO 9540 
2EO 9541 IF tasks_nmot_ swappable count <> O THEN 
2E4 9542 { Some Device Management task is still executing. } 
2E4 9543 mtp$set_status_abnormal (’JS’, jse$unable_to_idile_all_tasks, status); 
2F4 $544 IFEND ; 
2F6 $545 
SOURCE LIST OF tmm$dispatcher NOS/VE CYBIL/II 1.0 88102 1989-08-21 13:33:34 PAGE 
TMPSIDLE_TASKS_IN_SYSTEM_JOB 
2FE6 9546 ELSE { Idie everything EXCEPT the Device Management tasks. } 
2F6 9547 
2F6 $548 WHILE ptlo <> Oo DO 
2FAR 9549 xcb_p := #ADDRESS (1, mtc$job_fixed_ segment + jmv$system_ajl_ordinal, tmv$pti_pA [ptilo].xcb_offset}); 
2FA $550 IF (xcb_p%.system_task_id <> tmce$stid_administer_log) AND . 
332 9551 {xcbh_pA.system_task_id <> tmce$Sstid_dm_split_al) AND 
332 9552 (xcb_pA.system_task_id <> tmc$stid_volume_space_managemnt) THEN 
332 9553 IF (xcb_pA.system_table_lock_count >= osc$system_table_lock_set) OR 
35A 9554 (tmv$pti_pA [ptlo].status = tmce$ts_executing) OR 
354 9555 (tmv$pti_pA [ptlo].status = tmc$ts_ready_ and_selected) OR 
354 9556 (xcb_p4.system_table_lock_count > ©) AND ((tmv$pti_pA [ptio].status < 
354 9557 tmc$ts_ timeout _reqexp_shortshrt) OR (tmv$pti1_pA [ptlo].status > tmc$ts_last_status_in_wait_q)) 
354 9558 THEN 
354 93559 tasks not _swappable count := tasks _not_Swappable_ count + 1; 
35A 9560 tmv$pti_p” [ptio].idlie_ status := tmc$is_idle_initiated; 
36C $561 ELSEIF tmv$pti1_p4 [ptlo].status <= tmc$ts_last_status_in_dct THEN 
37C 9562 tmp$remove_task_from_dct (ptilo); 
4EA 3563 ' tmv$ptl_ pA [ptio].status := tmce$ts_ ready _but_swapped; 
SEA 9564 ready _task_count := ready task_count + 1; 
4EA 9565 tmv$pt1l_pA [ptilo].idle_ status := tmc$is_idied_sched_notified; 
514 9566 ELSE 
514 9567 tmv$pti_pA [ptlo].idle status :: tmc$is_idied; 
518 9568 IFEND; 
518 $3569 IFEND; 
518 9570 ptio := tmv$pti_p4 [ptio].ijl_thread; 
§18 9571 WHILEND; 
528 3572 
528 93573 tmp$clear_lock (tmv$pt1_lock) ; 
560 9574 
560 93575 IF tasks_not_ swappable count <> 1 THEN 
564 9576 { A system task other than the system JOB_MONITOR is still executing. } 
564 9577 mtp$set_status_abnormal (‘JS’, jse$unable_to_idie_all_tasks, status); 
574 93578 IFEND; 
574 93579 IFEND; 
574 9580 
574 9581 PROCEND tmp$idie _tasks_in_system_job; 
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TMPSRESTART_TASKS_IN_SYSTEM_JOB 
Oo 93583 
Oo 9584 PROCEDURE tmp$restart_tasks_in_system_job 
o 9585 ( idjie_ resume_sys_task_kind: tmt$idle resume_sys_task_kind; 
o 9586 VAR status: syt$monitor_status) ; 
o 9587 
o 3588 VAR 
o 69589 attempt preselection: boolean, 
o 9590 ptilo: ost$task_index, 
Oo 9591 ready _task_count: integer, 
o 9592 xcb_ p: Aest$execution_control block, 
Oo 93593 ijle_p: Ajmt$initiated job_list_entry; 
° 9594 
o 9595 status.normal := TRUE; 
4 9596 imp$get_ijle_p (jmv$aji_p4 [jmv$system_ajl_ordinal].ijl_ordinal, ijle_p); 
4 9597 
4 9598 IF jmc$dsw_update_keypoint_masks IN ijle_pA.delayed swapin_work THEN 
4E—E 9599 osp$update_job_keypoint_mask (ijle_p, jmv$system_ijl_ordinal) ; 
66 9600 IFENDO; 
66 9601 
66 9602 ptlo :5 ijle_ pA. job _monitor taskid. index; 
66 9603 
66 9604 Scan the IJL thread and mark the entries swapped in. 
66 9605 
66 9606 ready task _ count := 0; 
66 9607 tmp$set_lock (tmv$pt1_lock); 
ARH 3g3608 
AR 9609 IF idle resume_sys_task_kind = tmc$ir_dm_system_tasks THEN { Restart ONLY the Device Management tasks. 
AE $610 
AE 9611 WHILE ptio <> Oo DO 
B2 9612 xcb_p :5 #ADDRESS (1, mtc$job_fixed_ segment + jmv$system_ajl_ordinal, tmv$pti_p% [ptlo].xcb_offset) ; 
B2 9613 IF (xcb_pA.system_task_id = tme$stid_administer_10g) OR 
EA 9614 (xcb_p4.system task_id = tmc$stid_dm_split_al) OR. 
EA 9615 (xcb_p4.system_task_id = tmc$stid_volume space _managemnt) THEN 
EA S616 IF (tmv$pti1_p4 [ptio].idle_ status >= tmc$is_idled) THEN 
FC $617 IF tmv$pti_pA [ptio].status = tmc$ts_ready_but_swapped THEN 
106 9618 tmv$pti_p% [ptio].status :: tmc$ts_ready; 
106 9619 ready task_count := ready task count + 1; 
10C 9620 IFEND; 
1oC «698621 IF tmv$pti_pA [ptio].status <= tme$ts_last_status_in_dct THEN 
11C 9622 attempt_preselection := (ijle_p%.mulitiprocessing allowed) OR (ijle_pA.executing task count = 
*WARN* 9623 tmp$dct_ready task (xcb_p, ijle_p, ptio, attempt_preselection) ; 
A52 9624 IFEND ; 
AS2 $625 IFEND ; 
AS2 9626 tmv$ptil_pA [ptlo].idle status := tmc$is_not_idied; 
ASE 9627 YIFEND; 
ASE 9628 ptlo := tmv$pti_pA [ptlo].ijl_thread; 
ASE $629 WHILEND; 
A6E $3630 
AGE 9631 tmp$clear_lock (tmv$pti1_tock); 
AASB 9632 
AAS 9633 ELSE { Restart everything EXCEPT the Device Management tasks. } 
AAS $634 
AASB $9635 WHILE ptiloe <> 0 DO 
AAC 3636 xcb_p := #ADDRESS (1, mtc$job_fixed_segment + jmv$system_ajl_ordinal, tmv$pti1_p4 [ptio].xcb_offset) ; 
AAC 9637 IF ({xcb_p4.system_task_id <> tmc$stid_administer_log) AND 
AE4 9638 (xcb_pA.system_task_id <> tmc$stid_dm_split_al) AND 
SQURCE LIST OF tmm$dispatcher NOS/VE CYBIL/II 1.0 898102 1989-08-21 13:33:34 
TMPSRESTART_TASKS_IN_SYSTEM_JOB 
AE4 9639 (xcb_p4.system_task_id <> tmc$stid_volume_space_managemnt) THEN 
AES $640 IF (tmv$pti_p4 [ptlo].idjle_status >= tme$is_idied) THEN 
AEE 9641 IF tmv$pti_pA [ptlo].status = tmc$ts_ ready _but_swapped THEN 
AF&S 9642 tmv$pti_p4 [ptio].status := tmc$ts_ready; 
AF& 939643 ready task count :: ready task _count + 1; 
AFE 9644 IFEND; 
AFE 9645 IF tmv$pti_pA [ptlo].status <= tmc$ts_last_status_in_dect THEN 
BOE 93646 attempt preselection := (ijle_pA.multiprocessing allowed) OR (ijle_p’.executing task_count = 
*WARN + 9647 tmp$dct_ready_task (xcb_p, ijle_p, ptio, attempt_preselection) ; 
146A 93648 IFEND; 
1464 9649 IFEND ; 
1468 9650 tmv$pti_pA [ptlo].idle status := tmc$is_not_idied; 
1476 $651 IFEND; 
1476 9652 ptlo := tmv$pti_p4 [ptio].ijl_thread; 
1476 $653 WHILEND; 
1486 $654 
1486 S655 tmp$clear_ilock (tmv$ptl_lock) ; 
14BC 9656 IFEND; 
14BC 9657 
14BC 9658 PROCEND tmp$restart_tasks_in_system_job; 


1088 
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$660 

9661 PROCEDURE [INLINE] update _cp_statistics 
8662 ( cst_p: Aest$cpu_state_table) ; 
$663 
9664 
sé665 
S666 
9667 


o° 


The purpose of this procedure is to update the cp statistics in the 
IJL, XCB, JCB and the system statistics record. 


UPDATE _CP_STATISTICS (CST_P) 


CST_P: (INPUT) This parameter specifies the pointer to the CPU 
STATE TABLE. 


o 
o 
o 
@ 
ios Name Maen Kane Rate Scan fame ame fae) 


$674 VAR 

$675 excess cp _time_used: integer, 

9676 minor _time_slice_ remaining: integer, 
9677 major _time_slice remaining: integer, 
9678 status: syt$monitor_status, 

$679 task_time_ slice used: integer, 

9680 total _cptime: integer; 


$683 { Update cp statistics in IJL. 

9685 cst _pA.ijle_pA%.statistics.cp_time.time _spent_in_mtr_mode ::= cst_pA.ijle_pA.statistics.cp_time. 
3686 time _spent_in_mtr_mode + cst_p4%.accumulated monitor _cptime; 

9687 cst _pA.ijle_pA.statistics.cp_time.time spent_in_job_mode := cst _p*.ijle_p%.statistics.cp_time. 
$688 time spent_in_job_mode + cst _p%.accumulated job_cpt ime; : 
S630 task _time_stice used :: cst _pA.accumulated job_cptime + cst_pA.accumulated monitor_cptime; 

9692 { Update the dispatching priority controls. 

9694 update _ dispatching controls (task_time_slice_used, cst_pA.dispatching_ priority) ; 

$696 { Update system data statistics. 

9698 tmv$cpu_execution_statistics [cst_pA.dispatching priority] .time_spent_in_mtr_mode := 

9699 tmv$cpu_execution_statistics [cst_p4.dispatching priority] .time_spent_in_mtr_mode + cst _pA. 
3700 accumulated monitor cpt ime; 

9701 tmv$cpu_execution_statistics [cst_pA.dispatching priority] .time spent _in_job_mode := 

8702 tmv$cpu_execution_statistics [‘cst_p4.dispatching_ priority] .time_spent_in_job_mode + cst_pA. 
$703 accumulated job cpt ime; 

9705 { Update cp statistics in XCB. 

$707 cSt_pA.xcb pA.cp_time.time spent_in_mtr_mode : = cst_pA.xcb_p4.cp_time.time_spent_in_mtr_mode + cSt pa. 
9708 accumulated monitor cpt ime; 

3709 cst _pA.xcb pA.cp_time.time_spent_in_job_mode :: cst_p4.xcb_ pA.cp_time.time_spent_in_job_mode + cst _p%. 
$710 accumulated job_cptime; 

9712 IF task_time_slice_used >= cst_pA.ijle_p%.dispatching control.service remaining THEN 


9714 { Reset the dispatching control for the task, based on the service class dispatching controls. 


eooooooooaoacooooooaacooooooooooocoooocoooooooooooo0oc0000000 00 
wo 
oO 
Oo 
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9739 { Send a flag to the job monitor of the current job if the flag interval 
9740 { has expired. 


9742 total_cptime := cst_pA.ijle_pA.statistics.cp_time.time_spent_in_job_mode + cst_p4A.ijle_pA.statistics. 
$743 cp_time.time_spent_in_mtr_mode; 

9744 IF total_cptime - csSt_pd.jcb_pA.cptime_signal_last_sent >= cst_pA.jcb_pA.signal_interval THEN 

9745 tmp$set_system_flag (cst_p4. jcb_pA.job_monitor_id, avc$monitor_ statistics flag, status); 

$746 cst_pA. jcb_pA.cptime_signal_last_sent := total _cptime; 

$747 IFEND; 


9749 PROCEND update _ cp statistics; 


oO 9716 excess _cp_time_used := task_time_slice_used - cst_pA.ijle_p%.dispatching control.service remaining; 
oO 9717 tmp$reset_ dispatching _ control (cst_pA.ijle_p, cst_p’%.ijl_ordinal, excess _cp_time_used, TRUE); 
o 9718 

o 3s$719 ELSE . 

o 93720 

° 9721 {Calculate the time remaining on this tasks time slice. 

oO $722 

oO $%g723 cst_pA.ijle_ pA.dispatching control.service remaining := cst _pA.ijle_pA.dispatching control. 
oO 3724 service remaining - task _time_ slice used; 

oO 9725 minor time _slice remaining := cst_pA.xcb_ pA.timeslice.minor - task time_slice_used; 
Oo %g726 major _time_ slice remaining := cst _pA.xcb_pA.timeslice.major - task_time_slice_used; 
Oo $727 IF minor _time_ slice remaining < © THEN 

© $728 cst_pA.xcb_ pA.timeslice.minor := 0; 

o $7293 ELSE 

o 93730 cst_p4%.xcb pA.timeslice.minor := minor time slice remaining; 

o $731 IFEND; 

oO 9732 IF major_time_slice_ remaining < © THEN 

° $733 cst _pA.xcb_ pA.timeslice.major := 0; 

oO $734 ELSE 

oO $735 cst_pA.xcb_pA.timeslice.major := major _time_slice_remaining; 

o $736 IFEND; 

o 93737 IFEND; 

o 

° 

° 

° 

° 

° 

© 

° 

° 

° 

° 

° 

° 
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Oo 9752 : 
o 9753 PROCEDURE [INLINE] update _dispatching_controls 
o 9754 ( time_used: integer; 
° 9755 dispatching priority: jmt$dispatching priority) ; 
Oo 393756 
0 9757 VAR 
Oo 93758 dp: jmt$dispatching priority; 
° 9759 
Oo 3760 IF (tmv$dispatching_controis.controls_ defined) AND (dispatching priority < jmc$priority_p8) THEN 
o 3761 IF time_used >= tmv$dispatching_control_time.time_left_in_interval THEN {RESET THE TABLE} 
° 9762 tmv$dispatching control _time := tmv$dispatching controls.controls; 
° 9763 tmv$dispatching_ control _sets.minimums_to_ satisfy := tmv$dispatching controls.minimums_to_satisfy; 
° 9764 tmv$dispatching control_sets.maximums_exceeded := $jmt$dispatching priority_set [1]; 
i?) 9765 tmv$dispatching control _sets.enforce maximums ws $jmt$dispatching priority_set []; 
o $766 tmp$calculate_dct_priority_int; 
Oo 9767 FOR dp := jmc$priority p1 TO jmc$priority p& DO 
o 9768 update priority integer (dp); 
° $769 FOREND; 
° 9770 ELSE 
oO $3771 tmv$dispatching control _time.time_left_in_interval := tmv$dispatching_ control time. 
oO $772 time_left_in_interval - time_used; 
fe $773 IF dispatching priority <> jmc$null_dispatching priority THEN 
Oo 3774 IF (jmcSap_conversion - dispatching priority) IN tmv$dispatching control_sets. 
oO $3775 minimums to _ satisfy THEN 
° S776 IF time_used >= tmv$dispatching control_time.dispatching priority_time 
° 9777 [dispatching priority] .minimum_time THEN 
oO 3778 tmv$dispatching control sets.minimums_ to satisfy := tmv$dispatching control sets. 
ce) $773 minimums to satisfy - S$jmt$dispatching priority _set 
o 9780 [jmc$dp_conversion - dispatching _priority]; 
o 9781 tmp$cailculate_det_priority_int; 
Oo $782 update _priority_integer (dispatching priority); 
o 93783 ELSE 
Oo 3784 tmv$dispatching control_time.dispatching priority_time [dispatching priority] .minimum_t ime 
o 93785 >= tmv$dispatching control_time.dispatching priority time [dispatching priority]. 
oO $786 minimum _time - time_used; 
° $787 IFEND; 
Oo 9788 IFEND; 
o 93789 
o $3790 IF (( jmc$dp_conversion - dispatching_priority) IN tmv$dispatching controls.maximums_def ined) 
o 93791 AND NOT (( jmc$dp_conversion - dispatching priority) IN tmv$dispatching control sets. 
o 9792 maximums exceeded) THEN 
° $733 IF time_used >= tmv$dispatching control_time.dispatching priority_time 
o 9794 [dispatching priority] .maximum_time THEN 
o $795 tmv$dispatching control _sets.maximums_exceeded := tmv$dispatching control_sets. 
° $796 maximums exceeded + S$jmt$dispatching priority set 
o 9797 [jmc$dp_conversion - dispatching priority]; 
o $3798 jmv$idie_dispatching controls.maximums_exceeded := jmv$idle_dispatching controls. 
o $3799 maximums exceeded + $jmt$dispatching priority_set [jmc$dp_conversion - 
o 9800 dispatching priority]; 
o 9801 IF (jmc$dp_conversion - dispatching priority) IN tmv$dispatching controls.enforce maximums THEN 
o $802 tmv$dispatching control _sets.enforce_ maximums :: tmv$dispatching control sets. 
© $803 enforce maximums + SjmtS$dispatching priority set 
oO $804 [jmc$dp_conversion - dispatching priority]; 
Oo 9805 IFEND; 
Oo 9806 tmp$cailculate_dct_priority_int; 
oO 9807 update _ priority _integer (dispatching priority) ; 
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g808 ELSE 

$809 tmv$dispatching control _time.dispatching priority_time [dispatching priority] .maximum_t ime 
9810 :? tmv$dispatching_ control_time.dispatching priority_time [dispatching priority]. 
$811 maximum _ time - time_used; 

$812 IFEND; 

9813 IFEND ; 

9814 IFEND; 

9815 IFEND; 

9816 IFEND; 

9817 

9818 PROCEND update _ dispatching controls; 

9819 
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9821 
9822 
9823 
9824 
9825 
9826 
9827 
9828 
9829 
$830 
9831 
9832 


SOURCE LIST OF 


{XDCL, 


INLINE) 


OPAPAAPHPRBAHPAHAAHAPBODODOBODS 


$846 
9847 
9848 
9849 


{ PURPOSE: 
{ The purpose of this procedure is to calculate and change the integer priority value for a specific 
{ dispatching priority. This is done onty when the pricrity crosses a minimum allocated or maximum 
{ allocated dispatching allocation threshold. 
PROCEDURE [INLINE] update_priority integer 
( dp: jmt$dispatching priority) ; 
VAR 
local_set: tmt$dispatching control sets; 
local_set := tmv$dispatching control sets; 
lecal_set.ready tasks := $jmt$dispatching priority_set [ jmc$dp_conversion - dp] - 
(local_set.enforce maximums * local _set.maximums_exceeded) ; 
local_set.enforce_ maximums := $jmt$dispatching_priority_ set [1]; 
local_set.minimums_to_satisfy :* local_set.minimums to satisfy * local_set.ready tasks; 
local_set.maximums_ exceeded := locai_set.maximums_ exceeded * local _set.ready_ tasks; 
local_set.ready tasks := local_set.ready tasks XOR [(local_set.minimums_to_satisfy + 
local _set.maximums_exceeded) ; 
#unchecked conversion (local_set, tmv$dispatch_priority_integer [dp]); 
PROCEND update priority integer; 
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tmp$calculate_det_priority_int 


{ PURPOSE: 
{ The purpose of this procedure is to calculate the integer priority value for the DCT queues 
{ with ready tasks. If there is nothing queued in the DCT, the integer priority will be oO. 
{ If there are tasks queued, the integer priority represents the highest allocated dispatching 
{ priority. 
PROCEDURE [XDCL, INLINE] tmp$calculate_dct_priority_int,; 
VAR 
local_set: tmt$dispatching control_sets; 
local_set := tmv$dispatching control sets; 
local_set.ready tasks := local_set.ready tasks - (local_set.enforce maximums * 
local_set.maximums_ exceeded) ; 
local_set.enforce maximums := $jmt$dispatching_ priority set []; 
local _set.minimums to satisfy := local_set.minimums_ to satisfy * local set.ready tasks; 
local_set .maximums_ exceeded := local _set.maximums_ exceeded * local _set.ready tasks; 
local_set .ready_ tasks : = local_set.ready_ tasks XOR (local_set.minimums_to_ satisfy + 
local_set .maximums_exceeded]) ; 
#unchecked conversion (local_set, tmv$dct_priority integer); 
PROCEND tmp$calculate_ dct _priority_int; 


1104 
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Oo 9871 

° ss72 { NOTE : Anyone calling this routine must have tmv$ptil_lock sat. 

o $873 

oO 9874 PROCEDURE [INLINE] initiate_swap_if_possible 

Oo 9875 ( cst_p: Aest$cpu_state_tabie) ; 

oO 9876 

o $877 VAR 

oO 9878 jcb_p: Ajmt$job_control_biock, 

te) 9879 temp next cyclic_aging: integer, 

o 9880 ptlo: ost$task_index; 

oO 9881 

Oo 3882 ptio := cst pr.ijle_ p%*.job_monitor taskid. index; 

© 9883 WHILE (ptlo <> ©) AND (tmv$ptil_p4 [ptio].idle_ status >= tmc$is_idied) DO 
oO 9884 ptlo :: tmv$pti_pA [ptio]).ijl_thread; 

oO 9885 WHILEND; 

o 9886 IF ptlo = © THEN 

° 9887 jcb_p : + #ADDRESS (1, mtc$job_fixed_ segment + cst_p’.ajlo, 9); 
oO 98888 temp _nmext_cyclic_aging :+ jcb_pA.next_cyclic_aging_time - #FREE RUNNING CLOCK (0); 
o 9889 IF temp_next_ cyclic aging < ©O THEN 

° 9890 jcb_p%.next_ cyclic _aging time := 0; 

° 9891 ELSE 

fe) $892 jcb_pA.next_cyclic_aging time := temp_next_ cyclic aging; 

o 9893 IFEND; 

o 9s894 jsp$idle_tasks_complete (cst_p’.ijl_ordinal); 

o $3895 IFEND; 

oO 3s9896 

o 9897 PROCEND initiate swap_if possible; 
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o $8s9 

o 9900 PROCEDURE [XDCL] tmp$fetch_task_statistics 

Oo 9901 (VAR rb: tmt$rb_fetch_task_statistics; 

o $902 cst_p: Aost$cpu_state table); * 
o 9903 

o 93904 

fe) g9o05 { 

° 9906 { The purpose of this request is to return task statistics. 

3° 9907 { Currently this request returns the MONITOR MODE time 

© ggo0s { and the JOB MODE time for the task. 

° ssos f{ 

° 9310 { TMPS$FETCH TASK _STATISTICS (RB, CST_P) 

.°) 9911 { 

ve] 9912 { RB: (INPUT,OQUTPUT) This parameter specifies the request biock. 

o s8s13 { 

° $914 { CST_P: (INPUT) This parameter specifies the pointer to the CST. 

o $9815 { 

© 9916 

o 3917 VAR 

° $918 current_pit_ value: integer ; 

o $919 

° 9320 rb.status.nmormal := TRUE; 

4 $821 rb.monitor_cptime := cst_pA.xcb_p%.cp_time.time_spent_in_mtr_mode + Of ffFfFFFFF(I1E) - 
20 9822 #READ_REGISTER (osc$pr_process_interval_timer); 

20 $923 

20 $924 current _pit_value :: cst_p4.xcb_p4.xp.process_interval_timer_1 * 10000(16) + cSt _pA.xcb_pA.xp. 
20 $325 process _ intervail_timer_2; 

20 $926 IF current _pit_value > 7FFFFFFF(16) THEN 

42 9927 current _pit_value := current_pit_value - 100000000(16) ; 

48 9928 IFEND; 

48 9929 rb. job _cptime : = cst_p4.accumulated_ job _cptime - current_pit_value + 
4&8 93930 cst_pA.xcb_pA.cp_time.time spent _in_job_mode; 

4& 9931 


48 $332 PROCEND tmp$fetch task statistics; 
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o $935 
Oo 9936 PROCEDURE [XDCL] tmp$mtr_update_job_task_enviro 
o $9337 (VAR rb: tmt$rb_update_job_task_enviro; 
o $938 cst_p: Aost$cpu_state_ table) ; 
o $839 
Oo $3940 
oO 93941 VAR 
° 9942 current pit _value: integer, 
oO $943 dispatching_ controls: jimt$dispatching_ controls, 
° 9944 ¥: integer, 
o $945 ijle_p: A fee Sin res eheusteui iitee anki, 
Oo 9946 new_max_ptilo: ost$task_index, 
oO 93947 old_ max _ptie: ost$task_index, 
oO $948 service_used: integer; 
oO 9949 
re) $950 ro.status.normal := TRUE; 
4 9951 tmp$set_lock (tmv$pt1_lock) ; 
4A 3952 CASE rb.subcode OF 
AG 3953 = tmce$ujte_xp_register = 
AB 9954 CASE rb. register_ id OF 
B2 9955 > osc$pr_process_intervai_timer = 
B2 9956 current _Pit_ vaiue :: cst _P*%.xcb_ pA.xp.process_ interval timer_1 #* 10000(16) + cSt_pA.xcb pA.xp. 
B2 9957 process_ interval _timer ai: 
B2 9958 IF current _pit_ value > a eeeeFEE(IG) THEN 
DO 93959 current _pit_value 72 current _pit_value - 100000000(168); 
D6 s8960 IFEND; 
D6 9961 cst_p’.accumutated job_cptime := cst_p%.accumulated_ job_cptime + rb.pit_value - current _ pit value; 
D6 9962 cst_p4A.xcb_pA.pit_count := cst_p%.xcb pA. pit _ count + rbo.pit_value - current pit value; 
D& $963 cst_p4.xcb_pA.xp.process_interval_timer_1 :: rb.pit_value DIV 10000(16); 
D6 9964 cst_p’4.xcb_pA.xp.process_interval_timer_2 := rb.pit_value MOD 10000(16); 
104 93965 ELSE 
104 =s966 CASEND; 
10E 39367 
10E 93868 = tme$ujte_dispatching_ priority = 
10E 9969 imp$get_ijle_p (rb.ijl_ordinal, ijie_p); 
10E 9970 IF ijle_p <> NIL THEN 
13E 9971 
13E $972 { Verify that the same job is still using this ijl ordinal. 
13E 9873 
13E 8974 IF ijle_pA.system_supplied mame <> rb.system_supplied mame THEN 
14C «69975 tmp$clear_lock (tmv$pt1_tlock) ; 
182 Sss76 mtp$set_status_ abnormal (’JM’, jmeSnon_existent_job, rb.status) ; 
182 3977 RETURN; 
18A 9978 IFEND; 
194 939379 
19A 93980 CASE rb.request_origin OF 
1D0)0«=6—9s81 = tme$cpo_operator, tmc$cpo_recovery = 
1D0 $982 
1DO 9383 { A null dispatching priority indicates the operator specified DEFAULT; the system must determine 
1D0 9984 { the correct dispatching control set based on total service the job has used. 
1DO0 9985 { If the operator has specified a dispatching priority, assign the job that priority. 
1D0 9986 
1D0 9987 { If the null priority is coming from job recovery, we have completed job recovery and must now 
1D0 ssg8s { set the dispatching priority back to its original value. It had been set up to the system job 
100 9989 { dispatching priority to guarantee that it would swap in and recover. 
1DO)=—s 8990 
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1B0 $391 IF rb.dispatching control_info.dispatching priority = jme$null_dispatching priority THEN 
1D8 9992 

1D8 93893 IF rb.request_origin = tmc$cpo_operator THEN 

1EO 9994 ijle_p%.dispatching control.operator_set_dispatching prio := jmc$null_dispatching priority; 
1EA 9995 IFEND; 

1EA 9996 calculate _service_used (ijle_p, service_used); 

1FE $397 tmp$reset_ dispatching contro! (ijle_p, rb.ijl_ordinal, service used, FALSE); 

22c 069998 

22C s9s9g ELSE 

22C 10000 ijle_pA.dispatching control.operator_set_ dispatching prio := rb.dispatching control_info. 
22C 10001 dispatching priority; 

22C 10002 ijle_pA.dispatching_control.dispatching priority :+ rbh.dispatching control _ info. 

22C 10003 dispatching priority; 

22C 10004 ijle_p%.dispatching_control.service_ remaining := jmc$dc_maximum_service_ limit; 

22C 10005 tmp$update_job_task_environment (ijle_p, rb.ijl_ordinal, tmc$fnx_job); 

262 10006 IFEND; 

262 10007 

262 10008 IF (ijle_pA.dispatching_control.dispatching priority <> 

272 10008 ijle_pA.scheduling dispatching priority) THEN 

272 10010 jjle_p4.scheduling dispatching priority :=* ijle_pA.dispatching control.dispatching priority; 
276 10011 IFEND; 

27A 10012 

27A 10013 = tme$cpo_user = 

27H 10014 

270A 10015 { Store the user requested dispatching priority, determine which priority is allowed, and update. 

27A 10016 

27h 10017 ijle pA.dispatching_control.user_ requested dispatching prio := rb.dispatching control _info. 
Z27A 10018 dispatching priority; 

27A 10019 determine dispatching priority (ijle_p); 

296 10020 tmp$update_job_task_environment [(ijle_p, rb.ijl_ordinal, tmc$fnx_ job) ; 

2BC 10021 

2BC 10022 = tme$cpo_set_job_unswappable = 

2BC 10023 

2B8C 10024 { A job is set unmswappable during job termination. The job is given system dispatching priority 

2BC 10025 { with unlimited service. 

2BC 10026 

2BC 10027 ijle_p%.dispatching_control.dispatching control_index := jmc$min_dispatching control; 

2BC 10028 ijle_pA.scheduling dispatching priority := jmc$priority_system_job; 

2BC 10029 ijle_ pA.dispatching_ control.dispatching priority := jmc$priority system_job; 

2BC 10030 ijle_ pA.dispatching_control.service remaining := jmc$dc_maximum_service_ limit; 

2BC 10031 ijle_pA.dispatching control.operator_set_dispatching prio := jmc$null_dispatching priority; 
2BC 10032 ijle_pA.dispatching control.user _requested_ dispatching_ prio := jmc$null_dispatching priority; 
2BC 10033 tmp$update_ job_task_environment Tijle_p, rb. ijl_ordinal, tmc$fnx_ job) ; 

302 10034 

302 10035 = tme$cpo_interactive_ command, tmc$cpo_save_swap_file_sfid = 

302 10036 

302 10037 { A new command line has been scanned for an interactive job or the job is through critical initiation; 
302 10038 { the first dispatching control set for the class is used. 

302 10038 

302 10046 IF rb.request_origin = tmc$cpo_interactive command THEN 

30C 10041 ijle_pA.interactive task_gtid := tmv$nu1l1_global_task_id; 

318 10042 IFEND ; 

318 10643 ijle_ pA.dispatching control.dispatching control index := jmc$min_dispatching control; 

318 10044 ijle_ pA.dispatching control.service remaining : imv$service_classes 

318 10045 [Lijle p%. job_ Scheduler _data.service class]A.attributes. i ae control [1].service_ limit; 
318 10046 determine _dispatching_ priority Cijie_p); 
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34C 10047 tmp$update job_task_environment (ijle_p, rb.ijl_ordinal, tmc$fnx_ job) ; 
372 10048 
372 10049 = tmc$cpo_interrupt_restore = 
372 10050 
372 10051 { Restore the job’s dispatching control information to the values saved from before a user interrupt. 
372 10052 { If the dispatching control_index is no longer a valid one for the job’s service ciass (the service class 
372 10053 { has been changed since the dispatching control info was saved), calculate the correct dispatching 
372 10054 { control_index based on the CP service the job has used. 
372 10055 
372 10056 dispatching controls := jmv$service_classes [ijle_p%*.job_scheduler_data.service_class]4.attributes. 
39E 10057 dispatching_control [rb.dispatching control_info.dispatching control index]; 
39E 10058 IF (NOT dispatching controils.set_defined) OR (dispatching controls.service_limit < 
3BE 10059 rb.dispatching control_info.service_ remaining) OR 
3BE 10060 (dispatching controls.dispatching priority <> rb.dispatching_ control info. 
3BE 10061 dispatching priority) THEN 
3BE 10062 
3BE 10063 caliculate_service_used (ijle_p, service_used); 
3D6 10064 tmp$reset_dispatching_ control (ijle_p, rb.ijl_ordinal, service_used, FALSE); 
404 10065 ELSE 
404 10066 ijle_pA.dispatching control.dispatching controi_index := rb.dispatching control info. 
404 10067 dispatching control_index; 
404 10068 ijle_pA.dispatching control.service remaining := rb.dispatching control_info. 
404 10069 service remaining; 
404 10070 determine dispatching priority (ijle_p); 
418 10071 tmpS$update_job_task_environment (ijle_p, rb.ijl_ordinal, tmc$fnx_ job) ; 
430A 10072 IFEND ; 
4490 10073 ELSE 
442 190074 
442 10075 CASEND,; 
442 10076 
442 10077 IFEND ; 
446 10078 
446 10079 = tmce$ujte_set_non_swappable = 
446 10080 IF tmv$pti_pA [cst_p4A.taskid.index].idie_ status = tmc$is_not_idled THEN 
462 10081 imp$change_ijl_entry_status (cst_p’%.ijle_p, jmc$ies_job_in_memory_non_swap) ; 
4B& 10082 ELSE 
4B8& 10083 tmp$reissue_monitor_request ; 
4CoO 10084 cst_pA.dispatch_control.call_dispatcher := TRUE; 
4c4 10085 IFEND ; 
4C& 10086 
4c& 10087 = tmce$ujte_idie_other_sys_ tasks = 
4c& 10088 tmp$idie_tasks_in_system_job (tmc$ir_other_system_tasks, rb.status) ; 
ADE 10089 
ADE 10090 = tme$ujte_restart_other_systasks = 
4DE 10091 tmp$restart_tasks_in_system_job (tmc$ir_other system_tasks, rb.status); 
4F4 10082 
4F4 10033 = tme$ujte_idile dm_sys_tasks = 
4F4 10094 tmp$idie tasks_in_system_job (tmc$ir_dm_system_tasks, rb.status) ; 
S0C 10095 
50C 10096 = tmc$ujte_restart_dm_systasks = 
50C 10037 tmp$restart_tasks_in_system_job (tmc$ir_dm_system_tasks, rb.status}); 
524 100398 
§24 10099 = tmce$ujte_expand_ pti = 
524 1010600 
524 10101 { Copy the entries from the old PTL to the new PTL. Then link the new PTL entries into the free queue. 
524 10102 { Reset tmv$ptil_p to point to the new expanded pti. 
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10103 
10104 
10105 
10106 
10107 
10108 
10109 
10110 
10111 
10112 
10113 
10114 
10115 
10116 
10117 
10118 
10119 
10120 
10121 
10122 
10123 
10124 
10125 { 
10126 { 
10127 
10128 
10128 
10130 
10131 
10132 
10133 
10134 
10135 
10136 
10137 
10138 
10139 
10140 
10141 
10142 
10143 
10144 


old max ptlo := UPPERBOUND (tmv$pti1_pA); 

new_max ptilo := UPPERBOUND (rb.pti_pA); 

I#MOVE (tmv$ptil_p, rb.pti_p, #SIZE (tmv$pti_p)); 

FOR i : = old max ptio + 1 TO new_max ptio - 1 DO 
rbo.pti_pAli)].pti_thread := i + 1; 

FOREND ; 

rb.pt1l_pA[new_max_ptilo].ptil_thread := 0; 

tmvS$ptl_p :* rb.pti_p; 


O THEN 
Old _max ptilo + 1; 


IF tmv$dct [ jmc$null_dispatching priority] .queue_head 
tmv$dct [ jmc$null_ dispatching priority] .queue_head 


ELSE 

tmv$ptl_pA [tmv$dct [ jmc$null_dispatching_priority].queue_tail].pti_thread := old _max_ptio + 1; 
IFEND ; 
tmv$dct [ jmc$null_dispatching_priority].queuve tail := new _max_ptio; 


= tme$ujte_ update_debug_ masks = 
tmp$update debug registers; 


= tmce$ujte_set_task_ terminating = 


The free filag is not set here because immediately after the return to job mode, 
411 of the outstanding signals and flags are processed. 


cst_pA.xcb_ pA.task_is_terminating := TRUE; 


cst_pA.xcb_pA.monitor_ flags := cst_pA.xcb_pA.monitor flags + tmv$pti1_pA 
[cst_pA.taskid.index] .monitor_ flags; 
cst_pA.xcb_pA.system_flags := cst_pA.xcb_pA.system_flags + tmv$pti1_pA 


Icst_p4.taskid.index].system_flags; 
tmv$ptil_pA [cst_pA.taskid.index].system_flags := $tmtSsystem_flags [ 1; 
tmv$pti_p4 [cst_pA.taskid.index].monitor_filags := $syt$monitor_fiags [ ]; 


ELSE 

tmp$ciear_lock (tmv$pt1_lock); 

mtp$error_stop (’TM - unimplemented subcode’); 
CASEND; 


tmp$cilear_lock (tmv$pti1_lock) ; 


PROCEND tmp$mtr_update_job_task_enviro; 
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1989-08-21 


13:33:34 


© 10146 
© 10147 { PURPOSE: 
© 10148 { This procedure changes the dispatching priority and timeslice in the XCB 
© 10149 { for all tasks of a job. 
© 10150 { DESIGN: 
© 10151 { The caller has stored the new dispatching priority in the IJL. 
© 10152 { If the XCB of the job can be referenced (ie, the job is NOT swapped out) 
© 10153 { changes to the XCB are made. If the job is Swapped out, the delayed 
© 10154 { Swapin work bit is set, which causes this procedure to be called again 
o 10155 { when the job swaps back in. 
© 10156 
0 10157 PROCEDURE [XDCL] tmp$update_job_task_environment 
© 10158 { ijle_p: Ajmt$initiated_job_list_entry; 
© 10159 ijl_ordinal: jmt$ijl_ordinal; 
© 10160 xcb search: tmt$fnx_search_type) ; 
© 10161 
© 10162 VAR 
© 10163 attempt preselection: boolean, 
Oo 10164 ptio: ost$task_index, 
© 10165 ptie_p: Atmt$primary_task_list_entry, 
© 10166 xcb_p: Aost$execution control _biock, 
oO 10167 dispatching priority: integer, {must be integer} 
© 10168 state: tmt$find next _xcb_ state; 
© 10169 
© 10170 tmp$set_lock (tmv$pt1_lock) ; 
42 10171 tmp$find_next_xcb (xcb_ search, ijle_p, ijl_ordinal, state, xcb_p); 
76 10172 IF xcb_p = NIL THEN 
84 10173 ijle_pA.delayed Swapin_ work :: ijle_ pA.delayed Swapin_ work + 
SA 10174 $jmt$delayed_ swapin_work [ jmc$dsw_update_job_task_enviro] ; 
9A 10175 ELSE 
SA 10176 WHILE xcb_ p <> NIL DO 
AO 10177 IF xcb_p4A.dispatching priority bias_id <> jmc$dpb_absolute THEN 
Ac 10178 IF xcb_p4.dispatching_ priority bias_id = jmc$dpb_positive THEN 
BO 10179 dispatching priority :5 1tjle_pA.dispatching control.dispatching priority 
C2 10180 + xcb_ pA.dispatching priority bias; : 
C2 10181 ELSE 
C2 10182 dispatching priority :* ijle_ pA.dispatching control.dispatching priority 
D2 10183 - xcb_ pA.dispatching priority bias; 
D2 10184 IFEND ; 
D2 10185 IF dispatching priority > jmc$max_dispatching priority THEN 
D& 10186 dispatching priority := jmc$max_dispatching priority; 
DE 10187 ELSEIF dispatching priority < jmc$min_dispatching_priority THEN 
E2 10188 dispatching priority := jmc$min_dispatching priority; 
E&8 10189 IFEND ; : 
E& 10190 xcb_ pA.dispatching priority :+ dispatching priority; 
E8 10191 ptlo := xcb pA.gtobal_task_id. index; 
E8 10192 ptle_p := Atmv$pti_p’ [ptlol]; 
E&8 10193 xcbh_pA.timeslice := jmv$service_cilasses [ijle_p4.job_scheduler_data.service _class]4.attributes. 
E&8 10194 dispatching_control [ijle_pA.dispatching control.dispatching control index]. 
E8 10195 dispatching timeslice; 
E& 101396 IF xcb_ p4.system_table_lock_ count <= © THEN 
130 10197 IF ptle_pA.status <= tme$ts_ last _status_in_dct THEN 
138 10198 tmp$remove_task_from_dct (ptlo); 
2AA 10199 ptle_ pA.dispatching priority :* xcb_ pA.dispatching priority; 
2AR 10200 attempt_preselection := (ijle_pA.multiprocessing_ allowed) OR (ijle_pr.executing task _ count = 
*WARN# 10201 tmp$dct_ready_task (xcb_p, ijle_p, ptio, attempt_preselection) ; 
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C46 10202 ELSE 
C46 10203 ptle_pA.dispatching priority := xcb_pA.dispatching priority; 
C4E 10204 IFEND; 
CS2 10205 IFEND; 
C52 10206 IFEND; 
CS2 10207 tmp$find_next_xcb (tmc$fnx_continue, NIL, jmv$null_iji_ordinal, state, xcb_p); 
C84 10208 WHILEND; 
c98a 10209 IFEND; 
C38 10210 tmp$clear_lock (tmv$pti_lock) ; 
cOo4 10211 
CD4 10212 PROCEND tmp$update_job_task_environment ; 
© 10213 


PAGE 


oO); 


PAGE 
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TMPSUPDATE_ JOB _TASK_CPU_ SELECTS 
© 10215 
© 10216 { PURPOSE: 
o 10217 { This procedure changes the processor setections the XCB for a11 tasks of a job. 
© 10218 { DESIGN: 
o 10219 { The caller has stored the value of the processors which are still logically on in the SCB. If the XCB of 
© 10220 { the job can be referenced (ie, the job is NOT swapped out) changes to the XCB are made. If the job is 
© 10221 { Swapped out, the delayed swapin work bit is set, which causes the job mode version of this procedure to be 
© 10222 { called when the job swaps back in. 
o 10223 
© 10224 PROCEDURE [XDCL] tmp$update_job_task_cpu_selects 
© 10225 ( ijle_p: AjmtSinitiated job_list_entry; 
© 10226 ijl_ordinal: jmt$ijl_ordinal; 
© 10227 xcb search: tmt$fnx_search_type) ; 
© 10228 
o 10229 VAR 
9 10230 xcb_p: Aost$execution control block, 
Oo 10231 state: tmt$find_next_xcb_ state; 
oO 10232 
© 10233 tmp$set_lock (tmv$pt1_lock) ; 
42 10234 tmp$find_next_xcb (xcb search, ijle_p, ijl_ordinal, state, xcb_p); 
76 10235 IF xcb_p = NIL THEN 
84 10236 ijle_p%.delayed swapin_work :+ ijle_p%.delayed swapinm_work + 
9A 10237 $jmt$delayed_swapin_work [ jmc$dsw_adjust_cpu_selections] ; 
9A 10238 ELSE 
SA 10239 WHILE xcb_ p <> NIL DO 
AO 10240 IF xcb_p4.processor_selections * mtv$scb.processors logically_on = $ost$processor_id_set [ ] THEN 
BE 10241 xcb_ pA.processor_ selections := mtv$scb.processors logically_on; 
BA 10242 IFEND; 
BA 10243 tmp$find_next_xch (tmc$fnx_continue, NIL, jmv$null_ijl_ordinal, state, xcb_p); 
EA 10244 WHILEND ; 
100 10245 IFEND ; 
100 10246 tmp$clear_lock (tmv$pt1_ lock) ; 
13C 10247 
13C 10248 PROCEND tmp$update_ job task_cpu_selects; 
o 10249 
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If the job’s service class has circular dynamic dispatching priorities defined, 
MOD the service_used by the sums of the service limits. 


{ PURPOSE: 

{ This procedure calculates the amount of CP service a job has used. The procedure 

{ tmp$reset_ dispatching control determines the dispatching control index to use, based 
{ on the SERVICE USED returned. 

{ DESIGN: 

{ For interactive jobs, return © for service _used; the dispatching control index should 
{ be reset to the first index. For batch classes, base service _ used on total cp time. 
{ 

{ 


PROCEDURE calculate service used 
( ijle_p: Ajmt$initiated _job_list_entry; 
VAR service_used: integer); 


VAR 
circular service: integer, 
dispatching control p: Ajmt$dispatching control, 
dispatching control index: jmt$dispatching control_index; 


IF ijle_p%.job_mode <> jmc$batch THEN 


service used := 0; 
ELSE 
service _used := ijle_p4A.statistics.cp_time.time_spent_in_job_ mode + ijle_pA.statistics. 
cp_time.time_spent_in_mtr_mode - ijle_pA.dispatching control.cp_service_ at_class_ switch; 


circular_service :=: 0; 
dispatching control _p := Ajmv$service_ciasses [ijle_p4.job_scheduler, data.service class)A.attributes. 
dispatching contro?; 
/calculate_ circular_service/ 
FOR dispatching control_index := jmc$max_dispatching control DOWNTO 
imc$min_dispatching control DO 
IF dispatching control pA [dispatching _control_index].set_defined THEN 
IF dispatching controil_pA [dispatching _control_index].service_limit <> 
jme$dc_maximum_ service limit THEN 
circular_service = circular_service + dispatching control_pA [dispatching control index]. 
service. limit; 
ELSE 
EXIT /calculate circular_service/ ; 
IFEND; 
IFEND; 
FOREND /calculate_circular_service/; 
IF circular service <> © THEN 
service used := service used MOD circular service; 
IFEND; 
IFEND; 


PROCEND calculate service _used; 
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DETERMINE DISPATCHING PRIORITY 
oO 10300 
© 10301 { PURPOSE: 
© 10302 { This procedure determines which dispatching priority a job should have 
© 10303 { and stores it in the IJL. 
© 10304 { DESIGN: 
o 10305 { If the operator has changed the dispatching priority for a job, that dispatching 
© 10306 { priority is used. Otherwise the job is assigned the lesser of the user requested 
© 10307 { dispatching priority (if there is one) and the dispatching priority defined in the 
© 10308 { service class table dispatching control sets. 
o 10309 
© 10310 PROCEDURE determine dispatching priority 
Oo 10311 ( ijle_p: Ajmt$initiated_job_list_entry); 
Oo 10312 
© 10313 VAR 
© 10314 update scheduling priority: boolean; 
o 10315 
© 10316 { The scheduling dispatching priority and the dispatching_controlis.dispatching priority will only 
© 10317 { be different in the case of a task of the job having subsystem locks set and being readied by 
© 10318 { a task which has a higher dispatching priority. In that instance, the scheduling dispatching priority 
© 10319 { will be updated when the task releases the lock and issues a CYCLE request. 
o0 10320 
Oo 10321 update scheduling priority := (ijle_p%.dispatching control.dispatching priority = ijle_p”. 
4 10322 scheduling dispatching _ priority), 
4 10323 IF ijle_p4%.dispatching control.operator_set_dispatching prio <> jmc$null_dispatching priority THEN 
1€ 10324 ijle_pA.dispatching control.dispatching priority := ijle_pr.dispatching_ control. 
24 10325 operator _set_dispatching prio; 
24 10326 ELSE 
24 10327 IF (ijle_pA.dispatching control.user_requested dispatching prio <> jmc$null_dispatching priority) AND 
50 10328 (ijle_pA.dispatching control.user_ requested dispatching prio < 
50 103298 jmv$service classes [ijle_p’.job_scheduler_data.service_ class]4. 
50 10330 attributes.dispatching control [ijle_pA.dispatching_control.dispatching control_index]. 
50 10331. dispatching priority) THEN 
50 10332 ijle_ p%.dispatching control.dispatching priority := ijle_ pA.dispatching_ control. 
58 10333 user requested dispatching prio; 
58 10334 ELSE 
58 10335 ijle_pA.dispatching control.dispatching priority 28 
7C 10336 jmv$service_classes [ijle_p*. job_scheduler_data.service_ciass]4. 
7C 10337 attributes.dispatching control [ijle_pA.dispatching control.dispatching control index]. 
7C 10338 dispatching priority; 
7C #10339 IFEND; 
7C 10340 IFEND; 
7C #10341 
70 10342 IF update _ scheduling priority THEN 
80 10343 ijle_pA.scheduling dispatching priority :: ijle_pA.dispatching controi.dispatching priority; 
8&8 10344 IFEND; 
88 10345 
8&8 10346 PROCEND determine dispatching priority; 
Oo 10347 
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© 10349 
© 10350 { PURPOSE: 
Oo 10351 { This procedure is called to reset the dispatching contro?l set for a job. 
© 10352 { DESIGN: 
o 10353 { If expired dispatching control is TRUE, the procedure has been called because a 
o 10354 { a task switch determined that the job has used all the service allowed for the 
© 103855 f{ current dispatching contro? index. The next index meeds to be assigned. 
o 10356 { Otherwise the procedure needs to determine the correct index based on 
© 10357 { the total amount of service the job has used. 
o 10358 { The procedure finds the correct dispatching control index, determines the 
© 10359 { dispatching priority, and makes a call to update the dispatching priority 
o 10360 { im the XCB. 
© 10361 
Oo 10362 PROCEDURE [XDCL] tmp$reset_dispatching_ contro}! 
© 10363 ( ijle_p: Ajmt$initiated _job_list_entry; 
© 10364 ijli_ordinal: jmt$ijl_ordinal; 
© 10365 excess service used: integer ; 
© 10366 expired dispatching control: boolean); 
© 10367 
o 10368 VAR 
Oo 10369 dispatching control_p: Ajmt$dispatching_ control, 
© 10370 next index: integer, 
oOo 10371 service _used: integer ; 
0 10372 
© 10373 dispatching _control_p :: Ajmv$service_ciasses [ijle_p4.job_scheduler_data.service_class]A.attributes. 
4 10374 dispatching control; 
4 10375 
4 10376 service used := excess _ service used; 
4 10377 
4 10378 IF expired dispatching control THEN 
2C 10379 next index := ijle pA.dispatching control.dispatching control _index + 1; 
36 10380 ELSE 
36 10381 next_index := jmc$min_dispatching control; 
38 10382 IFEND; 
38 10383 
38 10384 /find_dispatching control _set/ 
38 10385 WHILE service used >= © DO 
3C 10386 IF (next index <= jmc$max_dispatching_ control) AND (dispatching control pA [next_index].set_def ined) 
52 10387 THEN 
52 10388 IF dispatching control pA [next _index].service_limit >» service_used THEN 
5C 10389 ijle_pA.dispatching control.service remaining := dispatching control pA [next_index].service_ limit 
5C 10390 service_used; 
§C 10391 ijle_ pA .dispatching control.dispatching control _index := next_index; 
5C 10392 determine dispatching priority (ijle_p); 
7A 10393 tmp$update_job_task_environment [(ijle_p, ijl_ordinal, tmc$fnx_ job); 
$4 103394 EXIT /find_dispatching_control_set/; 
AO 1039395 ELSE 
AO 10396 service used := service_used - dispatching control pA [next_index].service_ limit; 
AO 10397 next _index := nmext_index + 1; 
44 10398 IFEND ; 
A& 10399 ELSE 
A& 10400 next_index := jmceS$min_dispatching control; 
AC 10401 IFEND; 
AC 10402 WHILEND /find_dispatching control_set/; 
BO 10403 
BO 106404 PROCEND tmp$reset_dispatching control; 
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“7MPSSWITCH TASK 


NOS/VE CYBIL/II 1.0 88102 


NOS/VE CYBIL/II 1.0 89102 


is to change the current task 


The XCB, JCB and AJL accounting fields are 


#KEYPOINT (osk$mtr, osk$monitor multiplier * 0, tmk$switch task); 


170 has set a fFiag to activate it. 


IF mtv$mli_status.wait_inhibit AND NOT mtv$mli_status.ready THEN 
tmp$set_task_ready (mlv$c170_rqst_bik.reqs.task_id, © {readying _task_priority}, 


62 10457 { If the CPU is not idle (cst_pA.xcb_p is not NIL), update the executing tasks’s status. 


© 10407 

© 10408 PROCEDURE [XDCL] tmp$switch_task 

© 10409 { dummy: Acell; 

© 10410 cst_p: Aost$cpu_state_table) ; 

© 10411 

© 10412 

© 10413 { 

© 10414 { The purpose of this procedure 

o 10415 f{ of execution. 

© 10416 { updated. 

© 10417 { 

© 10418 { TMPSSWITCH_ TASK 

Oo 10419 f{ 

oO 10420 

0 10421 

© 10422 VAR 

© 10423 attempt preselection: boolean, 

Oo 10424 locked _dp_integer: integer, 

© 10425 next _ptlo_to_dispatch: ost$task_index, 
© 10426 next _task_ijle_p: AjmtSinitiated job_list_entry, 
oO 10427 next _task_xcb_p: Aost$execution_control_ block, 
oO 10428 priority: dp_trick conversion, 

© 10429 local_set: tmt$dispatching controi_sets, 
© 10430 integer_dp_sets: integer, 

0 1060431 r: real, 

Oo 10432 idle time: integer, 

© 10433 time: integer, 

0 10434 xcbh_ p: Aost$execution_control_ block, 
© 10435 ptie_p: Atmt$primary task_list_entry, 
© 10436 ptlo: ost$task_index; 

Oo 10437 

Oo 10438 

© 10439 { Update task accounting info. 

© 10440 

Oo 10441 

E 10442 

E 10443 IF NOT tmv$tables initialized THEN 

1A 10444 cSt _pA.max_cptime := 20000; 

1A 10445 RETURN; 
28 10446 IFEND; 
28 10447 

28 10448 { Wake up memory link -helper if 
28 10449 
28 10450 ?IF NOT DEBUG THEN 
28 10451 
3C 10452 

62 10453 tme$rc_ready_conditional_wi) ; 
62 10454 IFEND; 
62 10455 ?IFEND; 

62 10456 

62 10458 

62 10459 xcb p :* cst_pA.xcb_p; 

62 10460 
62 10461 tmp$set_lock (tmv$pti_lock) ; 


A4 10462 
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A& 10463 IF xcb p ¢> NIL THEN 
AA 10464 
AA 10465 IF cst_p4.accumulated_ job_cptime <> © THEN 
*WARN* 10466 update _cp_statistics (cst_p); 
S56A 10467 IFEND; 
S56A 10468 7 
56A 10469 xcb pA. last_ipid_ for task :+ cst_pA.cst_index; 
566A 160470 cst _ pA.jcb_pA.last_ipid_for_ job := cst_p”.cst_index; 
S6A 10471 cst_pA.jcb_p4A.last_execution_time : = #FREE RUNNING CLOCK (0); 
582 10472 ptlo := cst _pA.taskid. index; 
582 10473 ptle_ p := Atmv$pti_pA [ptio]; 
582 10474 
582 10475 { If the task has system tables locked and is still ready, let it keep running. 
582 10476 
582 10477 /system_locks_set/ 
582 10478 BEGIN 
582 10479 IF xcb_pA.system_tabie_ lock count > © THEN 
S9E 10480 IF (ptile_pA.new_task_status = tmc$ts_nmul1l) AND (cst_p4.cpu_state.next state <> osc$cpu_stepped) AND 
5B6 10481 (cst_pA.next_ processor state = cmc$on) THEN 
5B6 10482 IF (xcb_pA.system_table_lock_ count >= osc$system_tabie_lock_set) THEN 
SBE 10483 cst_pA.dispatching priority := jmc$prior_system_tbis_ locked; 
SBE 10484 locked _dp_integer := tmv$dispatch_priority_integer [jmc$prior_system_tbis_locked] ; 
SBE 10485 xcb_ pA.system_give_ up _cpu := TRUE; 
5DO0 10486 ELSEIF (xcb_p4.subsystem_lock_priority_count <= tmv$subsystem_prior_threshold) THEN 
§5DC 10487 xcb_pA.subsystem_jiock_priority count := xcb pA.subsystem_lock_priority_ count + 1; 
Spc 10488 cst_pA.dispatching_ priority := jmc$prior_subsystem_tbi1s_locked; 
50C 10489 lecked_dp_integer := tmv$dispatch_priority_integer [jmc$prior_subsystem_tb1s_ locked] ; 
SDC 10490 xcb pA.subsystem_give_up cpu : + TRUE; 
SFE 10491 ELSE 
SFE 10492 EXIT /System_locks_set/; 
SFA 10493 IFEND; 
SFA 10494 cst_p4.dual_state prior _subpriority :=: tmv$dual_state_dispatch_prior 
SFA 10495 [cst_pA.dispatcning priority]; 
SFA 10496 cst_pA.max_cptime := jmv$service_classes [cst_p4.ijle_p%. job_scheduler_data.service_ciass]4. 
SFA 10497 attributes.dispatching control [cst_pA.ijle_pA.dispatching_ control. 
SFA 10498 dispatching control_index].dispatching timeslice.minor ; 
SFA 104898 
SFA 10500 [ If this processor was being interrupted to switch to a higher priority task, the task must be inserted 
SFA 10501 [{ in the DCT because this processor cannot be interrupted now. Do not change the dispatching priority 
SFA 10802 { integer to the locks-set value until after checking/removing a pre-selected task. When the task was 
SFA 10503 { pre-selcted the dispatching priority integer for the CPU was changed to the pre-selected task’s priority. 
SFA 10504 { If it is changed, the task may be pre_selected for this processor again. 
SFA 10505 { Example: A P6 task is executing; a P10 task has been pre_selected (so dispatching priority integer 
5FA 10506 { is P10). The P& task has sub-system locks set, so its priority is raised to P9. Changing the dispatching 
SFA 10507 { priority integer to PS before calling dct_ready task again for the pre-selected P10 task could cause 
SFA 10508 { this CPU to be pre-selected again. 
SFA 10509 
SFA 10510 IF cst _pA.mext_ptlo_to_dispatch <> © THEN 
634 10511 next _ptlo_to_dispatch := cst_pA.next_ptlo_to_ dispatch; 
634A 10512 imp$get_ijle_p (tmv$pti1_p4 [next_ptlo_to_dispatch].ijl_ordinal, next_task_ijle_p); 
634 10513 next task_ijle_p%.executing task_coumt := next _task_ijle_p%.executing task_count - 1; 
63A 10514 tmv$ptil_ pA [next_ptlo_to_dispatch] .status := tme$ts_ready; 
6B3A 10515 tmp$get_xcb_ p_from_ptio (next_ptlo_to_dispatch, next _task_ijle_p%.ajl_ordinal, 
634A 10516 next _task_xcb_p); 
634 10517 cst_p%.mext ptico_to_dispatch : + 0; 
*WARN* 10518 tmp$dct_ready_ task (next_task_xcb_p, next_task_ijle_p, next_ptlo_to_dispatch, 
: e 
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1042 10519 {attempt _preselection =} TRUE); 
1042 10520 IFENO; 
1042 10521 cst_p4.dispatching priority _integer := locked_dp_integer ; 
1042 10522 
1042 10523 tmp$clear_lock (tmv$pt 1_ lock} ; 
1O7E 10524 #KEYPOINT (osk$mtr, osk$monitor multiplier * ptio, tmk$switch task + osk$m); 
1086 10525 RETURN; {<--- } 
1088 10526 IFEND; 
108C 10527 ELSEIF (ptie_pA.idie_ status = tmc$is_idie_initiated) THEN 
1084 10528 ptie pA.idle status := tmc$is_idied; 
1084 105293 cst_p%.xcb_ p := NIL; 
1094 10530 initiate _swap_if_ possible (cst_p); 
1124 10531 IFEND; 
1124 10532 END /system_locks_ set/; 


1124 10533 
1124 10534 
1124 10535 
1124 10536 
1124 10537 
1124 10538 


The current task will be removed from the CPU. Decrement this task’s executing task_ 
count. If a task has not been pre selected for this CPU, set dispatching priority integer 
equal to the highest priority task in the DCT for the pre-select code in 

dct_ready_task (which will be called if tasks are readied from the timed wait queue). 


mm om ro om 


1124 10539 cst_pA.ijle_pr.executing task count := cst _pA.ijie_pA.executing task_count - 1; 
1124 10540 IF (cst_pA.next_ptlo_to_dispatch = 0) THEN 

113A 10541 cst_p’.dispatching priority integer :+ tmv$dct_priority integer ; 

1142 10542 IFEND; 

1148 10543 IFEND; {xcb_p <> NIL} 


1148 10544 
1148 108545 
1148 10546 
1148 10547 
1148 10548 
1148 10549 
*WARN* 10550 update timed wait queue; 

1BFA 10551 

1BFA 10552 { If there is a task executing, check its new status. 
1BFA 10553 


Update the timed wait queue. This must be done before considering the status of the task 
that is currently executing (if there is one); tasks being readied from the timed wait queue 
should be considered for pre-selection (in tmp$dct_ready task) before the task that is 
currently executing. 


mar es eS 


1BFA 10554 IF xcb_p ¢> NIL THEN 

1BFE 10555 

1BFE 10556 IF ptle_pA.new_task_status > tme$ts_last_status_in_dct THEN 

1CO6 10557 ptie_p4.status := ptie_ pA.new_task_status; 

1CO6 10558 ptie_pA.new_task_ status := tmc$ts_null; 

1CO6 10559 cst_pA.ijle_pA.statistics.ready_ task count := cst_pA.ijle_pA.statistics.ready_task_count - 1; 
1CO6 10560 IF ptie_ pA.status <= tme$ts_last_status_in_wait_q THEN 

126 10561 tmp$insert_timed_wait_queue (ptlo) ; 

1CF6 190562 IFEND; 

1CF& 10863 IF (ptle_pA.status = tmce$ts_ timeout _reqexp_longviong) OR (ptle_ p%.status = 

1DOC 10564 tmc$ts_ timed _wait_not queued) OR (ptie_pA.status = tmc$ts_timeout_reqexp_infvlong) THEN 
1p0C 10565 cst_pA.ijle_pA.statistics.tasks_ not_in_long wait :5 cst_pA.ijle_pA.statistics. 

1DOCc 10566 tasks _nmot_in_long_ wait - 1; 

1poCc 10567 IF (cst_pA.ijle_p4%.statistics.tasks_not_in_long wait = 0) AND 

1D30 10568 (cst_pA.ijle pA.entry status = jmc$ies_job_in_memory) AND 

1D30 10569 (ptle pA. idie_ status = tmc$is_not_idied) THEN 

1D30 10570 cst_pA.xcb_p := NIL; 

1D30 10571 tmp$set_swapout_candidate (cst_p4.ajlo); 

1D44 10572 IFEND; 

1D44 10573 IFEND; 


1D48 10574 
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1D48 10575 ELSEIF ptile_ pA.idie status <> tmc$is_idied THEN 
1D52 10576 ptle_ pA.status :: tme$ts ready; 
1D52 10577 attempt preselection := (cst_pA.next_ptlo_to dispatch = 0) AND 
1D82 10578 ((cst_pr.ijle_ pA.multiprocessing allowed) OR (cst_pA.ijle_pA.statistics.ready_task_count = 1)); 
1D82 10579 tmp$dct_ready_task (xcb_p, cst_p4.ijle_p, ptlo, attempt_preselection) ; 
264C 10580 ELSE 
264C 10581 ptle_pA.status := tmc$ts_ready_but_swapped; 
264C 10582 ptie pA.idle_ status := tmc$is_idiled_ sched notified; 
264C 10583 jimp$ready_ task_in_swapped_job (cst_p4.ijl_ordinal, cst_pA.ijle_p); 
2678 10584 IFEND; 
2678 10585 IFEND ; 
2678 10586 
2678 10587 IF (cst_pA.cpu_state.next_state = osc$cpu_stepped) THEN 
2684 10588 ptlo := 0; 
2684 10589 tmp$clear_lock (tmv$pt1_ lock); 
26BE 10590 mtp$error_stop (‘terminated through the dispatcher path’); 
260E 10591 { Any processor which follows this path is NOT the one driving the system into STEP mode. THEREFORE, 
26DE 10592 { the call above is valid because the driving processor has the correct reason for calling STEP. 
26DE 10593 tmp$set_lock (tmv$ptl_lock); 
2716 10594 ELSEIF (cst _pA.processor_state <> cst_p%.next_processor_state) OR ((tmv$dedicate_a_cpu_to_nos AND 
2742 10595 (cst_p%.dual_state_jps <> ©) AND (cst_p’%.next_ptilo_to_dispatch = 0)) 
2742 10596 AND tmv$multiple_ cpus_active) THEN 
2742 10597 cst_pA.dual_state_ prior subpriority.subpriority := 0; 
2742 10598 ptlio := 0; 
274C #10599 ELSE 
274C 10600 
274C 10601 { Select next task for execution. 
274C 10602 { If cst_p%.next_ptilo_to_dispatch is non-zero, that task nas already been selected to 
274C 10603 { execute on this CPU through the ready task path, so switch to it. 
274C 10604 { If the next _ptlo_to_dispatch field is zero, a new task to execute needs to be selected now. 
274C 10605 { Tmv$dispatching control_sets contains the following dispatching priority sets: 
274C 10606 { enforce _maximums--priorities which cannot use more than the specified maximum % of the CPU. 
274C 10607 { minimums to_satisfy--priorities which have mot received the specified minimum % of the CPU. 
274C 10608 { (System priorities can use 100% of the CPU, so they are always in minimums_to_ satisfy.) 
274C 106098 { ready_tasks--priorities with tasks in the DCT. 
274C 10610 { maximums_exceeded--priorities that have exceeded the specified maximum % of the CPU. 
274C 10611 { For select next _task, priorities which have exceeded maximum and for which the maximum is 
274C 10612 { enforced are removed from the sets; they cannot execute for the rest of the interval. 
274C 10613 { The remaining priorities with ready tasks are manipulated so that each priority is set 
274C 10614 { only once in any of the three sets (which are ordered, left to right) : minimums_to_satisfy, 
274C 10615 { ready_tasks, maximums exceeded. The conversion process pulls off the leftmost bit set in the sets. 
274C 10616 { Thus, priorities with a minimum percentage to satisfy are selected first, followed by priorities 
274C 10617 { with ready tasks that have not exceeded the maximum percentage. Priorities which have exceeded 
274C 10618 { the maximum but are not prevented from executing by enforce maximum are selected last. 
274C 10619 { When the dispatching priority has been selected, tasks from that DCT queue are considered, 
274C 10620 { until one is found that can execute. 
274C 10621 { 
274C 10622 { NOTE: --PURGE BUFFERS-- If the task or the job the task belongs to did mot last execute 
274C 10623 { on this CPU, then cache must be purged. If multiprocessing is allowed, the last processor 
274C 10624 { for the task is checked. 
274C 10625 { For non-multiprocessing jobs, the last processor for the job is checked. The task can 
274C 10626 { execute only if the job has no other tasks executing. If a task has been pre_selected to execute, 
274C 10627 { the executing task_count was checked and incremented by the pre-selection code. 
274C 10628 { If the task is being selected from the DCT, the task is selected and cache purged if the 
274C 10629 { executing task_count = 0o. 
274C 10630 
SOURCE LIST OF tmm$dispatcher NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 


TMPSSWITCH_TASK 


274C 
2754 
2754 
2754 
2754 
2754 
2754 
2754 
2754 
2754 
27D0 
27D8 
27E6 
27E6 
27E8 
27EA 
27EE 
27EE 
27FA 
27FC 
27FE 
2800 
2800 
2804 
2804 
2804 
2804 
2804 
2804 
2804 
2804 
2804 
2804 
2804 
2804 
2804 
2804 
2804 
2804 
2804 
2804 
2804 
2804 
28S5E 
285E 
285E 
2872 
2872 
2872 
2872 
2872 
2872 
2872 
2872 
28E6 
28FC 


10631 
10632 
10633 
10634 
10635 
10636 
10637 
10638 
10639 
10640 
10641 
10642 
10643 
10644 
10645 
10646 
10647 
10648 
10649 
10650 
10651 
10652 
10653 
10654 
10655 
10656 
10657 
10658 
106598 
10660 
10661 
10662 
10663 
10664 
10665 
10666 
10667 
10668 
10669 
106706 
10671 
10672 
10673 
10674 
10675 
10676 
1O6 77 
10678 
10679 
10680 
10681 
10682 
10683 
10684 
10685 
10686 


IF cst_pA.next_ptle_to_ dispatch <> © THEN 
ptlo := cst_pA.nmext_ ptilo_to_dispatcn; 
ptie_p := Atmv$pti_p4 [ptiol; 
cst_p%.next_ptlo to_dispatch := 0; 
cst_p4.ijl_ordinal := ptie_ p%.ijl_ordinatl; 
imp$get_ijle_p (cst_p%.ijl_ordinal, cst_pA.ijle_p); 
cst _p%.ajlo := cst_p%.ijle_p%.ajl_ordinal; 
cst_p%.jcb_p := #ADDRESS (1, cst_pr.ajlo + mtc$job_fixed_segment, 0}; 
xcb_p := #ADDRESS (1, mtc$job_fixed_segment + cst_p%.ajlo, ptile pA.xcbh_offset); 
IF osv$cpus_logically_on > 1 THEN 
IF cst_pA.ijle_pA.multiprocessing allowed THEN 
IF xcb_ pA. last_iIpid_for_task <> cst_pA.cst_index THEN 
{ NOTE: The second parameter on the #purge_ buffer command is just a dummy pointer. 
#PURGE BUFFER (osc$purge_all_cache, xcb_p}; 
#PURGE BUFFER l(osc$purge_all_page_ seg map, xcb_p); 
IFENDO; 
ELSE 
IF cst_p’.jcb_p’%.last_ipid_ for job <> cst_pA.cst_index THEN 
#PURGE BUFFER (osc$purge_all_cache, xcb_p); 
#PURGE BUFFER (osc$purge_all_page_seg_ map, xcb_p}); 
IFEND; 
IFEND; 
IFEND; 


ELSE { Select a new task to execute. } 


local_set := tmv$dispatching_control_sets; 

local _set.ready_tasks := local_set.ready_ tasks - (local_set.enforce maximums * 
local_set .maximums_exceeded) ; 

local_set.enforce_ maximums := $jmt$dispatching priority set [1]; 

local_set.minimums_ to_satisfy := local_set.minimums_to_ satisfy * local set .ready_ tasks; 

local set .maximums_exceeded := locai_set.maximums exceeded * local _ set .ready tasks; 

local_set.ready tasks := local_set.ready tasks XOR (local_set.minimums_ to _satisfy + 
local_set .maximums_exceeded) ; 


#unchecked conversion (local_set, integer _dp_sets); 


ro: $real(integer_dp_sets); 
priority.r sf Pr; 


ptlo :=+ 0; 
/find_ next_task/ 
WHILE priority.dp_mask.dp <> © DO 
ptio := tmv$dct [priority.dp_mask.dp].queue_ head; 


WHILE ptlo <> 0 BO 
ptle_p := AtmvS$pti_pA [ptiol]; 
cst_pA.ijl_ordinal := ptte pA.ijl_oerdinatl; 
jmp$get_ijle_p (cst _pA.ijl_ordinal, cst_pA.ijle_p); 
cst_p4.ajlo := cst_pA.ijle_pA.ajl_ordinal; 
cst_p4.jcb_p := #ADDRESS (1, cst_p%.ajlo + mtc$job_fixed segment, 0); 
xcb p := #ADDRESS (1, mtc$job_fixed segment + cst_pr.ajlo, ptle_p%.xcb_offset); 


IF osv$cpus_logically_on > 1 THEN 
IF cst_pA.cst_index IN xcb_pA.processor_ selections THEN 
IF cst_pA.ijie_ pA.multiprocessing allowed THEN 


1122 


1123 
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2904 10687 IF xcb_pA.last_Ipid_for_ task <> cst _p%.cst_index THEN 

2830C 10688 { NOTE: The second parameter on the #purge_ buffer command is just a dummy pointer. 

230C 10689 #PURGE BUFFER (osc$purge_alil_cache, xcb_p); 

290E 10690 #PURGE BUFFER (osc$purge _all_page_ seg map, xcb_p); 

2910 1069 IFEND; 

2910 10692 EXIT /find_next_task/; 

2914 10693 ELSEIF cst_p4.ijle_p4A.executing task_ count = © THEN 

2922 10694 IF cst_pA.jcb_pA.last_lpid_for_job <> cst_pA.cst_index THEN 

282A 10695 #PURGE BUFFER (osc$purge_all_cache, xcb_p); 

232C 10696 #PURGE BUFFER (osc$purge _all_page seg _ map, xcb_p); 

292E 10697 IFEND; 

292E 10698 EXIT /find_next_task/; 

2336 10699 IFEND; 

2838 10700 IFEND ; 

293C 10701 ELSE 

2930 10702 EXIT /find_next_task/; 

2944 10703 IFEND ; 

2944 10704 ptio := tmv$pti_pA [ptlo].ptl_thread; 

2944 10705 WHILEND; 

295A 10706 

295A 10707 { No task of the priority selected could execute. Remove the priority from the sets and select 

2854 10708 { another priority. 

295A 10709 

295A 10710 local_set.minimums_to_satisfy := local_set.minimums_to_satisfy - $jmt$dispatching _priority_set 

295A 10711 [ jmc$dp_conversion - priority.dp_mask.dp]; 

295A 10712 local_set.ready tasks := local_set.ready tasks - $jmt$dispatching priority set 

295A 10713 [ jmc$dp_conversion - priority.dp_mask.dp] ; 

295A 10714 local_set .maximums_exceeded := lo0cal_set.maximums_exceeded - $jmt$dispatching priority set 

295A 10715 [jmc$dp_conversion - priority.dp_mask.dp] ; 

295A 10716 

2354 10717 #unchecked conversion (locai_set, integer _dp_sets); 

295A 10718 

295A 10719 r :2 $real(integer _dp_sets); 

295A 10720 priority.r :2 fr; 

295A 10721 

2954 10722 WHILEND /find_next_task/; 

29B2 10723 IF ptto <> O THEN 

2S8B6 10724 cst_pA.dispatching priority integer :: integer_dp_ sets; 

29B6 10725 tmp$remove_task_from_dct (ptilo); 

2B32 10726 cst_pA.ijle_ pA.executing task_count := cst_pA.ijle_pr.executing task _ count + 1; 

2B54 10727 IFEND; 

2B58 10728 IFENO; 

2B5SC 10729 IFEND; 

2B5C 10730 

2B5C 10731 { Set up the CPU STATE TABLE. 

2B5C 10732 

2BSC 10733 IF ptilo = © THEN 

2B60 10734 IF cst_pA.cpu_idle_statistics.idie_type = osc$not_idie THEN 

2B68 10735 cst_pA.cpu_idite_statistics.idle start_time := #FREE RUNNING CLOCK (0); 

2B6E 10736 IF (tmv$swapin_in_progress <> ©) OR (tmv$io_wait_task_count <> ©) THEN 

2B82 10737 cst_p%.cpu_idle_statistics.idle_type := osc$idie_with_io_active; 

2B8A 10738 ELSE 

2B8A 10739 cst_pA.cpu_idie_statistics.idle type := osc$idle_no_io_active; 

2B90 10740 IFEND ; 

2B90 10741 IFEND; 

2B90 10742 cst_pA.dispatching priority :=+ 0; 
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2B9S0 10743 cst_pA.dispatching priority integer := 0; 

2B90 10744 cst _pA.dual_ state prior subpriority.dual state priority :=: 0; 

2B90 10745 cst _pA.xcb_p :5 NIL; 

2B90 10746 cst _pA.taskid.index :: 0; 

2B90 10747 IF (tmv$t imed_wait_queue.head = 0) OR (tmv$dedicate_a_cpu_to_nos) THEN 

2BB4 10748 time :=s OFFFFFFFFFFFF(I6); 

2BBC 10749 ELSE 

2BBC 10750 time := tmv$pti_p4 [tmv$timed_wait_queve.head] .end_of_wait_ time; 

2BCA 10751 IFENO; 

2BCA 10752 tmv$time_to_ calil_dispatcher := time; 

2BCA 10753 time := time - #free running clock [(09); 

2BD4 10754 IF time < 10 THEN 

2B8D0C 10755 time := 10; 

2BE2 10756 ELSEIF time >» 50000 THEN 

2BEE 10757 time := 50000; 

2BF4& 10758 IFEND; 

2BF4 10759 cst_pA.max_ cptime := time; 

2BFC 10760 

2BFC 10761 ELSE 

2BFC 10762 

2BFC 10763 { A new task has been selected. Update the cpu_idie_ statistics. 

2BFC 10764 

2BFC 10765 IF cst_pA.cpu_idie_statistics.idle_type <> osc$not_idle THEN 

2C04 10766 idle time :: #FREE RUNNING CLOCK (0) - cst_p4A.cpu_idie_statistics.idie_ start_time; 

2COA 10767 IF cst_pA.cpu_idie_statistics.idle_type = oscS$idle_ with_io active THEN 

2014 10768 cst_pA.cpu_idie statistics.idie_ io active := cst_pA.cpu_idie_statistics.idle_io_active + 

2C22 10769 idle time; 

2€22 10770 ELSE 

2C22 10771 cst_p%.cpu_idie statistics.idie_ mo _io_active := cst_pA.cpu_idie statistics.idie mo_io_ active + 

2C2C 10772 idle time; 

2C2C 10773 IFEND; 

2C2C 10774 update_dispatching controls [(idie_time, jmc$null_dispatching priority); 

2018 10775 cSst_pA.cpu_idle_ statistics.idie type := osc$not_idie; 

2D18 10776 cst_pA.cpu_idie_statistics.idle count := cst _pA.cpu_idie statistics.idile count + 1; 

2D26 10777 IFEND; 

2026 10778 

2026 10779 { Set task status to executing and set up the rest of the CST fields. 

2026 160780 

2026 10781 ptie pA.status := tmc$ts_ executing; 

2D26 10782 

2026 10783 cst_pA.taskid. index = ptilo; 

2026 10784 cst _pA.taskid.seqno := ptle_ pA.sequence_ number ; 

2026 10785 cst_p4.xcb_p := xcb_p; 

2026 10786 cst_pA.max cptime :5 xcb_pA.timeslice.minor ; 

2026 10787 cst _pA.dispatching priority :* ptle_ pA.dispatching priority; 

2026 1060788 cst_p4.dual_state_prior subpriority := tmv$dual_state_ dispatch prior 

2026 10789 Test _pA. dispatching_ priority]; 

2026 10790 IF ptile_ pa. monitor _flags <> $syt$monitor_ flags [] THEN 

2060 10791 xcb_pA.xp. user_condition_register 73 xcb_pA. xp.user_ condition register + 

2060 10792 $S$ost$user_ conditions [osc$free flag]; 

2060 1060793 xcb_pA.monitor flags := xcb_ pA.monitor_flags + ptle_pA.monitor flags; 

2D60 10794 ptie_ pA.monitor_flags := $syt$monitor_ flags []; 

2D07C 10785 IFEND; 

207C 10736 IF ptile pA.system_flags <> $tmt$system_fiags [] THEN 

2084 16757 xcb pA.system_ flags := xcb_pA. system_ flags + ptie_pA.system_ flags; 

2084 10798 ptle_pA.system_flags := $tmt$system_flags []; 
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2D92 10799 IFEND; 
20832 10800 
2092 10801 IF (ptile pA. pti_flags.wait_inhibited = tmc$wi_wait_inhibited) THEN 
2DSE 10802 xcb_ pA.wait_inhibited := TRUE; 
2DA2 19803 IFEND; 
2DA2 10804 ptie_ pA.ptl_flags.wait_inhibited := tmc$wi_ null; 
2DA2 10805 
2DA2 10806 { Set keypoint mask and keypoint enable fiag in job exchange package. Set the value for 
2DA2 10807 { monitor’s keypoint mask. 
2DA2 10808 
20DA2 108093 #WRITE REGISTER (osc$pr_set_keypoint_enable, $integer (xcb_pA.keypoint_ register enable) ); 
2DB8 10810 
2D0B8 10811 { Update the next time to ready a task from the timed wait queue. 
20B8& 10812 
2DB8 10813 IF (tmv$timed_wait_queue.head = 0) THEN 
2DCO0 10814 tmv$S$time_to_calil_dispatcher > OFFFFFFFFFFFF( 16); 
2DCC 10815 ELSE 
20CC 10816 tmv$time_to_call_dispatcher := tmv$pti1_p4 [tmv$t imed_wait_queve.head].end_of_wait_time; 
20DC 10817 IFENOD; 
20D0C 10818 
2bdDC 10819 IFEND; 
2DDC 108206 tmpSclear_ lock (tmv$pt1_tock) ; 
2E14 10821 
2E14 10822 #KEYPOINT (osk$mtr, osk$monitor_ multiplier * ptlo, tmk$switch_task + osk$m) ; 
2E1cC 10823 
2E1C 10824 PROCEND tmp$switch_ task; 
© 10825 
2 e 
SOURCE LIST OF tmm$dispatcher NOS/VE CYBIL/II 1.0 891062 1989-08-21 13:33:34 
TMPSSET_UP_DEBUG REGISTERS 
© 10827 
© 10828 { PURPOSE: 
o 10829 { This procedure is called during the first Swapin for job recovery to straighten out the 
© 10830 { debug list and mask in the exchange package of recovering jobs. 
o 10831 
© 10832 PROCEDURE [XDCL] tmp$set_up_debug registers 
© 10833 i ptlo: ost$task_index; 
o 10834 ijle_p: Ajmt$initiated job _list_entry; 
Oo 10835 xcb_p: Aost$execution_control block) ; 
© 10836 
© 10837 VAR 
Oo 10838 nuli_debug mask: [STATIC, READ] ost$debug_mask := [FALSE, FALSE, [REP S of FALSE]]; 
© 10839 
o 108406 IF (xcb_pA.xp.debug list_pointer <> NIL) AND (#RING (xcb_pA.xp.debug list pointer) = 1) THEN 
20 1060841 xcb_ p%.xp.debug list _pointer :=: NIL; 
20 10842 xcb pA.xp.debug mask register := null debug mask ; 
20 190843 
20 10844 xcb_pA.xp.debug_ index := 0; 
20 10845 IF osc$debug IN xcb_pA.xp.user_mask THEN 
S6 10846 xcb pA.xp.user_ mask := xcb pA.xp.user mask - $ost$user_conditions [Losc$debug] ; 
56 10847 xcb_ pA.monitor_flags := xcb_pA.monitor_flags + $syt$monitor flags [syc$mf_system_debugger ] ; 
56 10848 IF tmv$pt1_p4 [ptio].ptli_flags.wait_inhibited <> tmc$wi_wait_selected_ r3 THEN 
88 10849 xcb pA.xp.user_condition_register ::5 xcb_ pA.xp.user_condition_register + 
$6 10850 $S$ost$user conditions [Losc$free_ flag]; 
$6 10851 IFEND; 
86 10852 IFEND; 
96 10853 IFEND; 
$6 10854 PROCEND tmp$set_up_debug registers; 
© 10855 
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TMPSUPDATE_DEBUG_REGISTERS 


© 10857 

© 10858 { PURPOSE: 

o 10853 { This procedure sets the debugger flag for all tasks. The mext time a task executes, it will trap to 
© 10860 [{ reset the debug list and mask in its exchange package. This procedure is called whenever a breakpoint 
o 10861 { is selected, set, removed, or modified during a debugger session. 

© 10862 

Oo 10863 PROCEDURE tmp$update debug registers; 

o 10864 

© 10865 VAR 

© 10866 ptlo: ost$task_index; 

© 10867 

o 10868 FOR ptlo := 1 TO UPPERBOUND (tmv$pti_p4) oO 

1A 10869 IF tmv$ptl_p4 [ptlo].status <> tmc$ts_null THEN 

24 10870 tmv$pti_pA [ptlo].monitor_flags := tmv$pti_pA [ptio].monitor_flags + 

38 10871 $syt$monitor_fiags [syc$mf_ system_debugger ] ; 

38 10872 IFEND; 

38 10873 FOREND; 
3C 10874 

3C 10875 PROCEND tmp$update_ debug registers; 

10876 
SGURCE LIST OF tmm$dispatcher NOS/VE CYBIL/II 1.60 89102 1889-08-21 13:33:34 PAGE 1129 


UPDATE_TIMED_WAIT_QUEUE 


10878 

10879 PROCEDURE [INLINE] update_timed_wait_queue; 

190880 

10881 { This procedure is called during task switch to remove tasks from the timed wait 
10882 { queue if the wait time has expired. 

10883 { NOTE: this routine is called with the PTL lock set. 


10884 

10885 VAR 

190886 attempt preselection: boolean, 

10887 free running clock: integer, 

190888 ijle_p: Ajmt$initiated job_list_entry, 

10889 xcb_p: Aost$execution_controi_biock, 

10890 ptlo: ost$task_index, 

10891 ptle_p: Atmt$primary_task_list_entry; 

10892 

10833 free running clock :: #FREE_ RUNNING CLOCK (0); 

10894 

10895 {UPDATE THE TIMED_WAIT_QUEUE 

10896 WHILE (tmv$pti1_pA [tmv$timed_wait_queue.head].end_of_wait_time <= free running clock) AND 
10897 (tmv$t imed_wait_queue.head <> ©) DO 

10898 ptlo := tmv$timed_ wait queue. head; 

10899 ptle_p := Atmv$ptil_pA [ptioel]; 

10900 tmv$t imed_wait_queue.head := ptile_pA.queue_Tink.head,; 

10901 tmvS$pt 1_p4 [ptle_p4.queue_Tink.head] .queue_link.tail 72 0; 

10902 ptie pA.queue Tink. head :: 0; 

10903 IF (ptle_pA.status <= tmce$ts_last_status_in_dct) OR (ptle_pA.status > tmc$ts_last_status_in_wait_q) THEN 
10904 mtp$error_ stop (’TM36 - task not in wait queue’); 

10905 IFEND ; 

10906 imp$get_ijle_p (ptle_pA.ijl_ordinal, ijie_p); 

10907 IF ptie pA.idie status = tmc$is_idied THEN 

10908 ptie pA.idle status := tmc$is_idlied sched notified; 

10908 IF ptile_ pA.status = tmc$ts_timeout reqexp_longvlong THEN 

10910 ijle_pA.statistics.tasks_not_in_long_ wait :+: ijle_ pA.statistics.tasks_not_in_long wait + 1; 
10911 IFEND; 

10912 ptle_ pA.status := tmce$ts_ ready but swapped; 

10813 jmp$ready_task_in_swapped_job (ptie_p4.ijl_ordinal, ijle_p); 

10914 ijle_ pA. long wait_aging complete := FALSE; 

10915 ELSE 

10916 IF ptile_pA.status = tmc$ts_ timeout reqexp_longviong THEN 

10917 ijle_ pA.statistics.tasks mot_in__long wait :- ijle_pA.statistics.tasks not _in_long wait + 1; 
10918 imv$ajl_p4 [Lijle_p4.aji_ordinal].job_is_good_swap_candidate := FALSE; 

10915 IFEND; 

10820 ptle_pA.status :: tmc$ts_ready; 

10921 xcb_p : = #ADDRESS (1, mtc$job_fixed_ segment + ijle_p’.ajl_ordinal, ptile_pA.xcb_offset); 
10822 xcb pA.timeslice.minor := 0; 

10923 xcb pA.timeslice.major := 0; 

10924 attempt preselection := (ijle_pA.multiprocessing allowed) OR (ijle_p%.executing task _count = O); 
10925 tmp$dct_ready_task (xcb_p, ijle_p, ptio, attempt _preselection); 

109826 IFEND ; 

10927 ijle_pA.statistics.ready task_count := ijle_p%.statistics.ready_ task _ count + 1; 

190828 WHILEND ; 

10929 

10830 { Update the queue’s tail. 

10931 

10832 IF tmv$t imed_wait_queue.head © THEN 


10933 tmv$t imed_ wait _queue.tail := 0; 
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10934 
10935 
10936 
10937 


IFEND ; 
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PROCEND update timed wait_ queue; 
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POdDoCCOOCOCOO00000505 
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10939 { monitor requests for job recovery 


10940 
10941 
10942 
10943 
10944 
10945 
10946 
103947 
10948 
10949 
10950 
10951 
10952 
10953 
10954 
10355 
10956 
10957 
109588 
10959 
10960 
10963 
103964 
10965 
10966 
10967 
109868 
10869 
10870 
10971 
10972 
10973 
10974 
10975 
10976 
10977 
10978 
10979 
10980 
10981 
10982 
10983 
103984 
10985 
10986 
10987 
10988 
10989 
10990 
10991 
10892 
109833 
1OSS4 
10995 
10996 


TYPE 
syt$rb_job_recovery = record 
reqcode: ALIGNED [O MOD 8] syt$monitor_request code, 
status: sytS$monitor_status, 


ijlo: jmt$ijl_ordinal, 
case subreq: syt$job_recovery_subreq of 
= syc$recover_ptil = 


1989-08-21 


1889-08-21 


count: integer, 
task_list_p: Aarray [1 .. * ] of Syt$ptil_recovery info, 
casend, 
recend, 
Syt$pt l_recovery info = record 
xcbo_offset: © .. TFFFFFFF(1IE), 


dispatching priority: jmt$dispatching priority, 
gtid: ost$global_task_id, 
recend, 


Syt$job_recovery subreq = (syc$recover _pt1, syc$dummy_job_recovery) ; 


PROCEDURE 


(VAR rb: 
cst ep: 


VAR 


i. 


[XDCL] tmp$ job _ recovery _ requests 


Ssyt$rb_job_recovery; 


Aost$cpu_state_table) ; 


i: integer, 

gtid: ost$global_task_id, 

jmtr_ptio, 

ptlo: ost$task_index, 

AjmtS$initiated job_list_entry, 
Atmt$primary task_list_entry, 
service class: jmt$service_cilass_index; 


ijle_p: 
pti_p: 


ro.status.normal := TRUE; 

CASE rb.subreq OF 
syc$recover pti = 
tmp$set_lock (tmv$pti1_lock); 


FOR i 


IF tmv$pti1_p4 [rb.task_list_pA 


FOREND ; 


jmtr ptio 


FOR i 
ptilo 


_2 
7 
e 
. 


1 TO rb.count DO 


THEN 
rb.status.normal := FALSE; 
rb.status.condition := tme$ptil_full; 
tmp$clear_lock (tmv$pt1_lock); 
RETURN; 

IFEND; 


= 
» 


22 jmv$iji_p.block_ pA [rb.ijlo.block_ number ] 
job_monitor taskid. index; 
1 TO rb.count DO 
rbo.task_list_p% [il.gtid. index; 


.-index_pA [rb.ijlo.block_index]. 
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FE 10997 remove _task_from_free_ queue [(ptio); 
1D6 10998 pti_p := Atmv$pti_pA [ptio]; 
1D6 10899 pti? pA.pti_thread := 0; 
1D6 11000 ptl_pA.status := tmc$ts_timeout_reqexp_infilong; 
1D6 11001 ptl_pA.ijl_ordinal := rb.ijilo; 
1D6 11002 ptl_pA.xcbh_ offset := rb.task_list_pA [i].xcb_offset; 
1D6 1106003 pti_pA.dispatching priority := rb.task_list_pA [i].dispatching_ priority; 
106 110084 pti_pA.monitor_flags := $syt$monitor_fiags [1]; 
1D6 11005 pti_pA.system_flags :: $tmt$system_fiags [1]; 
1D6 11006 ptl_pA.sequence number :: rb.task_list_pA [i].gtid.seqno; 
1D6 11007 ptl_ pA.idle_ status := tmc$is_idied; 
1DE6 11008 ptl_pA.queue_ link.head := 0; 
1D6 11009 ptl_p%.queue_ lTink.tail := 0; 
1D6 11010 pti pA.end_of wait _time := 0; 
iD& 11611 
1D6 11012 { Emulate insert _ijl here - note special case for first task (jmtr). 
1D6 11013 
1D6 11014 IF ptlo <> jmtr_ptio THEN 
23E 11015 tmvS$pti_p* [ptio].iji_thread := tmv$pti_pA [jmtr_ptlo].ijl_thread; 
23E 11016 tmv$Spti_pA [jmtr_ptlo].ijl_thread := ptio; 
24E 11017 IFEND ; 
24E 11018 gtid. index = ptilo; 
24E 11019 gtid.seqno = ptil_p’.sequence_ number ; 
24E 11020 tmp$set_task_ready (gtid, © {readying _task_priority}, tmce$rc_ready_ conditional wi); 
276 11021 FOREND; 
280 11022 tmp$clear_ lock (tmv$pti_lock) ; 
2BA 11023 
2BA 11024 { Get an ijl pointer - we need to reset some ijl fields and straighten out some counts. 
2BA 11025 
2BA 11026 imp$get_ijle_p (rb.ijle, ijle_p); 
2BA 11027 
2BA 11028 { Set the swap status of the job to swapout complete; clear the swap queue link fields and 
284A 11028 { relink the job inmto the swapped out swap queue. 
2BA 11030 
2BA 11031 ijle_p4.swap_status := jmc$iss_swapout_compilete; 
2BA 11032 ijle_pA.swap_queue_link.quevue_id := jsc$isqi_null; 
2BA 11033 ijle_pA.swap_queue_lTink.backward_ link :: jmv$null_ijl_ordinal; 
2BA 11034 ijle_pA.swap_queue_ Tink.forward Tink := jmv$nuli_ijl_ordinal; 
2BA 11035 isp$relink _swap_queue (rb.ijlo, ijle_p, jsc$isqi_swapped_out) ; 
31C 11036 
31C 11037 { Increment the total task count by the number of tasks in the recovered job. 
31C 11038 
31C 11039 tmv$total_task_count := tmv$total_task_ count + rb.count; 
31C 11040 
31¢C 11041 { Increment the scheduler initiated job count so that scheduler knows Mow many jobs of this class 
31€ 11042 { there are; this count is normally incremented in jmp$initiate_job_from_scheduler, but for job 
31C€ 11043 { recovery we’‘1l1 do it here. 
31C 11044 
31C 11045 service class :: ijle_pA.job scheduler data.service class; 
31C 116046 jimv$ job _counts.service_ class counts [service _class].scheduler_initiated_jobs := jmv$job_counts. 
31C 11047 service_class_counts [service _cilass].scheduler_initiated jobs + 1; 
31C 11048 . 
31¢C 11049 { Increment swapped job count so that scheduler knows how many swapped jobs there are. 
31C 11050 
31¢C 11051 jmp$increment_swapped_job_count (ijle_p); 
354 11052 
SOURCE LIST OF tmm$dispatcher NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 
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11053 
11054 
11055 
11056 
11057 
11058 
11059 


ELSE 
{ unsupported subrequest 


CASEND ; 
PROCEND tmp$job_ recovery requests; 
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Oo 11061 
Oo 11062 { PURPOSE: 
o 11063 { This procedure f 
o 11064 { because it canno 
© 11065 { earlier during j 
o 11066 f{ The caller of th 
oO 11067 
© 11068 PROCEDURE [XDCL] t 
o 11069 ( ijle_p: Ajm 
© 11070 
Oo 11071 VAR 
o 11072 next index: os 
0 11073 task_index: os 
© 11074 
o 11075 task_index :: ij 
4 11076 WHILE task_index 
16 11077 next _ index :: 
16 11078 IF tmv$pt1_pA 
24 11079 mtp$error_st 
44 11080 IFEND ; 
4A 11081 
44 11082 { The procedure free 
44 11083 { causes a potential 
4&4 11084 
4A 11085 tmv$pti_pA [ta 
4A 11086 free pti (task 
84 11087 tmv$total task 
84 11088 task_index :=5 
84 11089 WHILEND; 
9A 11090 
94 11091 PROCEND tmp$free_u 
© 11092 
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o 11094 

o 11095 PROCEDURE [XDCL] tmp$switch_task_from_failing_ cp 

© 11096 (VAR cst_p: Aost$cpu_state table); 

© 11097 

o 11098 VAR 

Oo 11089 next _task_ijle_p: Ajmt$initiated_ job_list_entry, 

o 111006 next task _xcb_p: Aost$execution_control_ block, 

o 11101 ptle_p: Atmt$primary_task_list_entry, 

© 11102 ptlo: ost$task_index, 

© 11103 xcb_ p: Aost$execution_control block; 

Oo 11108 

Oo 11705 xcb_p :* cst_pA.xcb p; 

4 11106 

4 11107 tmp$set_lock (tmv$pt1_ lock); 

4E 11108 

4E 11108 IF xcb_p <> NIL THEN 

58 11110 xcb pA.timeslice := jmv$service_classes [cst_p4.ijle_ pA. job scheduler _data.service class]4.attributes. 

S58 11111 dispatching control [cst_p4.ijle_pA.dispatching control.dispatching control_index]. 

$8 11112 dispatching timestlice; 

§8 11113 xcb pA. last_Ipid for task := cst_pA.cst_ index; 

$8 11114 cst_p%. jcb_p’. last _lpid_for job := cst_pA.cst_index; 

$8 11115 cst_pA.jcb_p4. last_execution_time := #FREE RUNNING CLOCK (0); 

sc 11116 ptlo := cst_pA.taskid. index; 

g9C 11117 ptle_p := Atmv$pti_pA [ptio] ; 

sc 11118 cst_p’.ijle_p%*.executing task_count := cst_pA.ijie _p*.executing task count - 1; 

gc 11119 IF ptie pA.new_task_status > tmc$ts_last_status_in_dct THEN 

C6 11120 ptile pA.status :5 ptile pA.new_task_status; 

C6 11121 ptle_ pA.new_task_status := tmc$ts_null; 

C6 11122 cst _pA.ijle_ pA.statistics.ready task_count := cst_pA.ijle_ pA.statistics.ready task_count 13 
C6 11123 IF ptle_ pA.status <= tmc$ts_ last _status_in_wait_q THEN 

DE 11124 tmpS$insert_timed_ wait queue [pt lo); 
1A6 11125 IFEND; 
1A6 11126 IF (ptile_pA.status = tmcS$ts_timeout_reqexp_longviong) OR (ptile_pA.status = 
1BC 11127 tmc$ts_ timed wait _not_ queued) OR (ptie_p4.status = tmc$ts_timeout_reqexp_infvilong) THEN 
1BC 11128 cst_pA.ijle_pA.statistics.tasks_ not_in_long wait := cst_pA.ijle_pA.statistics. 
1BC 11128 tasks_not_in_long wait - 1; 
1BC 11130 IF (cst _pA.ijle_pA.statistics.tasks_nmot_in_long wait = ©) AND 
1E4 11131 (cst_pA.ijle_pA.entry_ status = jmc$ies_job_in_memory) AND 
164 11132 (ptle_p%.idle_ status = tmc$is_not_idiled) THEN 
1E4 11133 est _ pA.xcb p := NIL; 
1E4 11134 tmp$set_swapout candidate (cst_p4.ajlo); 
1FC 11135 IFEND; 
1FC 11136 IFEND; 
200 11137 ELSE 
200 11138 ptie_ pA.status := tmc$ts_ ready; 
200 11139 tmp$dct_ready_task (xcb_p, cst_pA.ijle_p, ptio, TRUE); 
AEA 11140 IFEND; 
AEA 11141 IFEND; 
AEA 11142 
AEA 11143 { If a task has been pre-selected to run on this CPU, that task needs to be inserted in the DCT. 
AEA 11144 
AEA 11145 IF cst_p4.next_ptlo_ to dispatch <> © THEN 
AF6 11146 jmp$get_ijle_p (tmv$pti_p4 [cst_p%.next_ptlo_to_ dispatch].ijl_ordinal, next_task_ijle_p); 
AFG 11147 next task _ijle pA.executing task_count := next _task_ijle_pA.executing task count - 1; 
AFG 11148 tmv$ptil_pA [cst_pA.next_ptlo_to_dispatch].status := tmce$ts_ready; 
AFG 11148 tmp$get_xcb p_from_ptio (cst_pA.next_ptlo_to_ dispatch, next_task_ijle_p*%.ajl_ordinal, 


_ptl 
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rees the PTL entries for the tasks of a job that 
t be recoverd. The total task count iS decremented; 
ob recovery when the PTL entries were made. 

is procedure MUST set the PTL lock. 


mp$free_unrecovered tasks 
tSinitiated_job_list_entry) ; 


t$task_index, 
tS$task_index; 


le_ pA. job_monitor_taskid. index; 
<> oO DO 
tmv$pti_p4 [task_index].ijl_thread; 
[task_index].pt1_thread <> O THEN 
op (‘’Unrecovered task--PTL thread not zero’); 


does mot clear the ijl thread. 
problem for the next task using the pti entry. 


sk_index].ijl_thread := 0; 
_index} ; 
_count := tmv$total_task_count - 1; 


next _mndex ; 


nrecovered tasks; 
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is being terminated 
increment ed 


it was 


Not clearing the field 
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AF6 11150 next _task_xcb_p); 
AFG 11151 tmp$dct_ready_ task (next_task_xcb_p, next _task_ijle_p, cst_pA.next_ptlo_ to dispatch, TRUE); 
1402 11152 ecst_p4.next_ptlo_to_ dispatch := 0; 
140A 11153 IFEND; 
140A 11154 
140A 11155 tmp$clear_ lock (tmv$pt1_lock); 
1442 11156 
1442.11157 PROCEND tmp$switch task_from_failing cp; 
© 11159 MODEND tmm$dispatcher ; 


**** 12$05578173AS0102D19890821T183254 L=ZZXXLIST Bz=LGOQ DA=NONE LO=R RC=NONE OPT=SCHED EL=F LF2CS612 PAD=0 


ERROR LIST OF tmm$dispatcher NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 1137 
ERROR LINE TEXT 
WORNING CY 821 7866 Code scheduling abandoned for this block due to register jamming. 
WARNING CY 821 7866 Code scheduling abandoned for this block due to register jamming. 
WARNING CY 821 7866 Code scheduling abandoned for this block due to register jamming. 
WARNING CY 821 7866 Code scheduling abandoned for this block due to register jamming. 
WARNING CY 821 7898 Code scheduling abandoned for this block due to register jamming. 
WARNING CY 821 8227 Code scheduling abandoned for this block due to register jamming. 
WARNING CY 821 8227 Code scheduling abandoned for this block due to register jamming. 
WARNING CY 821 8227 Code scheduling abandoned for this biock due to register jamming. 
WARNING CY 821 8227 Code scheduling abandoned for this block due to register jamming. 
WARNING CY 821 8227 Code scheduling abandoned for this block due to register jamming. 
WARNING CY 821 8227 Code scheduling abandoned for this block due to register jamming. 
WARNING CY 821 8227 Code scheduling abandoned for this block due to register jamming. 
WARNING CY 821 8227 Code scheduling abandoned for this block due to register jamming. 
WARNING CY 821 8227 Code scheduling abandoned for this block due to register jamming. 
WARNING CY 821 8739 Code scheduling abandoned for this block due to register jamming. 
WARNING CY 821 9406 Code scheduling abandoned for this block due to register jamming. 
WARNING CY 821 9406 Code scheduling abandoned for this biock due to register jamming. 
WARNING CY 821 $479 Code scheduling abandoned for this block due to register jamming. 
WARNING CY &21 9479 Code scheduling abandoned for this block due to register jamming. 
WARNING CY 821 $478 Code scheduling abandoned for this block due to register jamming. 
WARNING CY 821 $479 Code scheduling abandoned for this block due to register jamming. 
WARNING CY 821 $479 Code scheduling abandoned for this block due to register jamming. 
WARNING CY 821 $623 Code scheduling abandoned for this block due to register jamming. 
WARNING CY 821 $623 Code scheduling abandoned for this block due to register jamming. 
WARNING CY 821 . $623 Code scheduling abandoned for this biock due to register jamming. 
WARNING CY 821 $623 Code scheduling abandoned for this block due to register jamming. 
WARNING CY 821 $623 Code scheduling abandoned for this block due to register jamming. 
WARNING CY 821 9647 Code scheduling abandoned for this block due to register jamming. 
WARNING CY 821 $647 Code scheduling abandoned for this block due to register jamming. 


WARNING CY 821 10201 Code scheduling abandoned for this block due to register jamming. 
WARNING CY 821 10201 Code scheduling abandoned for this block due to register jamming. 


WARNING CY 821 10201 Code scheduling abandoned for this block due to register jamming. 
WARNING CY 821 10201 Code scheduling abandoned for this block due to register jamming. 
WARNING CY 821 10201 Code scheduling abandoned for this block due to register jamming. 
WARNING CY 821 10466 Code scheduling abandoned for this block due to register jamming. 
WARNING CY 821 10518 Code scheduling abandoned for this block due to register jamming. 
WARNING CY 821 10518 Code scheduling abandoned for this block due to register jamming. 
WARNING CY 821 10518 Code scheduling abandoned for this block due to register jamming. 
WARNING CY 821 10518 Code scheduling abandoned for this block due to register jamming. 
WARNING CY 821 10518 Code scheduling abandoned for this block due to register jamming. 
WARNING CY 821 10518 Code scheduling abandoned for this block due to register jamming. 
WARNING CY 821 10518 Code scheduling abandoned for this block due to register jamming. 
WARNING CY 821 10518 Code scheduling abandoned for this block due to register jamming. 
WARNING CY 821 1055060 Code scheduling abandoned for this block due to register jamming. 
WARNING CY 821 10550 Code scheduling abandoned for this block due to register jamming. 


LEVEL SUMMARY 
*eee 45 warning diagnostics 


REFERENCES OF 


IDENTIFIER--------+----+------- 


ao_dynamic_space_pointer 
accumulated job_cpt ime 


accumulated monitor_cpt ime 


activity 
activity 
ajl_ordinal 


ajl_ordinal 

ajl_ordina) 
ajl_ordinal 

ajl_ordinal 

ajl_ordinal 
ajl_ordinal 
ajl_ordinal 
ajl_ordinal 
ajl_ordinal 
ajl_ordinal 
ajl_ordinal 
ajl_ordinal 
ajil_ordinal 
ajl_ordinal 
ajil_ordinal 
aji_ordinal 
ajtl_ordinal 
ajl_ordinal 
ajlo 


ajlo 
ajlo 
a@jto 
ajtlo 
ajlo 
ajilo 
ajlo 


REFERENCES OF 


IDENTIFIER------------+------- 


ajlo 
ajlo 
ajlo 
‘ajlo 
ajlo 
ajlo 
ajlo 
ajlo 
ajlo 
ajo 
amc$filte byte_limit 


amc$max_fitle_id_ ordinal 
amt$file_byte_address 


amt$file_id ordinal 
‘amt$file_id_ sequence 
amt$file_ identifier 
amt$file_ limit 

asid 

asti 

attempt preselection 
attempt preselection 
attempt preselection 
attempt preselection 
attempt preselection 
attempt preselection 
attempt preselection 
attempt preselection 
attempt preselection 
attempt preselection 
attempt preselection 
attempt preselection 
attempt preselection 
attempt _preselection 
attempt preselection 
attempt preselection 
attempt preselection 
attempt_preselection 
attempt preselection 
attempt preselection 
attempt preselection 
attempt preselection 
attempt preselection 
‘attempt _preselection 
attempt preselection 
attempt preselection 
attributes 


tmm$dispatcher 


be 


tmm$dispatcher 


avce$monitor_stat istics flag 


b 
b 


‘ 


**ex 


DEFINED 
ON LINE 
3104 
1161 


1162 


8763 
8772 
1267 


4828 
5676 
5713 
7416 
7472 
7517 
7562 
7609 
7618 


8416 
$217 
9218 
$279 
$323 
3350 
9447 
0408 
1095 
1153 


emit meh 


§491 
S676 
5691 
5710 
7416 
7416 
7472 


REFERENCE ABBREVIATIONS 


DEFINED 
ON LINE 
7472 
7517 
7517 
7562 
7562 
7562 
7618 
7618 
7618 
4983s 
3323 
6030 
3926 
6037 
6038 
6033 
3928 
2700 
8206 
6867 
7766 
7795 
78332 
7950 
8110 
8128 
8182 
8381 
8400 
8581 
8598 
9349 
$355 
9446 
9450 
9584 
$589 
10157 
10163 
10408 
10408 
10423 
10879 
10886 
11085 
6263 


3605 


5286 
$330 


REFERENCE ABBREVIATIONS 


NOS/VE CYBIL/II 


NOS/VE CYBIL/II 


1.0 89102 


REFERENCES 

7505/P 7505/M 
7539/P 

7539/P 75339/M 
7577/P 

7577/P 7577/M 
75938/M 7598/S 
7668/P 7698/P 
7668/P 7668/M 
7685/M 7685/S 
8433/M 8437 
39326 3928 
6037 

3887 

69034 

6035 

5997 

38391 

8427/P 

8230 8231/8 
6338 

7866 7898 
7865/M 7866/P 
7979 

7377/M 79739/P 
8172 

&8171/M &8172/P 
8227 

8499 

8498/M 84399/P 
8630 

8627/M 8630/P 
9406 

9404/M 9406/P 
9479 

9478/M 9473/P 
$623 S647 
9622/M 9623/P 
10201 

10200/M 10201/P 
10519 10550 
10550/M 10550/P 
10577/M 10579/P 
10925 

109824/M 10925/P 
11139 11151 
6884 7866 
8624 8630 
10056 10193 
10519 105506 
&8739/P $745/P 
5295 5295 
53406 §341 

Memodify, 


1.0 89102 
-REFERENCES 

7593 
&8738/M 8738 8739 
$703 $710 $329 
10466 10466 
8732/M 87383 8739 
9708 10466 10466 
8765 
8787 8791 8802 
$252 5233 $4383 
7056 7058 7106 
7463 7505 7509 
7668 7673 7685 
7866 7866 7866 
7898 7898 7978 
8170 8172 8172 
8226/8 8227 8227 
8499 8499 8499 
8630 $406 9406 
9479 $479 9479 
9647 9647 9647 
10201 10201 10515/P 
10550/S 10550 10550 
10579 10579 10579 
10925 10925 10925 
11139 111398 11149/P 
7660/M 7666/S 7673/M 
5688/M 5698 5698/S 
S716/M $717 5721/S 
7459/M 7489 7459/8 
7505/M 7505 7505/S 
7539/M 7539 7839/58 
7577/M 7577 7577/S 
7612 
7668/M 7668 7668/S 
7698/S 7698 
8428/P 8433 
9255 
$227 $231/S $255/P 
$287 $291/S $302 
$331/S 9333/P 9335/P 
S366/S 9368 $372/S 
9458/s 9461/S 9471 
10516 
11150 
8425 8606 8754 
10638 10639 10680/M 
5493/M §494/S 5497/S 
5698/P 5698/M 
5698/P 
5719/P 5722/M 
7459/P 
74S9/P 7453/M 
7505/P 

M=emodify, Atattribute, 


7538/S 
7688/P 


7685/S 
8438/58 


8232/5 


78937/M 


9646/M 


10579 


78398 

$198 
10201 
105793 
10466/P 


Artattribute, 


8739 
9961/M 


8739 
10466 


5698 
7149 
7539 
7698 
7866 
7979 
8172 
8227 
8493 
9406 
9623 
9647 
10519 
10550 
10579 
10925 
11151 
7702/M 
5698/S 
5721/S 
7459/S 
7505/S 
7539/58 
7577/8 


7668/S 


9268/P 
9310/P 


9385 


3140 
10681 
5497/S 


S:subscer 


7598/58 


7698/M 
7685/S 
8450/M 


7898/P 


9647/P 


7979 
9406 
10277 
10925 


Sssubscript, 


8733S 
$961 


8739 
10466 


5716 
7218 
7843 
7702 


7896/S 


7379 
8172 
8227 
8630 
9406 
$623 
9647 
10519 
10550 
10637 
10925 
11151 
7721 
5698 
5722 
7459 
7505 
73539 
S77 


7668 


$887 
10682 


ipt, I:z1/0 ref, 


7716/M 


8459 


8172 
9479 
10330 
11110 


IsI/O ref, 


Rzsread, Wewrite, 


1989-08-21 13:33:34 
87393 8688 9690 
10465 10466 10466 
9686 $690 9700 
7054 7054 7056 
7258 7320 7459 
7577 7581 7598 
7716 7810 7866 
7898 7898 7898 
7979 7979 7979 
8172 8218 8222 
8227 8232 8499 
8630 8630 8630 
9406 9479 9479 
9623 9623 9623 
10201 10201 10201 
10519 10519 10519 
10550 10550 105793 
10680 10818/S 10921 
11139 111393 11139 
11151 11151 11151 
7698/M 7698 7698/S 
10530 10571/P 10637/M 
11134/P 
R=read, W-write, 

1889-08-21 13:33:34 
7716/8 7716/58 7716/8 
8475 8493/P 
8227 8496 84998 
§623 9647 10045 
10337 10373 10497 
11139 11151 


PAGE 


PAGE 


1138 


Pzparameter 


1138 


Pzparameter 


REFERENCES OF tmm$dispatcher NOS/VE CYBIL/II 1.0 89102 1889-08-21 13:33:34 PAGE 
IDENTIFIER---++ +e - eee ce eee DEFINED----r- ere rere eee REFERENCES 

ON LINE 
b 6424 6431 6432 
b 6464 64390 64390 
b 7416 7450 7450 
b T7472 7501 7501 
b 7517 7529 7829 
Le) 7562 7573 7573 
b 7618 7653 7653 
b 7730 7748 7748 
b 7766 7806 7806 
b 7332 7956 7956 
b 8011 8017 8017 
b 8044 8070 8070 
b 8110 8134 8134 
b 8182 8222 8222 8232 8232 
b 8259 8265 8265 
b 8276 8282 8282 
b 8381 8444 8444 
b 8513 8532 8532 
b 8581 8607 8607 
b 8682 8727 8727 
b 8770 8783 8783 
b 8875 8897 88937 
b 8966 9004 9004 
b 9057 $100 $100 
b $9217 9247 $247 
b $322 9329 9329 
b 9446 9469 S469 
b 9491 9504 9504 
b $584 $607 93607 
b 89336 $951 9951 
b 10157 10170 10170 
b 10224 1960233 10233 
b 10408 10461 10461 10593 10593 
b 10964 10981 10981 
b 11095 11107 11107 
backward link 2031 11033/M 
bc 6425 6428/M 6429 6433 
lac 6464 64390/M 6490 64390 
be 7416 7450/M 7450 7450 
be 7472 7501/M 7501 7501 
be 7817 7529/M 7529 7829 
be 7562 7573/M 7573 7573 
pe 7618 7653/M 7653 7653 
be 7730 7748/M 7748 7748 
bc 7766 7806/M 7806 7806 
be 7932 7956/M 7956 7956 
be 8011 8017/M 8017 8017 
be 8044 8070/M 8070 8070 
bc 8110 8134/M 8134 8134 
pe 8259 8265/M 8265 &265 
be 8276 8282/M 8282 8282 
he 8381 8444/M 8444 8444 
bc 8513 8532/™M 8532 8532 


xs REFERENCE ABBREVIATIONS M=z=modify, Azattribute, Stsubscript, I1:1/0 ref, Reread, Wewrite, Ptparameter 


REFERENCES OF tmm$dispatcher NOS/VE CYBIL/II 1.0 88102 1989-08-21 13:33:34 PAGE 1141 


LOENTIFIERS = <845 3S ee Se Ses on Se DEFINED 23 <s2 eso hos 3525 REFERENCES 
ON LINE 

be 8581 8607/M 8607 8607 

be 8682 8727/M 8727 8727 

be - 8770 8783/M 8783 8783 

be 8875 &8897/M 8897 8897 

bo 8966 S004/M 9004 9004 

be $057 $100/M 8160 $100 

pc $217 $247/M 9247 $247 

be $322 $329/M 9329 9329 

be 9446 9469/M $469 9469 

he 9491 §504/M 9504 $504 

bo 9584 $607/M 9607 3607 

be $336 $951/M 9951 9951 

be 10157 10170/M 10170 10170 

be 10224 10233/M 10233 10233 

bc 10408 10461/M 10461 10461 10593/M 10533 105933 

be 10964 10881/M 10981 10981 

be 11095 11107/M 11107 11107 

bieck_index 1243 53839/S 6612/S 6966/S 7458/S 7503/S 7537/S 7575/S 7665/S 
7688 76S936/M 7809/58 7866/S 7898/S 7959/S 7979/S 8140/S 
8172/S 8227/S 8439/5 8445/S 843939/S 8608/S 8630/S 8837/S 
9196/S 8406/S 9458/S 9479/S 9596/S $623/S 93647/S $969/S 
10201/S 10512/S 105198/S 10550/S 10550/S 10578/S 10636/S 10679/5 
10906/S 10825/S 108993/S 11026/S 11138/S 11146/S 11151/S 

bieck_number 1242 5389/S 6612/Ss 63866/S 7458/S 7503/S 7537/8 7575/s 7665/S 
7691 7697/M 7809/58 7866/58 7898/S 7953/8 7373/8 8140/S 
8172/S 8227/S 8439/S 8445/S 8499/58 8608/S 8630/S 8837/S 
9196/S 9406/S 9458/S 9479/S 9596/S 9623/S $647/Ss $969/S 
10201/S 10512/S 10519/S 10550/S 10550/S 10579/S 10636/S 10679/5S 
10806/S 10925/S 10983/S 11026/S 11139/S 11146/S 11151/S 

block op 4063 5389 6612 6966 7458 7503 7537 7575 7665 
7632 7694 7809 7866 7898 7359 73783 8140 
8172 8227 8433 8445 8499 8608 8630 8837 
9196 9406 9458 9479 $596 $623 S647 $369 
10201 10512 10519 10550 10550 10579 10636 10679 
10906 10925 10983 11026 11139 11146 11151 

calculate circular_service 10279 10279 10288 10291 

calculate service used 10262 $996 10063 102397 

call_dispatcher 3724 63990/M 7758/M 7866/M 7898/M 7973/M 8024/M 68092/M 8172/M 
8227/™M 84339/M 8559/M 8630/M 8746/M 8815/M 8825/M 8333/M 
90439/M 9174/M 3406/M $4739/M $623/M 9647/M 10084/M 10201/M 
10519/M 10550/M 10579/M 10825/M 11138/M 11151/M 

circular service 10267 10276/M 10285/M 10285 10232 10233 

clear 4741 6453/M 6494/M 6502/M 7454/M 7466/M 7512/M 7547/M 7599/M 
7725/M 7757/M 73827/M 7983/M 8039/M 8104/M 8176/M 8270/M 
8292/M 8451/M &8508/M 8553/M 8610/M 8677/M 8756/M 8870/M 
8961/M 9010/M 9028/M 9048/M $104/M 9211/M 8$250/M $257/M 
$271/M §339/M 9486/M §5339/M 9573/M 9631/M S655/M 9975/M 
10137/M 10141/M 10210/M 10246/M 10523/M 10589/M 10820/M 10988/M 
11022/M 11155/M 

emc$on 1190 10481 

cmtSelement_state 1190 1148 1150 1180 

condition 275 5651/M 6496/M 6534/M 6604/M 7452/M 7461/M 8445/M 8608/M 


*#** REFERENCE ABBREVIATIONS : Memodify, Atattribute, Stsubscript, I:1/0 ref, R=read, Wewrite, P=parameter 


{EFERENCES OF tmm$dispatcher NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 
EDENTIFIER= <2 see e255 sm 3 cece DEFINED = see See seis ks REFERENCES 
ON LINE 

8704/M $102/M $373/M 9412/M 9433/M 9543/M 9577/™M 3$8376/M 
10987/M 

sondition 5646 5651 

sondition 6464 6496 

sondition 6505 6534 

condition 6567 6604 

sondition 7416 74582 7461 

rondition 8381 8445 

rendition 8581 &608 

sondition 8682 8704 

condition 90s7 9102 

condition 9349 9373 9412 9433 

condition 9491 9543 9577 

rondition 9936 $376 

controls 4790 8739 9694 $762 10466 10774 

sontrols defined 4786 8739 9694 3760 10466 10774 

sount 4738 6435/M 6435 6450 6451/M 6451 6490/M 6490 6494 
6494/M 6494 6502 6502/M 6502 7450/M 7450 7454 
7454/M 7454 7466 7466/M 7466 7501/M 7501 7512 
7512/M 7512 7529/M 7529 7547 7547/M 7547 7573/M 
F573 7539 7539/M 7599 7653/M 7653 7725 7725/M 
7725 7748/M 7748 7757 7757/M 7757 7806/M 7806 
7927 78327/M 7827 73856/M 7356 7983 7983/M 7983 
8017/M 8017 8039 8039/M 8039 8070/M 8070 8104 
8104/M 8104 8134/M 8134 8176 8176/M 8176 8265/M 
8265 8270 &8270/M 8270 8282/M 8282 8292 8282/M 
8292 8444a/M 8444 8451 8451/M 8451 8508 8508/M 
8508 8532/M 8532 8553 8553/M 8553 8607/M 8607 
8610 8610/M 8610 8677 8677/M 8677 8727/M 8727 
8756 8756/M 8756 8783/M 8783 8870 8870/M 8870 
8897/M 8837 8961 83961/M 8961 3004/M 93004 9010 
3010/M 9010 $028 9028/M 9028 9048 9048/M 9048 
9100/M 9100 9104 9104/M $104 9211 9211/M 9211 
9247/M $247 $250 $250/M 9250 $257 $257/M 3257 
9271 9271/M 9271 9329/M $329 $3398 9339/M $339 
9469/M $469 $486 3$486/M 9486 9504/M 9504 9539 
9539/M $539 8573 9573/M 9573 9607/M 9607 $631 
§8631/M 9631 $655 S655/M 9655 9951/M 9951 9875 
9375/M 9375 10137 10137/M 10137 10141 10141/M 10141 
10170/M 10170 10210 10210/M 10210 10233/M 10233 10246 
10246/M 10246 10461/M 10461 10823 105823/M 10523 105898 
10589/M 10589 105833/M 10583 10820 10820/M 10820 10981/M 
10981 10988 10988/M 10988 11022 11022/M 11022 11107/M 
11107 11155 11155/M 11155 

sount 10948 109883 10995 11039 

cp service at _class_switch 1454 10275 

cp_time 1642 8739/M 8739 8739/M 8739 8739 8739 9685/M S685 
9687/M 9687 9742 $743 10274 10275 10466/M 10466 
10466/M 10466 10466 10466 

=p time 2541 8733/M 8739 8739/M 8739 3707/M 3707 g9709/M 9709 
$9321 $930 10466/M 10466 10466/M 10466 

sptime_signal_last_sent 2251 8739 8739/M 9744 S746/M 10466 10466/M 

cpu_idie_ statistics 1174 10734 10735/M 10737/M 10739/M 10765 10766 10767 10768/M 


RK REFERENCE ABBREVIATIONS Mzmodify, Aztattribute, S=subscript, I:I1/0 ref, Rtread, We=write, Ptparameter 


REFERENCES OF tmm$dispatcher 


NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 1143 


{DENTIFIER-<- eee et ee rt te wee eee DEFINED-------+ +--+ --e- REFERENCES 
ON LINE 

10768 10771/M 10771 10775/M 10776/M 10776 

cpu_state 1156 10480 10587 

cst index 1148 69393 7866 7838 7879 8172 8227 84399 8630 
8744 9406 $479 9623 $647 160201 10469 104706 
10519 10550 105783 10642 10648 10685 10687 10694 
109325 11113 11114 11138 11151 

cst index 6870 6342/M 63847/S 68348 69493 6952 6953/S 6955/M 6955 
6956 

est_index 7766 7866/M 7866/S 7866 7866 T7866 7866/S 7866/M 7866 
7866 7898/M 7838/8 7898 7898 7898 7898/58 7898/M 
7898 7898 

est index 79332 7379 /M 7979/8 73979 71373 7979 7373/8 7973 /M 7979 
79379 

sst_index 8110 8172/M 8172/85 8172 8172 8172 8172/8 8172/M 8172 
8172 

e¢st_ index 8182 8227/M 8227/8 8227 8227 8227 8227/S 8227/M 8227 
8227 

2st_index 8381 8499/M 8499/S 8499 8439 8499 8499/S 8499/M 8499 
849338 

st_index 8581 8630/M 8630/S 8630 8630 8630 8630/S 8630/M 8630 

8630 

cst index $3493 9406/M 9406/5 9406 8406 9406 9406/S 9406/M S806 
9406 

cst_index 8446 9479/M 9479/S $4793 §473 947538 9479/S 9479 /M 94795 
9479 

sst_ index 9584 $3623/M §$623/S 9623 9623 $623 9623/S 3623/M $623 
9623 9647/M 9647/S $647 9647 9647 $647/S 9647/M 
$647 9647 

cst index 10157 10201/M 10201/S 10201 10201 10201 10201/S 10201/M 10201 
10201 

cst_index 10408 105193/M 10518/S 10519 10519 10519 105139/S 10519/M 10519 

2 105193 10550/M 10550/S 10550 10550 10550 10550/5S 10550/M 
10550 10550 10579/M 10579/S 10579 105793 10579 10579/S 
10579/M 106579 10579 

cst_index 108795 10925/M 10925/S 10825 40$s25 108325 10825/S 10925/M 10925 
10925 

cst_ index 11095 11139/M 11139/8S 11139 11139 1139 11139/S 11139/M 11139 
11139 11151/M 11151/S 11151 11151 11151 1151/8 11151/™M 

i 11151 11151 

cst _p 5633 5635/M 

TSt_p 6863 6941/M 

cst_p 6871 6941/P 6393 

“cst _p 7354 7369/58 7370/S 

cst_p 7377 7339 

cst _p 7562 7585/M 

st _p 7568 7585/P 7587 

cst op 7730 7747/M 

cst _p 7744 7787/P 7749/58 7756/8 7758/M 7759 7760/M 

GSt_p 7766 7820/M 7866/M 7898/M 

“cst ep 7766 7866/P 7866 7898/P 7898 

cst_p 77386 7820/P 7821/P 

cst _p 7332 79379/P 7379 

est_p 7932 7873/M 

xx REFERENCE ABBREVIATIONS M=modify, Asattribute, Szsubscript, I21/0 ref, Reread, Wewrite, Psparameter 


REFERENCES OF 


IDENTIFIER------------+----+---- 


cst_p 
cst_p 
cst _p 
cst_p 
cst_p 
cst _p 
cst_p 
cst_p 
cst_p 
cst_p 
cst_p 
cst_p 
cst_p 
cst_p 


cst_p 
ecst_p 
cst_p 
cst_p 


cst_p 


cst_p 
cst_p 
cst_p 


cst_p 
cst_p 


cst _p 


cst_p 


cst_p 
cst_p 
cst_p 
cst_p 
cst_p 
cst_p 
cst_p 


REFERENCES OF 


e 


IDENTIFIER-------------------- 


est _p 
cst_p 
cst_p 


cst_p 
cst_p 
cst_p 


cst_p 
cst_p 
cst_p 
cst_p 


cst_p 
cst_p 
cst_p 
cst op 
cst_p 


curr ptilo 

curr ptilo 
current pit _value 
current pit_valiue 
dct placement 


dct_placement 


dct _ placement 
act _ placement 


dct_placement 


tmm$dispatcher 


RX 


tmm$dispatcher 


xxx 


DEFINED 
ON LINE 
79388 
8002 
8011 
8014 
8044 
8064 
8110 
8110 
8182 
8182 
8381 
8381 
8383 
gs515 


8581 
8581 
8581 
8583 


8682 


8682 
§682 
8684 


8771 
8877 


8368 


9059 


$349 
9349 
9446 
9446 
3584 
9584 
$662 


REFERENCE ABBREVIATIONS 


DEFINED 


ON LINE 


9875 
$3902 
$938 


10157 
10157 
10408 


10408 
10408 
10408 
10410 


10879 
10879 
110985 
11035 
11096 


7394 
8682 
9918 
$942 
6873 


7766 


79332 
8110 


8182 


REFERENCE ABBREVIATIONS : 


cae ese se ew BR ew ew ee ee 


NOS/VE CYBIL/II 


NOS/VE CYBIL/II 


1.9 881902 
REFERENCES 
8004/M 
s004a/P 8006/M 
8016/M 
8016/P 8018/S 
8091/M 
8091/P 8092/M 
8172/P 8172 
8172/M 
8227/P 8227 
8227/M 
8499/P 8499 
8499/M 
8425 8425 
8533/5 &8S36/S 
8558/M 8559/M 
8630/P 8630 
8630/M 
8635/5 8635/S 
8606 &8608/P 
8624/5 8625/S 
8643/M 8643 
8739 /M 8738 
8739/P 8739/S 
8739 8739 
8739/P &8739/M 
8739 /M 8739 
8742 
8754 8754 
8703 8708 
8730/M 873060 
8739/P 8740/M 
8744 8745/M 
8803 8815/M 
8896 8300 
8307/M 83908/M 
8933/M 8934 
9000/M 9006 
9023 9024/M 
9113 $121 
9145/M 9155/M 
$168 9174/M 
9192/S 9138/S 
9406/P 9406 
9406/M 
9479/P 94793 
9479 /M 
9623/P 9623 
9623/M 9647/M 
9685/M s68s5 
9694/P 9698/5 
9707 9707 
9717/P $723/M 
9735/M 9742 
Memodify, 


8006 
8019/5 


8083 


8493/P 
8543/M 
8560 


8614/S 


&754/P 
8713/P 
8731/M 


9175 
9199/M 


S647/P 


9686 
§699/S 
9703/M 
9723 
9742 


Arattribute, 


1.0 88102 
REFERENCES 

8882 9887 9834/P 
9921 9924 9924 
9956 9956 9961/M 
10080/S 10081/P 10084/M 
10131 10132/S8 10133/S 
10201/P 10201 

106201/M 

10466/M 10466 10466 
10466/P 10466/5S 10466/S 
10466 104656 10466/M 
10466/P 10466/M 10466 
10466/M 10466 10466 
10519/P 10519 10550/P 
10518/M 10550/M 10579/M 
10530 10530 10530/P 
10444/M 10459 10465 
10472 10480 10481 
10496/S 10497/S 10510 
10539/M 10539 10540 
10567 10568 10570/M 
10583/P 10583/P 10587 
10631 10632 10634/M 
10638/M 10638 10639 
10679/P 10679/P 10680/M 
10686 10687 10693 
10734 10735/M 10737/M 
10746/M 10759/M 10765 
10771 10775/M 10776/M 
10787/M 10788/M 10789/5 
10925/P 10825 

10825/M 

11138/P 11139 11151/P 
11139/M 11151/M 

11105 11110/S 11111/S8 
11118/M 11118 11122/M 
11133/M 11134/P 11139/P 
11152/M 

73939/M 7402 7402 
8742/M 8742 8742 
9924/M $926 $327/M 
9956/M 9958 9959/M 
6894/M 6896/M 6899/M 
7055 7057 

7866/M 7866/M 7866/M 
7866 7866 7898/M 
7898 7898 7898 
7879 /M 7979/M 7979/M 
73979 7979 

8172/M 8172/M 8172/™M 
8172 8172 

8227/M 8227/M 8227/M 
8227 8227 

Memodify, Asattribute, 


8022/8 


8094/M 


8543 
8561/M 


8617/P 
8628 
8647 
87339 /M 
8733 
8739 
8733 
8733 


8723/P 
8732/M 
8741/P 
8747 
8817/M 
890602 
8916 


9009/M 
9033 
9139 
$157/M 
9176/M 
9202 


$647 


9687/M 
9699 
9709 
9725 
$744 


$329 

9361 
10128/M 
10134/S8S 


10466/M 
10466 
10466 
10466 
10466 
10550 


10466/P 
10483/M 
10511 
105481/M 
10571/P 
10594 
10635/M 
10641 
10680 
10694 
10733/M 
10766 
10776 


11151 


— 


1113 
1122 
1145 


—_ ak 


T403 
8742 
$927 
9959 


6922 
7866 
7898/M 
7898 
73793 
8172 


8227 


Szsubscript, 


8023/8 


80396 


8544/P 
8571/P 


&8617/P 
8630/P 


8917/P 


9018/S 
9041 
9140 
9157 
9179/M 
9203/M 


9687 
9701/58 
$709 
9726 
9744 


S:subscript, I21/0 


9930 
$962/M 
10129/M 


10466 
10466/S 
10466 
10466 
10466 
10579/P 


10469 
10488/M 
10517/M 
10559/M 
10577 
10594 
10636/P 
10642 
10681/M 
10634 
10742/™M 
10767 
10783/M 


7866 
7898/M 


73793 
8172 


8227 


1989-08-21 


~~ 


I=1/O ref, 


8024/M 


8549/Ss 
8575/P 


8619 
8635/P 
8675/P 
8739 
8739/5 
8735 
8739/M 
8739/P 


8728/M 


8904 
8917/P 


9021/M 
904S/M 
$140 
9158/M 
9188 
S$206/M 


$688 
$702/S 
$712 
9728/M 
$745/P 


ref, R-read, 


989-08-21 


$962 
101298 


10466 
10466/S 
10466 
1O0466/M 
10466/P 
10578 


10470/M 
10494/M 
10521/M 
10559 
10578 
10585 
10636/P 
10648 
10681 
10724/M 
10743/M 
10768/M 
10784/M 


13:33:34 
8025 8026/M 
8550/58 8557 
8576/P 8576/P 
&8620/M 8623 
8642/M 8642 
8675/P 
87393 8739 
87338 8739 /M 
8739 8739 /P 
8733/M 8739 /M 
8739 /M 
8729/M 87238 
8738/M 8738 
8743/M 8744/M 
&8754/P 
8827/M 
8905 8905 
8325/M 8926/M 
gso2t 9023/M 
$050 9051/M 
9142 9144/P 
$158 9162 
9189/S 91390 
$690 §6390 
9702 3$707/M 
9716 9717/P 
$730/M $733/M 
9746/M 

Wewrite, 


13:33:34 

9963/M 3964/M 
10130/S 10131/M 
10466 10466 
10466 1O466/M 
10466 10466/P 
10466/M 10466/M 
10466/M 

10470 10471/M 
10435/S 104396/M 
10529/M 10530/P 
1O0S65/M 10565 
10578 10573/P 
10595 10597/M 
10637/M 10637 
10648 10678/M 
10682 1O685 
10726/M 10726 
10744/M 10745/M 
10768 10771/M 
10785 /M 10786/M 
11115/M 11116 
11130 11131 
11149/P 11151/P 
7410/S 7411/58 
8742/58 8742/5 
7040 7053 
7866 7866 
7898 7898 
79793 7379S 
8172 8172 
8227 8227 


Reread, Wewrite, 


PAGE 


PAGE 


1144 


P=parameter 


1145 


P=parameter 


REFERENCES OF tmm$dispatcher NOS/VE CYBIL/II 1.060 881062 1989-08-21 13:33:34 PAGE 1146 
IDENTIFIER----+r ee eee eee eee eee DEFINED------- ee eee ree REFERENCES 
ON LINE 

dct placement 8381 8493/M 84399 /M 8499/M 8499 8499 8499 8499 8439 
8499 8499 

dct placement 8581 8630/M 8630/M 8630/M 8630 8630 8630 8630 8630 
8630 8630 

dct _ placement 9349 9406/M 9406/M 9406/M 9406 S406 9406 9406 9406 
9406 S406 

dct placement 9446 $479/M 94739/M 9479/M 9479 9479 9473 9479 9479 
9479 9473 

dct _ placement 9584 9623/M 9623/M 9623/M 9623 9623 9623 9623 $623 
9623 9623 9647/M 9647/M 9647/M 9647 9647 9647 
9647 9647 9647 9647 

dct placement 10157 10201/M 10201/M 10201/M 10201 10201 10201 10201 10201 
10201 10201 

dct _ placement 10408 10513/M 10519/M 10519/M 10519 10519 10519 10519 10519 
10519 10518 10550/M 10550/M 10550/M 10550 10550 10550 
10550 10550 10550 10550 10579/M 10579/M 10579/M 10579 
10579 10579 10579 10579 10579 10579 

dct _placement 10879 109825/M 10925/M 109325/M 10925 10925 10925 10925 10925 
10825 10925 

dct _ placement 11095 11139/M 11139/M 11139/M 11139 11139 11139 11139 11139 

: 11139 11139 11151/M 11151/M 11151/M 11151 11151 11151 
11151 11151 11151 11151 

dcte 6676 6682/M 6684 6684 6685 6688/M 6689/M 6690/M 6691/M 
6695 6696/M 6697 6698/M 6700 6701/M 6704 6713 
6714/M 6716 6717/M 6719 6720/M 6724 

dcte 6746 6752/M 6754 6754 6755 6758/M 6759/M 6760 6761/M 
6763 6772 6773 /™M 6776 

dcte 6863 7054 7054 7054/M 7054 7054 7054/M 7054/M 7054/M 
7054 7054/M 7054 7054/M 7054 7054/M 7054/M 

dcte 6863 7056 7056 7OS6/M 7056 7056/M 7056/M 7OS6/M 7056 
7O56/M 7O56 7O56/M 7056 7056/M 7O56/M 

dacte 6863 7058 7058 7058/M 7058 7058/M 7058 7058/M 7058/M 

dcte 6872 6963/M 6870 6S72/M 6973/M 6974/M 6975/M 6381 6982/M 
69384 7T004/M 7OO6 7008/M 7009 /M 7010/M 7011/M 7015 
7020/S 7021/S 7026 7026 7027/M 7029/M 7031/M 7034/S 
7035/58 7O36/M 7038/M 7041/S 7043/M 7054/P 7O56/P 7058/P 
7062 

dcte 71072 7033 71098 7110/M 7130 7130 7131/M 7134/M 7136/M 
7189 7T160/M 7162 7163/M 7165 7166/M 7172/M 

dcte 7184 7205 7221 7222/M 7226 7227/M 7242/M 7244/M 7268 
7269/M 7271 7272/M 7274 7275/M 7281/M 

~dcte’ 72933 7312 7323 7324/M 7326 7327/M 7329 73230/M 7347/M 

dacte 7766 7864/M 7864 7864 7864 7864/M 7864/M 7864/M 7864/M 
7864 7864/M 7864 7864/M 7864 7864/M 7864 7864 
7864/M 7864 7864/M 7864 7864/M 7864 

dcte 7766 7866/M 7866 7866/M 7866/M 7866/M 7866/M 7866 7866/M 
7866 7866/M 7866 7866/M 7866/M 7866/M 7866/M 7866 
7866/S 7866/S 7866 7866 7866/M 7866/M 7866/M 7866/S 
7866/S 7866/M T866/M 7866/5 7866/M 7866/P 7866/P 7866/P 
7866 7898/M 7838 7898/M 7898/M 78838/M 7898/M 7898 
7898/M 7898 7898/M 7898 7898/M 7898/M 7898/M 7898/M 
7898 7898/S 7898/8 7898 7898 7898/M 7898/M 7898/M 
7898/5 7838/S 7898/M 7898/M 7898/S 7898/M 7898/P 7898/P 

HER REFERENCE ABBREVIATIONS M=modify, Azattribute, Szsubscript, I:1/0 ref, Reread, Wewrite, P=parameter 


‘HEX 


REFERENCE ABBREVIATIONS 


REFERENCES OF tmm$dispatcher NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 1147 
IDENTIFIER--- sr eer ree ere renee DEFINED--~--+-+7 eter ee eee REFERENCES 
ON LINE 

7898/P 7898 

dcte 7766 7866 7866 7866/M 7866 7866 7866/M 7866/M 7866/M 

° 7866 7866/M 7866 7866/M 7866 7866/M 7866/M 7898 

7898 7898/M 7898 7898 7898/M 7898/M 7898/M 7898 
7888/M 7898 7898/M 7898 7898/™M 7898/M 

dcte 7766 7866 7866 7866/M 7866 7866/M 7866/M 7866/M 7866 
7866/M 7866 7866/M 7866 7866/M 7866/M 7898 7898 
7838/M 7898 7898/M 7898/M 7898/M 7898 7898/M 7898 
7898/M 7898 7898/M 7898/M 

dcte 7766 7866 7866 7866/M 7866 7866/M 7866 7866/M 7866/M 

7898 7838 7898/M 7898 7838/M 7898 7898/M 7898/M 

dcte 7932 79793/M 7379 7973 /M 7979 /M 7379/M 7979/M 7979 7973/M 
7379 7979 /M 783793 79379 /M 7379/M 7373 /M 7979/M 7979 
7379/8 73739/S 7379 7979 7973/M 73739/M 73739 /M 7979/8 
7379/8 7973 /M 7979 /M 7979/S 7979 /M 7979/P 7979/P 7979/P 
7979 

dcte 7932 7379 7973 7973 /M 7379 79793 797393/M 7979/M 7979/M 

7979 73973 /M 71393793 78793 /M 7979 79739 /M 7379/M 

dcte 7932 7979 7979 7979 /M 7979 7979 /M 7979 /M 79379/M 7879 
7979/M 7979 7979/M 7979 7973 /M 7979/M 

dcte 79332 73979 73979 79379 /M 7979 7379/M 7979 7979 /M 7973/M 

dcte 8110 8172/M 8172 8172/M 8172/M 8172/M 8172/M 8172 8172/M 
8172 8172/M 8172 8172/M 8172/M 8172/M 8172/M 8172 
8172/S 8172/8 8172 8172 8172/™M 8172/M 8172/M 8172/8 
8172/S 8172/M 8172/M 8172/8 8172/M 8172/P &8172/P 8172/P 
8172 

acte 8110 8172 8172 8172/M 8172 8172 8172/M 8172/M 8172/M 
8172 8172/M 8172 8172/M 8172 8172/M 8172/M 

dcte 8110 8172 8172 8172/M 8172 8172/M 8172/M 8172/M 8172 
8172/M 8172 8172/M 8172 8172/M 8172/M 

dcte 8110 8172 8172 8172/M 8172 8172/M 8172 8172/M 8172/M 

acte 8182 8227/M 8227 8227/M 8227/M 8227/M 8227/M 8227 8227/M 

. 8227 8227/M 8227 8227/M 8227/M 8227/M 8227/M 8227 
8227/8 8227/5 8227 8227 8227/M &8227/M &8&227/M 8227/8 
8227/8 &8227/M 8227/M 8227/8 8227/M 8227/P 8227/P 8227/P 
8227 

dcte 8182 8227 8227 &8227/M 8227 8227 8227/M 8227/M 8227/M 
8227 8227/M 8227 8227/M &227 8227/M &8227/M 

dcte 8182 8227 8227 &8227/M 8227 8227/M 8227/M 8227/M 8227 
8227/M 8227 &8227/M 8227 8227/™M 8227/M 

cte 8182 8227 8227 8227/M 8227 8227/M 8227 8227/M &8227/M 

raicte 8381 843939/M 8499 8499/M 8499/M 8499/M 8499 /M 8499 8499 /M 

- 8439 8499 /M $439 8499 /M 8499 /M 8499 /M 8499 /M 8499 
8499/8 84939/S 8439 8499 8499/M 8499/M 84939/M 8499/58 
8499/S 8499/M 8499/M 8499/58 84939/M 8499/P 8499/P 8499/P 
84399 

cicte &381 8499 8499 8499/M 84939 8439 8499/M 8499/M 8499/M 

“4 84399 8499/M 8439 8499/M 8439 843939/M 84993/M 

acte 8381 8499 8499 8499 /M 8499 8439/M 8499/M 8439/M 8499 

4 8499/M 8499 8499 /M 8499 843S/M 8499/M 

dcte 8381 84393 8499 8499/M 8439 8499/M 8499 843939/M 8499/M 

dcte &581 8E30/M &8E30 8E30/M &8630/M &8630/M 8630/M 8630 8630/M 
8630 8630/M 8630 8630/M 8630/M &8630/M 8630/M 8630 


Memodify, Aztattribute, Stsubscript, I:1/0 ref, Reread, Wewrite, P=parameter 


REFERENCES OF tmm$dispatcher NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 1148 


IDENTIFIER- +++ ee ee ee tee eee eee DEFINED--<---2-* 2222s e058 REFERENCES 
ON LINE 2 

8630/5 8630/S 8630 8630 8630/M 8630/M 8630/M 8630/S 
8630/5 &8&30/M 8E30/M &630/5 &8630/M &8630/P 8630/P &8630/P 
&630 

dcte 8581 8630 8630 8630/M 8630 8630 8E30/M 8630/M 8630/M 

&630 8630/M 8630 8630/M 8630 &8630/M &8630/M 

dcte 8581 8630 8630 8630/M 8630 8630/M 8630/M 8630/M 8630 
8630/M 8630 8630/M 8630 8630/M 8630/M 

dcte 8581 8630 8630 8630/M 8630 8630/M 8630 8630/M 8630/M 

dcte $349 9406/M S406 9406/M 9406/M 9406/M 9406/M 8406 S3406/M 
9406 9406/M S406 §406/M 9406/M S406/M S406/M 9406 
9406/5 9406/S 9406 9406 9406/M 8406/M S806/M g9406/S 
$406/S 9406/M 9406/M 9406/S 9406/M 9406/P 9406/P 9406/P 
9405 

dcte $349 $406 9406 9406/M 9406 9406 §9406/M 8406/M 9406/M 
9406 S9406/M 8406 9406/M $406 $406/M 9406/M 

dcte 9349 9406 9406 8406/M 9406 9406/M 9406/M 9406/M 9406 
9406/M 9406 9406/M 9406 8406/M 9406/M 

dcte $349 9406 9406 9406/M 9406 9406/M 9406 9406/M S9406/M 

dcte 9349 9417/M $417 9417 9417 9417/M 9417/M $417/M 9417/M 
$417 9417/M 9417 9417/M $417 9417/M 9417 9417 
9417/M 9417 9417/M 9417 S417/M 9417 

dcte 9446 9473/M 9479 9479 /M 9479/M 9479/M 8479/M 9479 8479 /M 
9479 9473/M 9473 9479/M 9$479/M $479/M 9473 /M 9479 
9479/8 9479/S 9479 9479 $479/M 9479/M 9479/M $479/S 
9479/8 94739/M 9479 /M 9479/S 9479/M 9479/P 8479/P 9479 /P 
9479 

dcte 3446 9479 8479 9479 /M 94795 9479 $473/M 9478S /M 9479/M 
9479 8479/M 9479 9479 /M 9479 9$479/M 9479 /M 

dcte $446 9475 9479 9479 /M $479 8473 /M $479/M $4739 /M 9479 
9479/M 9479 9479 /M 9479 9479 /M 9479/M 

dcte $446 9479 9479 9473 /M 9479 8473 /M 9479 9479/M 8479 /M 

dcte 9491 §528/M 9528 9528 9528 9528/M 9528/M 9528/M 9528/M 
9528 §9528/M 9528 9528/M $528 9528/M 9528 9528 
9528/M $528 9528/M 9528 9528/M $528 §562/M $562 
9562 9562 9562/M 9562/M $562/M 9562/M 9562 9562/M 
$562 9562/M 9562 9562/M 9562 9562 $562/M $562 
9562/M 9562 §8562/M 8562 

dcte 9584 9623/M 9623 8$623/M 9623/M 9623/M §$623/M 9623 §9623/M 
$623 9623/M $623 9623/M 9623/M 9623/M 9623/M 9623 
§623/S 9623/S $623 9623 $623/M 9623/M 9623/M 9623/S 
$623/S §$623/M 8623/M 9623/S 8623/M §9623/P $623/P $623/P 
9623 9647/M 9647 9647/M 9647/M 9647/M 9647/M 9647 
9647/M 9647 9647/M $647 $647/M 8647/M $647/M 9647/M 
9647 9647/S 9647/S 9647 9647 S647/M $647/M 9647/M 
9647/S 9647/S 9647/M 8647/M 9647/S S647/M 9647/P 9647/P 
9647/P 9647 

dcte 9584 9623 9623 9623/M 9623 9623 9623/M 8623/M 9623/M 
$623 §9623/M 9623 §9623/M $623 §$623/M 9623/M 9647 
9647 S647/M 9647 9647 9647/M 8647/M $647/M 9647 
9647/M 9647 9647/M 9647 S647/M 9647/M 

dcte 9584 9623 9623 $623/M $623 9623/™M 9623/M 3623/M 9623 
9623/M $623 9623/M $623 8623/M S623/M 9647 9647 
9647/M 9647 S9647/M 9647/M 8647/M 9647 9647/M 9647 

eX REFERENCE ABBREVIATIONS Mzmodify, Azattribute, Stsubscript, I2I/O ref, Rtread, Wewrite, Ptparameter 


REFERENCES OF tmm$dispatcher NOS/VE CYBIL/II 1.0 89102 1889-08-21 13:33:34 PAGE 1149 


IDENTIFIER-+---- 2 eee een ere eee DEFINED-------+e2 eee ee REFERENCES 
ON LINE 

9647/M 9647 9647/M 9647/M 

dcte 9584 $9623 9623 9623/M 9623 9623/M 9623 9623/M 9623/M 
9647 9647 9647/M 9647 9647/M 9647 9647/M 9647/M 

dcte 10157 10198/M 19198 10198 10198 10188/M 10198/M 101838/M 10198/M 
10198 10198/M 10198 10198/M 10198 10198/M 10198 10198 
10198/M 10198 10198/M 10198 10198/M 10198 

dcte 10157 10201/M 10201 10201/M 10201/M 10201/M 10201/M 10201 10201/M 
10201 10201/M 10201 10201/M 10201/M 10201/M 10201/M 10201 
10201/S 10201/S 10201 10201 10201/M 10201/M 10201/M 10201/S 
10201/S 10201/M 10201/M 10201/S 10201/M 10201/P 10201/P 10201/P 
10201 

dcte 10157 10201 10201 10201/M 10201 10201 160201/M 10201/M 10201/M 
10201 10201/M 10201 10201/M 10201 10201/M 10201/M 

dcte 10157 10201 19201 10201/M 10201 10201/M 10201/M 10201/M 10201 
10201/M 10201 10201/M 10201 10201/M 10201/M 

dcte 101587 10201 102061 10201/M 10201 10201/M 10201 10201/M 10201/M 

dcte 10408 10519/M 10519 10519/M 10519/M 105139/M 10519/M 10519 105183/M 
105193 10519/M 10518 10519/M 10513/M 10519/M 105139/M 10519 
10519/S 10519/S 105198 10519 10519/M 10519/M 10519 /M 105139/S 
10519/S 10519/M 10519/M 10513/S 10513/M 10519/P 10519/P 105139/P 
10519 10550/M 10550 10550/M 10550/M 10550/M 10550/M 10550 
10550/M 10550 10550/M 190550 10550/M 10550/M 10550/M 10550/M 
10550 10550/S 10550/5 10550 10550 10550/M 10550/M 10550/M 
10550/S 10550/S 10550/M 10550/M 10550/S 10550/M 10550/P 10550/P 
10550/P 10550 105873 /M 10579 10578/M 10579/M 10579/M 10579/M 
105793 10579 /M 10579 10573/M 10579 10579/M 10573 /M 10573/M 
1057393/M 10579 10579/S 10573/S 10579 10579 10573 /M 10573 /M 
105793/M 10579/5S 10579/S 10573/M 10578/M 10579/8S 10578/M 10579/P 
10579/P 10579/P 10579 

dcte 10408 10519 105819 1051383/M 10519 10518 10519/M 10519/M 105193/M 
10519 10519/M 10519 10519/M 10518 10519/M 10519/M 10550 
10550 1O0550/M 10550 10550 10550/M 10550/M 10550/M 10550 
10550/M 10550 10S50/M 10550 10550/M 10550/M 10579 10579 
10579/M 10579 105793 10573 /M 10579/M 105739/M 10579 10579/M 
10578 105739/M 105793 105739/M 10579/M 

dcte 10408 10519 10519 10519/M 10519 10519/M 10519/M 10519/M 10519 
10519/M 10519 10519/M 10518 10519/M 10518/M 10550 10550 
10550/M 10550 10550/M 10550/M 10550/M 10550 10550/M 10550 
10550/M 10550 10550/M 10550/M 105793 105873 10579 /M 10579 
10579/M 10579/M 10579 /M 10579 10579/M 105793 10579/M 10579 
10579/M 10579/M 

dcte 10408 10519 10513 10519/M 10519 10519/M 10519 10519/M 10519/M 
10550 10550 10550/M 10550 10550/M 10550 10550/M 10550/M 
10579 10579 10579 /M 10579 10573S/M 10578 10579 /M 10579/M 

dcte 10408 10725/M 10725 10725 10725 10725/M 10725/M 10725/M 10725/M 
10725 10725/M 10725 10725/M 10725 10725/M 10725 10725 
10725/M 10725 10725/M 10725 10725/M 10725 

dete 108793 10825/M 10925 109825/M 108$25/M 109825/M 10825/M 10925 10825/M 
10925 10825/M 10925 10925/M 10925/M 10825/M 10925/M 10925 
10925/S 10925/S 10925 10925 10825/M 10825/M 10825/M 10925/S 
10825/S 160325/M 10825/M 10825/S 10825/M 10925/P 10925/P 10925/P 
10925 

dcte 10879 10925 10925 10925/M 10925 10925 10325/M 10825/M 1OS25/M 

** x REFERENCE ABBREVIATIONS Memodify, Asattribute, Stsubscript, I:sI/O0 ref, R=read, Wewrite, P=parameter 


REFERENCES OF tmm$dispatcher NOS/VE CYBIL/II 1.0 89102 
IDENTIFIER------- oe See ee See DEF ENED = =23 Sis ese sae a REFERENCES 
ON LINE 

10925 10925/M 10925 

dcte 10879 10925 109325 10925/M 
10925/M 10825 10925/M 

dcte 10879 10925 10325 10832S/M 

dcte 10964 10997/M 10997 10997 
10997 109397 10387/M 

dcte 11095 11139/M 11139 11139/M 
11139 11139/M 11139 
11139/S 11139/S 111398 
11139/S 11139/M 11139/M 
14139 11151/M 11151 
11151/M 11151 11151/M 
11151 11151/S 11151/8S 
11151/S 11151/S 11151/M 
11151/P 11151 

dcte 11095 11139 11139 11139/M 
11139 11139/M 111398 
11151 11151/M 11151 
11151/M 11151 11151/M 

dcte 11095 11139 11139 11138/M 

111339/M 11139 11139/M 
111S51/M 11151 11151/M 
11151/M 11151 11151/M 

dcte 11095 11139 11139 11139/M 
11151 11151 11151/M 

debug index 3146 10844/M 

debug list _pointer 3149 10840 10840 10841/M 

debug mask_register 3148 10842/M 

delayed swapin_work 1297 9460 9598 10173/M 

dest 5600 5610 

dest 9936 10106 

determine dispatching priority 10310 10019 10046 10070 

dfc$command_ record bytes 1367 1375 

dfc$division_overwrite_words 1354 1382 

adfc$esm_command_record_ size 1375 1383 

dfc$esm_header_ record size 1376 1383 

dfc$esm_maintenance_buf_ size 1355 1386 

dfc$esm_memory base_shift 1361 1383 1384 1384 

dfc$header_record_ bytes 1366 1376 

dfc$max_esm_memory_size 1356 1385 

dfc$max_ number _ of mainframes 1363 1348 

dfc$min_data_record_bytes 1371 1382 

dfcS$min_esm_division_size 1381 1385 

daftSmainframe_ set 1348 1298 1299 1437 

dispatch control 1189 69390/M 7758/M 7866/M 
8227/M 8439/M 8559/M 
9049/M 9174/M 9406/M 
10519/M 10550/M 10579/M 

“dispatching contro} 1280 6885/S 7819 7822 
8497/S 84939/S 8625/5 
8838 8916 9406/S 
$723/M 9723 9994/M 
10017/M 10027/M 10029/M 

**% REFERENCE ABBREVIATIONS Memodify, Azattribute, 


REFERENCES OF tmm$dispatcher NOS/VE CYBIL/II 1.060 889102 
IDENTIFIER-*-- se ee ee eee ee rene DEFINED-------+-t- eee ee- REFERENCES 
ON LINE 
10066/M 10068/M 10179 
10323 10324/M 10324 
10335/M 10337/S 10343 
1O€66/M 10466 10497/S 
11139/S 11151/S8 
dispatching contro] 2582 6885 7866 7898 
8625 8630 9406 
10194 10201 10278 
10550 10879 10925 
dispatching controi_index 1449 6885/S 7866/S 7898/S 
&8625/S &8630/S 9406/S 
1OO66/M 10194/S 10201/S 
10519/S 10550/S 10579/S 
dispatching controi_index 4903 10057/S 10067 
‘dispatching control index 102693 10280 10282/S8 10283/S 
dispatching control _info 4891 7818/M 9391 10000 
10066 10068 
dispatching control p 10268 10277/M 10282 10283 
dispatching control op 10369 10373/M 10386 10388 
dispatching controls 9943 10056/M 10058 10058 
dispatching priority 1145 &8739/P 8739/S 8733/S 
9701/S §9702/S 10466/P 
10488/M 10495/Ss 10742/M 
dispatching priority 1450 7819 7822 8838 
10179 10182 10321 
dispatching priority 1464 100606 10331 10338 
dispatching priority 2530 6626 6912 6815 
7373 8172 8172 
8608 8623/M 8623 
8834 8913 $188 
9623 8623 $647 
10203 105183 10519 
109825 11139 11139 
dispatching priority 4904 ‘9991 10001 10003 
dispatching _ priority 4942 6626/M 6649/M 6682/Ss 
: 69820/M 6929 6930/M 
7004/S 7013 7015/S 
7866/M 7866 7866/M 
7866/S 7866/S 7866/S 
7898 7898/M 7898 
7898/S 7898/S 7898 
7979/M 7979 7979/M 
7979/S 7379 7979/8 
8172 8172/M 8172/8 
8172 8172/8 8172/8 
8227/M 8227/8 8227/8 
8227/8 8227/8 8445/M 
8493/M g84ags/s 8499/5 
84989/S 8499/58 8544/M 
8630 8630/M 8630/S 
8630 8630/5 8630/S 
9406/M 9406 $406/M 
9406/S 9406/5 $406/S 
*** REFERENCE ABBREVIATIONS Memodify, Azattribute, 


10925/M 
10925 
10925 
10925 


1438 
7838/M 
8630/M 
94795/M 
10925/M 
7866/S 
8630/S 
9479/S 
10000/M 
10030/M 


S=subscr 


10182 
10327 
103783 
10519/S 


7979 
$3479 
10330 
11111 
79379/S 
9479/S 
10330/S 
1092S5/S 


10285/S 
10002 


10285 
10389 
10060 
8739/8 
10466/S 
10787/M 
8916 
10324/M 


7866 
8227 
8630 
9190 
$647 
190550 
11151 
10018 
6693 
6940/5 
7062/S 
7866 
7866 
7898/M 
7898/S 
7979/8 


S:ssubscript, 


ipt, 


1989-08-21 13:33:34 

10925 10825/M 10925/M 
10825/M 10925/M 10825/M 10925 
1098325/M 10925/M 

10925/M 10825 10925/M 10925/M 
10987/M 10997/M 10997 10997/M 
11139/M 11139/M 11139 11139/M 
11139/M 11139/M 11139/M 11139 
11139/M 11138/M 11139/M 11139/8S 
11139/M 11139/P 11139/P 11139/P 
11151/M 11151/M 11151/M 11181 
11151/M 11151/M 11151/M 11151/M 
11151 11151/M 11151/M 11151/M 
11151/S 11151/M 11151/P 11151/P 
11139 11138/M 11139/M 11133/M 
11139 11139/M 11139/M 11151 
17151/M 11151/M 11151/M 11151 
11151/M 11151/M 

11139/M 11139/M 11138/M 11139 
11139/M 11139/M 11151 11151 
11151/M 11151 11151/M 11151 
11139/M 11139 11139/M 11139/M 
11151/M 11151 11151/M 11151/M 
10236/M 10236 

10392 

7979/M 8024/M 8092/M 8172/M 
8746/M 8815/M 8825/M 8933/M 
9623/M 9647/M 10084/M 10201/M 
11139/M 11151/M 

7898/S 7979/8 8172/S 8227/8 
8739 8739 &87329/M 8739 
9623/S 9647/8 9712 3716 
10002/M 10004/M 10008 10010 
10031/M 10032/M 10043/M 10044/M 

I:1/0 ref, Reread, Wewrite, 
1989-08-21 13:33:34 

10194/S 10201/5S 10275 10321 
10328 10330/5 10332/M 10332 
10389/M 103981/M 10466 10466 
10550/S 10579/S 109825/S 11111/S 
8172 8227 8497 8499 
9623 9647 10045 10057 
10337 10374 10497 10519 
41139 11151 

8172/S 8227/58 8497/5 8499/5 
8623/S 9647/S 10027/M 10043/M 
10337/S 10379 10381/M 10498/5 
11111/S 11139/58S 11151/S 

10017 10057/S 100593 10060 
10396 

8739/S 9694/P 3698/S 9699/S 
10466/S 10466/S 10466/S 10483/M 
10789/S8S 

10002/M 10008 10010 10029/M 
10332/M 10335/M 10343 

7866 7898 7898 7979 
8227 8445 8499 8499 
8630 8813 8818/S 8828/S 
9406 9406 9479 9479 
1013930/M 10199 10201 10201 
10550 10579 10579 10925 
11151 

10061 

6724/S 6913/M 6915/M 6919 
6s6s/s 6978 6984/Ss 69889/S 
7864/S 7864 7864/S 7866/M 
7866/M 7866/S 7866/S 7866 
7866/S 7866/S 7898/M 7898/M 
7898/5 7898/5 7898 7898/S 
7898/58 7979/M 7979 /M 7979 
7879/8 7979 7979/5 7979/S 
8172/M 8172/M 8172 8172/M 
8172 8172/58 8172/S 8172/58 
8227/M 8227 8227/M 8227 
8227/8 8227/S 8227/8 8227 
&8439/M 8439 84339 /M 84g9 
849S/S 8499/5 g8agg/s 8499 
8630/M 8630/M 8630 8630/M 
8630 8630/58 8630/S 8630/5 
8813/M 8834/M 8913/M S406/M 
$406/M $406/s 9406/S 8406 
s406/S $s406/S 9417/S $417 

Is1I/0 ref, R®read, Wewrite, 


PAGE 


PAGE 


1150 


P=parameter 


1151 


P= parameter 


REFERENCES OF tmm$dispatcher NOS/VE CYBIL/II 1.0 891062 
IDENTIFIER=** c= 222s 5 eee een ec ee DEFINED*-++s-e ee e228 ---REFERENCES 
ON LINE 
9417/8 94739/M 9479/M 
9479/5 9479 9479/58 
9528/5 9528 9528/S 
9623 $623/M 9623 
8623/5 $623/S 9623 
9647/M 9647 $647/M 
$647/S 9647 9647/8 
10201/M 10201/M 10201 
10201 16201/8 10201/S 
10519/M 10519/M 10519 
10519 10513/5S 10519/S 
1O55S0/M 10550 10550/M 
105S0/S 10550/8S 10550/S 
10579 10579/M 10579 
10579/S 10579/S 10579 
10787 10925/M 108325/M 
10825/5 10925 10925/S 
10984 11003/M 11086/M 
11139/M 11133/S 11139/5S 
11139/58 11139/S 11151/M 
11151/S 11151/S 11151 
11181/S 
dispatching priority 8682 8738 8739 8739 
8733 8739 8739/S 
8739/58 8733/8 
dispatching priority 9661 9694 9694 9694 
9694 9694 §$694/S 
9694/S 9694/S 
dispatching priority 9755 9760 9773 9774 
9790 9791 9794/S 
9809/S 9810/S 
dispatching priority 10167 10179 /M 10182/M 10185 
dispatching priority 10408 10466 10466 10466 
: 10466 10466 10466/S5 
10466/S 10466/S 10774 
10774/S 10774/S 10774 
10774 10774/P 10774/S 
dispatching priority 10955. 11003 
dispatching priority _bias 2532 10180 10183 
dispatching priority bias id 2531 10177 10178 
dispatching priority. integer 1184 6947 6953 6988/M 
7898 7898/M 79783 
8172 8172/M 8227 
8561/M 8630 8630 
9051/M 9176/M 8406 
9623 9623 9623/M 
10201/M 10519 10519 
10550/M 10579 10579 
10925/M 11139 11139 
dispatching priority time 4797 8739 8739/M 8739 
$694 9694 9694/M 
9809/M 9810 10466 
10774 10774/M 10774 
* eX REFERENCE ABBREVIATIONS Memodify, Azattribute, 


REFERENCES OF tmm$dispatcher NOS/VE CYBIL/II 1.0 89102 
IDENTIFIER <<< 5 <2. 48 ee oS eek s DEFINED----- rere ee ee eee REFERENCES 
ON LINE 
dispatching timeslice 1466 6885 7866 7898 
8626 &8630 9406 
10498 10519 10550 
dmt$system_file_id 1397 1330 
dp 6405 10673 10673 10674/S 
dap 8682 8739 &8739/P 
dp 8682 87393 8739/5 8739 
dp $3661 9694 9694/P 
dp 3661 9694 9694/S 9694 
dp $753 3768 $768/S 9782 
dp $758 9767 8768/P 
dp $827 9834 9841/8 
dp 10408 10466 10466/P 10774 
dp 10408 10466 10466/S 10466 
10774 10774/8 10774 
dp_mask 6414 1O673 10673 10674/S 
dp_trick conversion 6409 10428 
dpc$console_row_size 5883 5877 
dpc$top_line_message_size 5877 5872 
dpt$top_line_message 5872 5847 
dual_state_jps 1154 6994 7866 7838 
9406 9479 $623 
10595 10925 11139 
dual _ state prior _subpriority 1146 10494/M 10587/M 10744/M 
dual state priority 3791 10744/M 
end_of_wait_time 4945 6632/M 8023/M 8286 
8327 8445/M 8608/M 
10550 10550 10561 
108396 11010/M 11124 
end_of wait time 8276 8288/M 8288 8288 
end _of wait_time 8317 8321/M 8327 8327 
end _of wait time 10408 10561/M 10561 10561 
end_of wait time 11095 11124/M 11124 11124 
end _ptilo $356 $396/M 9398 $398 
enforce maximums 4789 8739 9694 $801 
enforce maximums 4815 6694 6694/M 6979 
7866 7866/M 7866 
7979 7379 /M 7973 
8227 8227/M 8227 
8630 8630/M 8630 
8739/M 8739 8739 /M 
87339/M 8739 8739/M 
9417/M 9479 9479/M 
9562/M $623 $623/M 
9647/M $694/M 8694 
9694 8694/M S694/M 
9765/M $766 $766/M 
$782/M 9802/M 9803 
9836/M 9858 8860/M 
10201/M 10466/M 10466 
10466 10466/M 10466/M 
190519 10518/M 10518 
*** REFERENCE ABBREVIATIONS M=modify, Atattribute, 


9479 

9479/S 
9562/S 
9623/M 
§$623/S 
9647/S 
9647/58 
10201/M 
10201/S8S 
10519/M 
10519/S 
10550 

10550 

10579 /M 
10879/S 
10925 

10925/S 
11139/M 
11138 

11151/M 
11151/8 


8739/8 
8739 


9694/s 
9694 


$777/S 
9797 


10186/M 
10466/S 
10466 
10774 
10774 
10774/S 


77T6O/M 
7379 
8227 
8630/M 
$406 
9647 
10519/M 
10579/M 
11139/M 
8739 
9694 
10466/M 
10774 


Szsubscript, 


7379 
$479 
10579 


10711 
8739/S 


9694/S 
9782/8 


10774/P 
10466/S 
10774/S 
10711 


7979 

9647 
11151 
10788/M 


8288 

8930/M 
10861 
11124 


10519/M 


Sssubscript, 


1889-08-21 13:33:34 

S479 /M $4793 8473 /M $479/S 
9479/5 $479 $473/S 9473/58 
$562 9562/S $623/M 9623/M 
$623/S $623/S 9623 §9623/S 
9623/S 9647/M 9647/M $647 
9647/S 9647 9647/S 9647/5 
10198/S 10198 101938/S 10199/M 
10201 10201/M 10201/58 10201/S 
10201 10201/S 19201/S5S 10203/M 
10518 10519/M 105139/5S 10519/S 
10513 10519/S 10519/S 1O0S50/M 
10550/M 10550/S 10550/S 10550 
10550/S 10550/S 10S579/M 10579/M 
10579/S 10579/S 10579 10579/S 
10579/S 10725/S 10725 10725/S 
108325/M 10825 1039325/M 10925/S 
109325/S 10925 109325/S 1032S5/S 
11139/M 11139 11139/M 111339 
11139/S 11139/S 11139/S 11139 
11151 11151/M 11151 11151/M 
11151/8S 11151/S 11157 11151/8 
8739 8739/P 8733/S 8739/5 
8739 8739 8739 8739/P 
9694 9694/P 9694/S 9694/5 
9694 $9694 9694 $694/P 
$780 9782/P 8784/S 9785/5 
9800 9801 $804 8807/P 
10187 10188/M 10190 
10466 10466/P 10466/S 10466/S 
10466 10466 10466 10466/P 
10774 10774/S 10774 10774/P 
10774/S 10774 10774 10774 
7866 7866 7866/M 7898 
7373 /M 8026/M gos4a/M 8172 
8227/M 8439 8499 84339 /M 
8748/M 8817/M 8827/M 8935/M 
98406/M 9479 9473 9479 /M 
$647 9647/M 10201 10201 
10521/M 10541/M 10550 10550 
10724/M 10743/M 10925 10825 
11151 11151 11151/M 
8739/M 8739 9694 9694/M 
9776 39784/M 3785 973933 
10466 10466 1O0466/M 10466 
10774/M 10774 

I:I/O ref, Reread, Wewrite, 

1989-08-21 13:33:34 

8172 8227 84397 84935 
9623 9647 10195 10201 
10925 1111@ 11139 11151 
10713 10715 
8739 8733/S 
$694 9694/S 
9807 9807/S 
10466 10466/S 10774 10774/S 
10713 10715 
8172 8227 84393 8630 
10201 10518 10550 10579 
8288 8288 8321 8327 
9047/M 9173/M $261 §262 
10561 10750 10816 10896 
11124 
10774 
7014 7014/M 7864 7864/M 
7898 7898/M 7888 7898/M 
8172 8172/M 8172 8172/M 
84383 8499/M 84gs9g 8499/M 
8739/M 8739 8739 /M 8739 
8733/M 8739/M 8739 87393 
S9406/M 9406 9406/M 9417 
9479/M 9528 9528/M $562 
$623/M 9647 9647/M 8647 
s6s4 9694/M 9694 S6S4/M 
9694 S96S4/M $694 S6S4/M 
9768/M 9781 $781/M $782 
9806/M 9807 9807/M $835 
10198/M 10201 10201/M 10201 
10466 10466/M 10466 10466/M 
10466 10466/M 10466 10466/M 
105506 10550/M 105506 1O0550/M 

IsI/O ref, Reread, Wewrite, 


PAGE 1152 


Pz=parameter 


PAGE 


Pzparameter 


REFERENCES OF tmm$dispatcher 


IDENTIFIER---- eee re eee ee ee eee 


entry status 


environment 

excess _ cp_time_used 
excess _cp_time_used 
excess _ cp_time_used 
excess service _ used 
executing task_count 


expected wait _time 
expected wait _time 
expired dispatching control] 


file entry index 

file_hash 

file hash 

find dispatching control set 
find next job 

find next task 

Yilags 

forward link 

found 

free pti 


“free running ctock 


free running clock 
fwa 


‘gfcS$fde_size 


KX 


REFERENCES OF tmm$dispatcher 


IDENTIFIER-------+---+-+--++---- 


gfc$fde_table_base 
agfcS$fk_catalog 
gfc$Ffk_job_tocal_file 


‘gfcS$fm_mass_ storage file 


gfcS$fm_served_ file 
gfc$monitor_ interlocks 
gfc$tr_job 

ofc$tr_system 
gofpS$mtr_get_fde_p 
gfp$mtr_get_locked_fde_p 
gftS$allocation_unit size 
gftSattach_count 

aft$fde_ flags 

gftSfile_ desc_entry_p 
gftS$file descriptor_entry 
gft$file_ descriptor index 
gft$file kind 

gftSfile media 

aftS$ locked file desc entry _p 
gftS$open_count 

gft$queue status 


‘gftS$segment_lock_info 


gftS$signature_tlock 
gftS$system_file_identifier 


 gft$table residence 


gftStransfer_ unit size 
‘global_task_id 


Global _task_id 


‘global_taskid 


3 


gtid 
gtid 


~guaranteed_ service quantum 


hash 


.hash 


hash 
mead 


eee 


DEFINED 
ON LINE 


1266 


S986 
8682 
9675 
10408 
10365 
1283 


4845 
4858 
10366 


8407 
8408 
5236 
$286 
$288 
8182 
8182 
8207 
1402 
1404 
3884 
10384 
7690 
10672 
3105 
2032 
8208 
6645 
10408 
10887 
44 


5275 


REFERENCE ABBREVIATIONS 


DEFINED 
ON LINE 
$273 
39360 
3962 
3975 
3976 
$307 
1415 
1415 
$234 
S286 
3934 
3939 
39093 
5280 
3874 
1412 
3956 
3975 
3866 
39393 
4004 
4008 
3981 
1401 
1415 
3945 
2519 


6559 
4859 
10956 
10871 
2575 


$241 
5286 
8182 
2170 


REFERENCE ABBREVIATIONS 


NOS/VE CYBIL/II 


NOS/VE CYBIL/II 


-enwnreranewnneweenwnnwnene we 


REFERENCES 


5248 
3372 
3971 
3300 
3903 
5294 
5251 


8499 
89138/S 
8647 
1151 
6562/Ss 
9101 
0384/s 
1018/M 
$200 


ad 


ht = 


5247/M 
5293/M 
8222/M 
6630/M 
8074 
8147/S 
8223/M 
8249 
8288/M 
8324/M 
8369/M 
10550 
10550 
10561/M 
10897 
11124 


Msmodify, 


1.0 89102 


5274 


8222 
52393 
§293 
5293 
8222 


3881 


3879 
3968 


8207 
4009 


2101 
5244 


7260 

8630 

8321/S 
10191 


$102/P 
10996 
11019/M 


5254/M 
5293/M 
8222/M 
7877 
8083 /M 
8148/M 
8234 
&8249/M 
8288 
8330 
8363 
10550 
10561 
10747 
108398 
11124 


1.0 89102 
REFERENCES 
10579 105793/M 10578 
10774/M 10774 10774/M 
10774/M 10774/M 10774 
10825/M 10925 10925/M 
11151/M 11151 11151/M 
5364 $369/M 5694 
7695 7698 7823 
10081 10081/M 10568 
8478 8479 8652 
8739/M 8739 /P 
9716/M §$717/P 
10466/M 10466/P 
10376 
6967/M 6967 6992/M 
7866 7897 7898/M 
7379 79793/M 7979 
8227/M 8227 8227/M 
84399 8543/M 8543 
8740/M 8740 9405 
9473 /M 9479 9479/M 
3623 S646 9647/M 
10201 10201/M 10201 
10519 10539/M 10539 
10579/M 10579 10579/M 
10925/M 10925 10925/M 
11139/M 11139 11147/M 
9033 9035 9041 
$113 9115 9121 
10378 
8474 
8475 
5258/M 5259 
52933/M 5233 
5293/P 5295/P 
8222/P 8222/P 8232/P 
8222/M 8222 8232/M 
8222/P 8223/P 8232/P 
5248 5293 8222 
5247. 5259 §293 
5259 5293 8222 
10384 10394 10402 
7690 7704 7710 
10672 10692 10698 
8484/M 8484 8486/M 
11034/M 
8216/M 8234 8234 
6657 8544 8741 
10550/M 10550 10550 
108S33/M 10896 10896 
53 
5248 52933 8222 
Metmodify, Azattribute, 


$2393 


8232 
8222 
8222 
8222 
8232 


5280 


2558 


7866 

8646/M 

9006 
10201 


$187 
1006 
1020/P 


a a 


8232/M 
7877/8 
8086/M 
8223 
8234 
8248 
&288/M 
8337/M 
8371/M 
10550/M 
10561 
10750/S 
1039300/M 
11124/M 


Azsattribute, 


10579/M 
10774 
10774 
11139 


7459 
8471 
11131 
8653 


6992 
7898 
8171 
8227 
8628 
9406/M 
9479 
9647 
10513/M 
10550 
10579 
10925 
11147 


8232/P 
8232 
8233 
8232 
§293 
8232 


10702 
8486 


8236/M 
11086 


8232 


S=subscript, 


8222 


8232 
8232 
8232 


2735 


7898 

8837/S 

9189/S 
10519 


§194/P 


8232/M 
7877/™M 
8135 
8223/5 
8235 
8249/M 
8288 
8338 
8371 
10550 
10561/M 
10813 
10900 
11124 


Sssubscript, 


10658 

10774/M 
10774/M 
11139/M 


7505 
8471/M 


7865 
7898/M 
8172/M 
8498 
8630/M 
9406 
$622 
9647/M 
10513 
10550/M 
10693 
11118/M 
11151/M 


8249/P 


8222 


10722 
8669/M 


8245 


I1=1/0 


8232 


2943 


7379 

8838/8 

$192/S 
10550 


$196/S 


7877 
8142 
8223/M 
8239/8 
8268 
8288/M 
8339/M 
8374/M 
10550/S 
10561 
10816/S 
10901/S 
11124/M 


T=1/0 


1989-08-21 13:33:34 
10660/M 10725 10725/M 
10774 10774/M 10774 
10774 10774/M 10925 
11139 11139/M 111517 

7539 7577 7668 
9197 9332 9372 
7866/M 7866 7866/M 
7898 7377 73979/M 
8172 8172/M 8172 
8499 /M 84399 8499/M 
8630 8630/M 8630 
9406/M 9406 9478 
9623/M 9623 §$623/M 
9647 10200 10201/M 
10519/M 10519 10519/M 
10550 10550/M 10550 
10726/M 10726 10924 
11118 11139/M 11139 
11151 11151/M 11151 
8222 8232 8232 
86693 8671/M 8671 
ref, Reread, Wewrite, 

1989-08-21 13:33:34 

5234 5286 5974 
8172 8227 8454/M 
8842/S 8844/S 8855/P 
9406 $4793 8623 
10579 10925 11135 
7877/™M 7877 7877/M 
8143/M 8146/M 8146 
8223 8223/M 8223 
8249 82439/S 8245 /M 
8269/S 8288 8288 
&8288/M 8319 8323 
8341/M 8362 8365/S 
8445/M 8608/M 10550/S 
10550/M 10550/S 10550 
10561/M 10561 10561/M 
190896/S 10896/S .10896 
10902/M 10832 11008/M 
11124 11124/™M 11124/M 
ref, Reread, W:write, 


PAGE 


PAGE 


1154 


P=parameter 


1155 


P= parameter 


REFERENCES OF tmm$dispatcher 


IDENTIFIER-----------+--------- 


i 

i 

i¥fdisable traps 
i#fmove 
i#fprogram_error 


i#restore traps 
id 


idjie_ count 

idle io active 

idle _nmo_io_active 

idle resume _ sys_task_kind 
idle resume _sys_task_kind 
idle _ start_time 

idle status 


idle time 
idle type 
ijl_bi 
ijl_bn 
ijl_ordinal 


ordinal 
_ordinal 


ijl_ordinal 


xX 


REFERENCES OF tmm$dispatcher 


IDENTIFIER--------------+----- 


ijl_oerdinal 
ijl ordinal 
ijl_ordinal 
ijl_ordinal 
ijl_ordinal 
ijl_ordinal 
iji_ordinal 
ijl_ordinal 
ijl_ordinal 


ijl_erdinal 
ijl_ordinal 
ijl_ordinal 
ijl_ordinal 
ijl_ordinal 
ijl_ordinal 
ijl_ordinatl 
ijl_ordinal 
ijl_ordinal 


ze 


NOS/VE CYBIL/II 1.0 89102 
DEFINED-~------ Melee e iSeie. = REFERENCES 
ON LINE 
$944 10107 10108/S 10108 
10870 10983 10984/S 10995 
5579 S596 
S599 5615 1O106 
§283 5260 52383 6448 
7547 7539 7725 
8176 8222 8232 
8610 8677 &756 
9104 9211 $250 
9573 9631 9655 
190823 10589 10820 
$617 5631 
4739 6429 6433/M 6447 
7450/M 74584 7466 
7547 7873 7573/M 
7748/™M 7757 7806 
8017 8017/M 8039 
8176 8265 8265/M 
8444/M 8451 &508 
8610 8877 8727 
8897 88S7/M 8961 
9100 9100/M 9104 
$271 $329 9329/M 
S504/M $539 9573 
9951/M 9975 10137 
10233/M 10246 10461 
10820 10981 10981/M 
2479 10776/M 10776 
2476 10768/M 10768 
2475 1O0771/M 10771 
9492 $512 
9585 $s6osg 
2477 10735/M 10766 
4937 6629/M 7837 7888 
8162 8165/M 8167 
8614 8615/M 8753 
9409/M 9420/M 9422/M 
S560/M 9565/M 9567/M 
9883 10080 10527 
10569 10575 10582/M 
10432 10766/M 10769 10772 
2478 10734 10737/M 10739/M 
7647 7633 7694/S 7636 
7648 7691 7692/S 7694/S 
1172 8576/P &8608/P &8617/P 
s894/Pp 10466/P 10530/P 
2247 8464/M 
46898 8438 9458/P 9461/P 
4829 7661/M 7675 /M 7688 
4889 7816/M 9969/P $997/P 
10071/P 
4934 6562 6624/M 6966/P 
REFERENCE ABBREVIATIONS Memodify, Asattribute, 


DEFINED 
ON LINE 


7932 
8110 
8182 
8381 


REFERE 


NOS/VE CYBIL/II 


8227/S 
8439/S 


NCE ABBREVIATIONS M=modi 


1.0 89102 
7056 7056 
7217 7217 
7503/P 7505/P 
7866/P 7866 
7866 7866 
7898 7898 
7359/P 7972/P 
7979 7379 
8172 8172 
8172 8172 
8227 8227 
8499 8499 
8498 8499 
8630 8630 
8196/P 9406/P 
9406 9406 
9478 9479 
$623 $623 
9623 9623 
9647 9647 

10201 10201 

10512/P 10519/P 

10519 10519 

10550 10550 

10550 10579/P 

10579 10579 

10925/P 10925 
10825 10925 

11139 11138 

11151/P 11151 
11151 11151 
5389/S 
6612/S 
6624 
6966/S 
7458/S 
7503/58 
7537/S 
7575/58 
7665/S 
7698/P 
7675 
7808/S  7866/S 
79593/S  7979/S 
8140/S 8172/8 
8227/S 
8439/S 8445/S 

fy, Atattribute, 


10996/S 


6494 
7757 
8270 
8870 
$257 
$975 
10988 


6490 
7501 
7599 
7806/M 
8070 
8270 
8532 
&8727/M 
$004 
$211 
$339 
$607 
10141 
10461/M 
10988 


7891/M 
&217 
8754 
9472 
$616 
10528/M 
10907 
10774/P 
10765 


7697 
8619 
10583/P 


9596/P 
7691 
10005/P 


7054 


S=subscript, 


7058 
7257 
7537/P 
7866 
7866 
7898 
73879 /P 
7979 
8172 
8227/P 
8227 
8499 
8608/M 
8630 
9406 
9406 
9479 
9623 
9647/P 
9647 
10201 
10519 
10519 
10550 
10579 
10579 
10925 
10925 
11139 
11151 
11151 


7866/S 
7879/S 
8172/8 


8445/58 


S=subscript, 


11002/S 


6502 
7327 
8292 
8961 
$271 
10137 
11022 


6490/M 
7501/M 
7653 
7327 
8070/M 
8282 
8532/M 
8756 
9004/M 
9247 
9463 
3607/M 
10170 
10523 
11022 


78933 
8252/M 
8754 
9482/M 
9626/M 
10530 
10908/M 


10767 


8739 /P 
10635/M 


7696/M 
10020/P 


7054 


T=1/0 


9647 


10201 
10519 
10519 
10550 
10579 
10579 
10325 
11001/M 
11139 
171151 


7898/S 


8499/5 


IsI/O ref, 


1889-08-21 13:33:34 PAGE 
11003/S 11006/S 
7454 7466 7512 
7983 80339 8104 
8451 8508 8553 
90106 $6028 9048 
$338 9486 95393 
10141 10210 10246 
11155 
6494 6502 7450 
7512 75293 7529/M 
7653/M 7725 7748 
7956 7358/M 7983 
8104 8134 8134/M 
8282/M 8292 8444 
8553 8607 8607/M 
8783 8783/M 8870 
9010 $028 9048 
9247/M 9250 9257 
9469/M S48s6 9504 
9631 9655 9951 
10170/M 10210 10233 
10589 10593 10593/™M 
11107 11107/M 11155 
7969 7973/M 7974 
8445/M 8533 8608/M 
$298/M °"9394/M $399 
89526/M 9531/M 9533/M 
8640 9650/M 8883 
10530 10550 10550/M 
11007/M 11132 

10775/M 
8754/P 8917/P 9717/P 
10636/P 10678/M 10679/P 
7697/M 7698/P 

10033/P 10047/P 10064/P 
7084 7054 7056 
ref, Reread, W:ewrite, 

1989-08-21 13:33:34 PAGE 
7105 7105 7148 
7319 7319 7458/P 
7575/P 7577/P 78039 /P 
7866 7866 7866 
7898/P 7898 7898 
7898 7898 7898 
79793 73793 7979 
7379 &8140/P 8166/P 
8172 8172 8172 
8227 8227 8227 
8227 8253/P 8445/M 
8499 8439 8499 
8630 8630 8630 
8630 8630 8837/P 
S406 S406 S406 
9479/P 9479 9479 
9479 9479 9479 
9623 $623 $623 
9647 8647 $647 
9647 10201/P 10201 
10201 16201 10201 
10518 10519 10519 
10550/P 10550/P 10550/P 
10550 10550 10550 
10578 10578 10573 
10635 10678 109306/P 
10925 10925 10925 
11139/P 11139 11139 
11139 11139 11139 
11151 111571 11151 
7898/S 
8499/S 


Reread, Wrwrite, 


1186 


P=parameter 


1157 


P=parameter 


a Red 
ot aS ll tell wt 


wt wills allt 


wis wht oft 


REFERENCES OF tmm$dispatcher NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 1158 
IDENTIFIERs + cee eee te eee eee eee DEFINED--------- merase “REFERENCES 
ON LINE 
ijl_ordinai 8381 8445/P 8445 
ijl_ordinal 8413 8438/M 8439/P 8445/P 8464 
ijl_ordinal 8581 8608/P 8608 
ijl_ordinal 8581 8608/S 8608/S 8630/S 8630/S 
i jl_ordinal 8770 8837/58 8837/S 
ijl_ordinal $057 9196/5 $196/S 
ijl_ordinal 93495 9406/S 9406/S 
1jl_ordinal 9446 9458/S 9458/58 9479/S 94738/S 
ijl_ordinal 9584 §596/S ss596/S $623/S 9623/S $647/S 9647/S 
ijl_ordinal 9936 9969/S 9969/S 
ijl_ordinal 10157 10201/S 10201/S 
ijl_ordinal 10159 10171/P 
ijl_ordina} 10226 10234/P 
ijl_ordinal 10364 10393/P 
ijl_ordinal 10408 10512/S 10512/S 10519/S 105819/S 10550/S 10550/S 10550/S 10550/S 
10573/S 10579/S 10636/S 10636/S 10679/S 10673/5S 
ijl_ordinal 10879 10906/S 10906/S 10925/S 10825/S 
ijl_ordinal 10964 11026/5S 11026/S 
ijl_ordinal 11095 11139/8S 111393/S 11146/S 11146/S 11151/5S 11151/S 
ijl_p 6863 7054 7054 
ijtp ' 6863 7056 7056 
ijl_p 7071 7106 7149 
ijl_p 7183 7218 7258 
ijl_p 7766 7866 7866 78398 7898 
ijl_p 7766 7866 7866 7898 7898 
ijl_p 7932 7979 7979 
TjJ1_p 79332 7979 73979 
ijlep 8110 8172 8172 
ijl_p 8110 8172 8172 
ijl_p 8182 8227 8227 
1jl_p 8182 8227 8227 
ijl_p 8381 8499 84ag9 
ijl_p 8381 8439 8499 
ijl_p 8581 8630 8630 
ijl_p 8581 8630 8630 
ijlep 93493 98406 8406 
ijl_p $349 9406 9406 
ijl_p 9446 9479 9479 
ijl_p 9446 9479 9479 
ijl_p 9584 §623 $623 $647 9647 
jl—p 9584 $623 $623 9647 9647 
jJ1p 10157 10201 10201 
ijl_p 10157 10201 10201 
ijl_p 10408 10519 10519 10550 10550 10579 10579 
1jl_p 190408 10519 10519 10550 10550 10579 10579 
ijl_p 10879 10925 10925 
ijl_p 10879 10825 10825 
ijl_p 11095 11138 11139 11151 11151 
ijil_p 11095 11139 11139 11151 11151 
ijl_thread 4944 7369/M 7369 7370/M 7407 7410/M 7410 7411/M 7723 
8536 8635/M 8635 8635/M 8742 8742/M 8742 8742/M 
8754 9264 $299 94106 $429 9483 9536 9570 
9628 9652 9884 10530 11015/M 11015 11016/M 11077 
* * x REFERENCE ABBREVIATIONS Mzemodify, Azattribute, Stsubscript, I1=1/0 ref, Reread, W=write, Pzparameter 
REFERENCES OF tmm$dispatcher NOS/VE CYBIL/II 1.0 88102 1889-08-21 13:33:34 PAGE 1159 
IDENTIFIER-+--++--+2e- conan ec eee @DEFINED---* eee eee ~---REFERENCES 
ON LINE 
11085/M 
ijle_p 1173 7369/S 7370/S 7399 8543/M 8543 8549/S 8550/S 8571/P 
8575/P 8576/P 8617/P 8620/M 8624/S 8625/S 8627 8628 
8630/P 8635/S 8635/S 8642/M 8642 8643/M 8643 8644/M 
8675/P 8728/M 87293 /M 87293 8730/M 8730 8731/M 8739 /M 
87338 8739/M 8739 8739 8739 87339 /P 8733 /M 87393 
87395 8739 87480/M 8740 8742 8754 8916 8917/P 
89325/M 9139 g$140 9144/P 8$145/M 9198/58 919S3/M $202 
3203/M 9206/M 9685/M $685 9687/M 9687 9712 S716 
9717/P 9723/M $723 9742 9742 $882 10081/P 10466/M 
10466 10466/M 10466 10466 10466 10466/P 10466/M 10466 
10466 10466 10436/S 10497/S 10530 10539/M 10539 10559/M 
10559 10565/M 10565 10567 10568 10578 10578 10579/P 
10583/P 10636/P 10637 10641 10679/P 10680 10686 10693 
10726/M 10726 11110/S 11111/S 11118/M 11118 11122/M 11122 
11128/M 11128 11130 11131 11139/P 
ijle_p 2246 8463/M 
ijle_p 4690 7666 $231 9291 9331 $366 $372 9503 
ijle_p 4830 7665/P 7676/M 768S/P 7703/M 7716/P 
ijle_p §235 5252 
ijle_p 5286 5233 
ijle_p 5287 5293/P 
ijle_p 5358 5364 53693/M 5§373/P 5377/P 
ijle_p 5386 5389/M 
_tjle_p 5488 $493 5495/P 
ijle_p 5676 5698 S698/P 
ijie_p 5677 5693 S694 5698/P 
ijle_p 5708 5716 5718/P 
ijle_p 6567 6612/M 
ijle_p 6593 6612/P 6613 
ijle_p 6863 6966/M 
ijile_p 6863 7058 
ijle_ op 6865 6884/S 6885/S 63932/M 6992 7051 7051 7054/P 7OS6/P 
7058/P 
Tjle_p 7292 71320 
ijle_p 7416 7458/M 
ijle_p 7416 7459 7459 7459/P 
ijle_p 7416 7459 7453/P 
ijle_p 7419 7458/P 7459/P 7463 
ijle_p 7472 7503/M 
jle_p 7472 7505 7505 7505/P 
jle_p 7472 7505 7505/P 
jie _p 7475 7503/P 7505/P 75093 
jle_p 7517 7537/M 
jle_p 7517 7539 7539 7539/P 
jle_p 7517 7839 7539/P 
jie_p 7520 7535/M 7537/P 7533/P 7543 
jle_p 7562 7575/M 
jle_p 7562 7577 7877 7577/P 
jle_p 7562 7577 7577/P 
jle_p 7562 7538 7598/P 
jieé_p 7569S 7575/P 7877/P 7581 7598/P 
jie_p 7618 7665/M 
xxx REFERENCE ABBREVIATIONS Mzmodify, Asattribute, S:tsubscript, I:1/0 ref, R=read, Wewrite, P:sparameter 


REFERENCES OF tmm$dispatcher NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 1160 


IDENTIFIER * +c ee er ewww ee ee ne DEFINED-*se-s eee ee eee ee REFERENCES 
ON LINE 

ijle_p 7618 7668 7668 7668/P 7698 7698 7698/P 

ijle_p 7618 7668 7668/P 7698 7698/P 

ijle_p 7618 7685 7685/P 7716 7716/P 

ijle_p 7620 7668/P 7673 7674 7676 

ijle_p T7766 7809/M 7866/M 7898/M 

ijle_p 7766 7866/S 7866/S 7866/M 7866 7866 7866 7866/P 7866/P 
7866/P 7898/S 7898/8 7838/M 7898 7898 7898 7898/P 
7898/P 7898/P 

ijie_p 7766 7866 7898 

ijle_p 7798 7809/P 7810 7812 7817 7819 7822 7823 7824/8 
7827/™M 7842 7843/M 7844/P 7865 7865 7866/P 7873/M 
7879 7884/M 7884 7889/M 78893 7892/P 7894/M 7894 
7896/S 78397 78397 7898/P 7910/P 7914/P 7826/M 

ijle_p 7332 7959/M 7879 /M 

ijle lp 7932 7979/8 7979/8 73973/M 7979 7979 7378 7979/P 79379/P 
7379/P 

ijle_p 7932 7979 

ijle op 7951 7959/P 7970/M 7970 7972/P 7975/M 7375 977 7977 
7378 7979/P 

ijle_p 8110 8140/M 8172/M 

ijle_p 8110 8172/S 8172/58 8172/M 8172 8172 8172 &8172/P 8172/P 
8172/P 

ijle_p 8110 8172 

ijle_p 81235 8140/P 8163/M 8163 8166/P 8168/M 8168 8170 8171 
8171 8172/P 

ijle_p 8182 8222/P 8232/P 

ijle_p 8182 8222 8232 

ijle_p 8182 8227/8 8227/8 &8227/M 8227 8227 8227 8227/P 8227/P 
8227/P 

ijle_p 8182 8227/M 

ijle_p 8182 8227 

ijle_p 8184 8218 8222/P 8224/M 8224 8226/5 8227/P 8232/P 8250/M 
8250 &8253/P 

ijle_p 8381 8439/M 8445/M 8499/M 

ijle_ p 8381 8445/P 8445 

ijle_p 8381 8471 8471/M 8471/P 8471/P 

ijle_p 8381 8499/S 8499/S 84993/M 8439 8499 8439 &8499/P 8499/P 
8499/P 

ijle_p 8381 84ag9 

ijle_p 8414 8439/P 8441/M 84439/P 8463 8465/M 8466/M 8467/M 8468/M 
84639/M &8470/M 8471/P 8473 8496/S 8497/5 84398 8498 
8499/P 8504/S 8505/8 

jle_p 8581 8608/P 8608 

le op 8581 8608/M &8630/M 

ijle_p 8581 8630/S 8630/S 8630/M 8630 8630 8630 8630/P 8630/P 
8630/P 

ijle_p 8581 8630 

ijle_p 8770 8837/M 

ijte_p 8776 8837/P 8838 88339/P 8848/M 

ijle_p 9057 9196/M 

ijle_p 9221 $231/M $232 8237 §9238/P 9239/M $249 

ijle_p $285 $231/M $295 

ijle_p 9326 §$331/M 9332 


** * REFERENCE ABBREVIATIONS Mzmodify, Azattribute, § 


subscript, I21/0 ref, Reread, Wewrite, P*parameter 


REFERENCES OF tmm$dispatcher NOS/VE CYBIL/II 1.0 88102 1989-08-21 13:33:34 PAGE 1161 


IDENTIFIER--e tee er eer eee eee eee DEFINED--------++--++-+-- REFERENCES 
ON LINE 

ijle_p 9349 9406/5 9406/S 9406/M 9406 S406 9406 9406/P 9406/P 
9406/P 

ijle_p 9349 9406/M 

i1jle_p $3493 9406 

ijle_p 9357 S366/M $380 $337 9404 9405 S406/P 

ijle_p 9446 9458/M 9479/M 

ij le p 9446 $479/S 9473/5 9479/M $478 9479 9479 9479/P $479/P 
9479/P 

ijle_p 9446 9479 

ijle_p 94582 9458/pPp $460 9461/P 9464 9478 9478 9479/P 

ijle_p 9499 §503/M 9508 

ijle_p 9584 9596/M 9623/M 9647/M 

ijle_p 9584 §623/S $623/S 9623/M $623 9623 9623 §623/P 9623/P 
§9623/P 9647/S 9647/S 9647/M 9647 9647 8647 9647/P 
9$647/P 9647/P 

ijle_p 9584 S623 9647 

ijle_p $533 s5836/P $538 §599/P $602 $622 $622 $623/P 9646 
9646 9647/P 

ijle_p 3936 9969/M 

ijle_p $ss36& 10081 10081/M 10081/P 10081/P 

ijle_p 9945 $s969/P $370 S374 9994/M 9996/P 9997/P 10000/M 10002/M 
10004/M 10005/P 10008 10009 10010/M 190010 10017/M 10019/P 
10020/P 10027/M 10028/M 10023/M 10030/M 10031/M 10032/M 10033/P 
10041/M 10043/M 10044/M 10045/S 100486/P 10047/P 10056/S 10063/P 
10064/P 10066/M 10068/M 10070/P 10071/P 

ijle p 10157 10201/S 10201/S 10201/M 10201 10201 10201 10201/P 10201/P 
10201/P 

ijle_p 10157 10201/M 

ijle_p 10157 10201 

ijle_p 10158 10171/P 10173/M 10173 10179 10182 10193/S 10194/S 102006 
10200 10201/P 

ijle_p 10225 10234/P 10236/M 10236 

ijle_p 190263 10271 10274 10274 10275 10277/S 

ijle_p 10311 10321 1060321 10323 10324/M 10324 10327 10328 10323/S 
10330/S 10332/M 10332 10335/M 10336/S 10337/S 10343/M 10343 

ijle_p 10363 10373/S 10378 10389/M 10391/M 10392/P 10393/P 

ijle_p 10408 10512/M 10519/M 10550/M 10550/M 10579/M 1O636/M 10679/M 

ijle_p 10408 10519/S 10519/8S 105193/M 10519 10519 10519 10519/P 10519/P 
10519/P 10550/S 10550/S 1O0550/M 10550 10550 10550 10550/P 
10550/P 10550/P 10579/S 10579/S 10579/M 10579 10579 10579 
10579/P 105739/P 10578/P 

ijle_p 10408 10519 10550 10579 

ijle_p 10408 10850/P 10550/M 10550 10550/P 10550/M 10550/M 10550 10550/58 
10550 10550 10550 10550/P 10550/M 10550 

ijle_p 108798 10906/M 10325/M 

ijle_p 10878 10825/S 10825/S 10825/M 10925 108325 10925 10825/P 109325/P 
10925/P 

ijle_p 10878 10325 

ijle_p 10888 10906/P 10810/M 108310 10913/P 10914/M 10917/M 10917 10918/S 
10921 10824 10924 10925/P 108327/M 10827 

ijle_p 10964 11026/M 

ijle_p 10974 11026/P 11031/M 11032/M 11033/M 11034/M 11035/P 11045 11051/P 

ijle_p 110698 11075 

*ex REFERENCE ABBREVIATIONS Memodify, Atattribute, S:subscript, I=r/o0 ref, Reread, Wtwrite, Ptparameter 


REFERENCES OF tmm$dispatcher NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 1162 

IDENTIFIER: cc er rete ere ee see DEFINED -~REFERENCES 

: ON LINE 

ijle_p 11095 11139/S 11139/S 11139/M 11139 11139 11139 11139/P 11139/P 
11139/P 11151/S 11151/8 11151/M 11151 11151 11181 11151/P 
11151/P 11151/P 

ijle_p 11095 11139/M 11146/M 11151/M 

ijle_p 11095 11139 11151 

ijlo 4990 8427/P 

ijlo 5676 5698/P 

ijilo 5709 5718/P 

ijlo 7416 74539/P 

ijlo 7472 7505/P 

ijilo 7817 7539/P 

ijlo 7562 7577/P 

tjlo 7618 7668/P 7698/P 

ijlo 10945 10993/S 10993/S 11001 11026/P 11035/P 

in_use 2095 8231 

in_use 4688 5494 5497/M $497 5698/M 5698 5721/M 5721 7459/M 
7459 7505/M 7505 7539/M 7539 7577/M 7S77 7598 
7598/M 7598 7663/M 7663 7668/M 7668 7685 7685/M 
7685 7698/M 7698 7716 7716/M 7716 

in_use_incremented 4831 7662/M 7669/M 7686/M 7699/M 7715 7717/M 

index 102 6491 64982/S 6493/5 6530 6531/Ss 6532/S 6549 6550/S 
6551/S 6562/Ss 6634/M 7369/S 7369/8 7370/S 7370 7399 
7403 7452 7452/8 7452/S 7458a/S 7489/8 7463/58 7502 
7502/S 7502/5 7503/58 7505/S 75039/S 7531 7532/Ss 7533/58 
7537/S 7539/8 7543/S 7574 7574/S 7574/S 7575/S 7577/S 
7581/8 7587/S 7666 7674 7701 7749/8 7756/S 7807 
7807/8 7807/S 7808/S 7864/P 7866/P 7898/P 7957 7957/S 
7957/S 7958/S 7979/P 8018/S 8019/S 8022/58 8023/58 8068/S 
8072 8072/8 8072/8 8075 8083 8084 8086 8088 
8135/M 8136/S 8138 8138/58 8138/8 8172/P 8227/P 8235 
8266 8266/5 &8266/S 8267/S 8268/M 8445/M 8439/P 8533/58 
8536/S 8544/P 8608/M 8614/58 8615/5 8616/S 8630/P 8635/S 
8635/58 8635/S 8635 8741/P 8742 8742 8753/S 8754 
8803 8837/58 8839/5 8842/58 8844/S 8896 8919/S 8821/S 
9018/S 9102 9102/S 9102/S 9134/Ss 9189/S 9132/S 9196/5 
9232 9295 9380 $337 9464 $508 $602 $882 
10080/S 10130/S 10132/S 10133/S 10134/S 10191 10472 10530 
10746/M 10783/M 10984/S 10994 10996 11018/M 11075 11116 

index p 4076 5388 6612 6966 7458 7503 7837 7575 7665 
7692 7694 7809 7866 7898 7859 7379 8140 
8172 8227 84393 8445 84939 8608 8630 8837 
$196 9406 9458 9479 9596 $623 $647 ss69 
10201 10512 10519 10550 10550 105793 10636 10679 
10906 10925 10893 11026 11139 11146 11151 

inhibit access 5679 5695/M 5697/M 

inhibit _access 7416 7459/M 7459/M 

inhibit_access 7447 74539/P 7460 

inhibit_access F472 7505/M 7505/M 

‘inhibit access 7499 7505/P 7506 

inhibit_access 7517 7539/M 7539/M 

inhibit access 7527 7539/P 7540 

Anhibit access 7862 7577/M 7577/M 

“ainhibit access 7570 7577/P 7878 


*** REFERENCE ABBREVIATIONS Me=modify, Azattribute, Stsubscript, I:I1/0 ref, R=read, Wewrite, Ptparameter 


REFERENCES OF tmm$dispatcher NOS/VE CYBIL/I1 1.060 89102 1989-08-21 13:33:34 PAGE 1163 
IDENTIFIERs ++ see cen ee cee eee ee DEFINED----*----- eee nee REFERENCES 
ON LINE 
/inhibit access 7618 7668/M 7668/M 7698/M 7698/M 
inhibit access 7649 7668/P 7669 7670 7698/P 76993 7700 
initiate swap_if_ possible gs874 8754 9897 19530 
insert_ijl 7352 7372 8635 
insert_ijle_p 6875 6966/P 6367/M 6967 
insert _ijle_p 7766 7866/P 7866/M 7866 7898/P 7898/M 7898 
insert _ijle_p 7832 7979/P 7979 /M 7139793 
insert _ijle_p 8110 8172/P 8172/M 8172 
insert _ijle_up 8182 8227/P 8227/M 8227 
insert _ijle_p 8381 8499/P. 8499 /M 8499 
insert_ijle_p 8581 &8630/P 8630/M 8630 
insert_ijle_p 9349 9406/P 9406/M 9406 
insert_ijle_p 9446 9479/P 9479 /M 9479 
insert_ijle_p 9584 9623/P 8623/M 9623 8$647/P 9647/M $647 
insert _ijle_p 10187 10201/P 10201/M 10201 
insert ijle up 10408 10519/P 10519/M 10519 10550/P 10550/M 10550 105739/P 105793 /M 
10579 
insert _ijle_ op 108793 10925/P 10925/M 10925 
insert _ijle up 11095 11139/P 141139/M 11139 11151/P 11151/M 111851 
insert _ptile_p 6874 6965/M 6966/P 6968/M 6963/58 6971/M 6978 69381/M 6984/S 
insert _ ptie_p 7766 7866/M 7866/P 7866/M 7866/S 7866/M 7866 7866/M 7866/S 
7898/M 7898/P 7898/M 7898/S 78938/M 7898 7898/M 7898/S 
insert _ptile_p 7332 7379/M 7979/P 7973 /M 7879/5 7379/M 73793 78379/M 7379/8 
insert _ptile op 8110 8172/™M &8172/P 8172/M 8172/8 8172/M 8172 8172/M 8172/S 
,insert ptile op 8182 8227/M 8227/P 8227/M 8227/58 8227/M 8227 8227/M 8227/8 
insert _ptle_p 8381 8499/M &8499/P 8439/M 8499/S 8499/M 8499 8499/M 84s9/s 
insert ptle_p 8581 8630/M 8630/P &8630/M 8630/S 8630/M 8630 8630/M 8630/S 
insert _ptie_p $348 8406/M 9406/P 3406/M §406/S 9406/M 9406 S406/M 9406/58 
-insert ptile_p 9446 9&879/M 9479/P 9473/M 8479/58 9479/M 9479 9479/M 9478/S 
insert _ptle_p 8584 §623/M 9623/P $623/M 9623/5 9623/M $623 9623/M $623/S 
8647/M 9647/P 9647/M 9647/S 8647/M 9647 $647/M 9647/S 
insert ptte_p 10157 10201/M 10201/P 160201/M 190201/8 10201/M 10201 10201/M 10201/8S 
insert _ptile op 1040608 10518/M 10519/P 10519/M 10519/5 10519/M 10518 10513/M 10519/S 
10550/M 10550/P 10550/M 10550/S8 10550/M 10550 10550/M 10550/58S 
10579/M 108579/P 10579/M 10579/S 10573/M 105793 10573S/M 10578/S5 
insert ptile op 108793 10925/M 10825/P 108325/M 10925/S 10825/M 10925 10925/M 10825/S 
insert ptile_p 11095 11139/M 11138/P 11139/M 11139/S8 11139/M 11139 1113S8/M 11139/S 
11151/M 11151/P 11151/M 11151/S 11151/M 11151 11151/M 11151/8S 
insert ptio 6863 7054/M 7054/S 7054/8 7054/M 7054 7054 7054a/Ss 7054 
7054 7054/M 7054/M 7054 7054 7054/S 7054/S 
insert ptilo 6863 7056/M 7056/S 7056/S 7OS56/M 7O56 7056 7056/S 7056 
7056/M 7O5S6/M 7OS6 7056/8 7056/S 
insert _pttlo 6863 7058/M 7058/S 7058/M 7058 
insert ptlo 7081 7092/M 7114/8 7115/8 7116/M 7126 7131 7133/8 7134 
7136 7145/M 7152/M 7158 7165 7163/S 7170/8 
iInsert_ptilo 7193 7204/M 7229/8 7230/8 7231/M 7241 7242 7243/Ss 7244 
7254/M 7262/M 7267 7278/8 7279/8 
insert _ptlo 7301 7314/M 7336/S 7337/M 7347 
insert _ptlo 7766 7866/M 7866/5 7866/S 7866/M 7866 7866 7866/S 7866 
7866 7866/M 7866/M 7866 7866 7866/S 7866/5 7888/M 
7888/S 7898/S 7888/M 7898 7898 7888/Ss 78398 7898 
7898/M 7898/M 7898 7898 7898a/s 7898/58 
insert ptio 7766 7866/M 7866/5 7866/S 7866/M 7866 7866 7866/5 7866 
*** REFERENCE ABBREVIATIONS Memodify, Azattribute, S=subscript, I:1/0 ref, R=read, W=write, P*parameter 


REFERENCES OF tmm$dispatcher NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 
IDENTIFIER-- cece eee eet tee eee DEF INED=---*-+-*+*+e¢+----- REFERENCES 
ON LINE 

7866/M 7866/M 7866 7866/S 7866/58 7898/M 7898/5 7898/S 
7898/M 7898 7898 7898/S 7898 78938/M 7898/M 7898 
7898/8 7898/8 

insert _ptlo 7766 7866/M 7866/5 7866/M 7866 7898/M 7898/S 7898/M 7898 

insert_ptilo 7932 73979 /M 7979/S 7979/S 7973 /M 79793 7379 7979/S 7979 
7979 7973/M 7973 /M 79783 7979 7879/S 7973/S 

insert_ptlo 7932 7979/M 7879/8 7973/S 7979 /M 7379 79379 7379/S 7979 
7979/M 7979/M 7979 7373/8 7979/8 

insert_pttlo 7932 7973 /M 7879/S 7979/M 7979 

insert _ptilo 8110 8172/M 8172/8 8172/8 8172/M 8172 8172 8172/58 8172 
8172 8172/M 8172/M 8172 8172 8172/S 8172/8 

insert_ptlo 8110 8172/M 8172/8 8172/8 8172/M 8172 8172 8172/8 8172 
8172/M 8172/M 8172 8172/8 8172/S 

insert_ptlo 8110 8172/M 8172/8 8172/M 8172 

insert_ptlo 8182 8227/M 8227/58 8227/5 8227/M 8227 8227 8227/5 8227 
8227 8227/M 8227/M 8227 8227 8227/S 8227/S 

insert_ptlo 8182 8227/M 8227/5 8227/8 8227/M 8227 8227 8227/5 8227 
8227/™M 8227/M 8227 8227/S 8227/8 

insert_ptilo 8182 8227/M 8227/S 8227/M 8227 

insert_ptlo 8381 8499/M 8499/5 8493/5 8499/M 8499 8499 8499/S 8499 
8499 843939/M 8499 /M gagg 84g9 84g93/Ss 8499/5 

insert _ptilo 8381 8499/M 8499/S 8499/5 8499/M gags 8499 8499/5 8499 
8499/M 8499/M 8499 84a99/S 8493/5 

insert_ptio 8381 8499/M 84a99/S 8499 /M 8499 

insert_ptlo 8581 8630/M 8630/S 8630/5 8630/M 8630 8630 8630/S 8630 
8630 8630/M 8630/M 8630 8630 8630/S 8630/5 

insert_pttlo 8581 8630/M 8630/S 8630/5 8630/M 8630 8630 8630/S 8630 
8630/M 8630/M 8630 8630/S 8630/S 

insert _ptlo 8581 8630/M 8630/S 8630/M 8630 

insert _ptilo $349 9406/M 9406/S 9406/5 S406/M S406 S406 9406/S 9406 
9406 S406/M S406/M 9406 9406 9406/5 g406/S 

insert_pttlo 9349 S406/M 9406/S 9406/5 9406/M 9406 9406 9406/S 9406 
9406/M 9406/M 9406 9406/5 9406/S 

insert _ptilo $349 9406/M $406/S 9406/M S406 

insert _ptlo 9446 9479/M 9479/8 9479/S $479/M 9479 9478 9479/8 9479 
8479 9479/M 9479/M 94795 9479 $479/S $479/S 

insert _pt lo 9446 9479/M $479/S 9479/8 9479 /M $479 9479 9479/5 94793 
9479/M 9479/M 9479 9479/S 9479/8 

insert_ptilo 9446 9479/M 9479/S 9479/M 9479 

insert_pttlo 9584 9623/M 9623/S $623/S §9623/M 9623 9623 9623/58 9623 
9623 9623/M 9623/M 9623 9623 9623/S $623/S 9647/M 
8647/5 9647/S 9647/M 9647 8647 §$647/S 9647 9647 
9647/M 964877M 9647 9647 9$647/S 9647/S 

insert _ptlo 9584 9623/M $623/5S 9623/5 9623/M 9623 9623 8623/5 9623 
§9623/M 9623/M $623 9623/S 9623/S 9647/M 9647/5 9647/S 
8647/M 9647 9647 9647/S 9647 9647/M 9647/M S647 
8647/S 9647/S 

insert _ptlo 9584 9623/M 9623/8 9623/M 9623 9647/M 9647/5 9647/M S647 

insert_pttlo 10157 10201/M 10201/S 10201/S 10201/M 10201 10201 10201/S 10201 
10201 10201/M 10201/M 10201 10201 10201/5S 10201/8 

insert _ptilo 10157 10201/M 10201/S 10201/S 10201/M 10201 10201 10201/S 10201 
10201/M 10201/M 10201 10201/S5S 10201/S 

insert_ptlo 10157 10201/M 10201/S 10201/M 10201 


ex REFERENCE ABBREVIATIONS Memodify, Atattribute, S=suoscript, :I/O ref, Reread, Wewrite, Ptparameter 


REFERENCES OF tmm$dispatcher NOS/VE CYBIL/II 1.0 88102 1989-08-21 13:33:34 PAGE 1165 
LDENTIF IER S22 sse se 5S eee ee eee DEFINED =" <2 <4 ses eee ee REFERENCES 
ON LINE 

insert _ptilo 10408 10519/M 10519/S 10519/S 10519/M 10519 10519 10519/S 10519 
105198 10519/M 10518/M 10519 10519 10519/S 10519/S 105S0/M 
10550/S 10550/8S 10550/M 10550 10550 10550/S 10550 10550 
1OS550/M 10550/M 10550 10550 10550/S 10550/S 10579/M 10879/S 
10579/S 1TOS7S/M 10579 10579 10578/S 105793 105793 10573 /M 
105793/M 10579 10579 10579/S 10579/S 

insert ptilo 10408 10519/M 10519/5S 10519/S 10519/M 10519 10519 10519/S 10519 
10519/M 10519/M 10519 10519/S 10513/5S 10550/M 10550/S 10550/S 
10550/M 10550 10550 10550/S 10550 10550/M 10550/M 10550 
10550/S 10550/S 10579/M 10579/5S 10579/S 10879/M 10578 10579 
10579/S 10579 10579/M 10579/M 10579 10579/S 105879/S8 

insert ptilo 10408 10519/M 105139/8S 10519/M 10519 10550/M 10550/S 10S50/M 10550 
10579/M 10579/S 10579/M 10579 

insert ptilo 108793 10925/M 10925/S 10825/S 10325/M 10925 10925 109825/S 10825 
10925 10925/M 10925/M 10825 10925 10925/S 10825/S 

insert _ptlo 10878 10825/M 10925/S 10825/S 109825/M 10925 10825 10925/S 103925 
10825/M 10925/M 10825 10825/S 10925/S8 

insert _ptilo 10879 10925/M 10925/S 10925/M 10925 

insert _ptilo 11095 11138/M 111398/S 11138/S 11139/M 11138 11138 11739/S 11139 
11139 11139/M 11138/M 11139 11139 11138/S 11139/S8 11151/M 
11151/8 11151/S8 11151/M 11151 11151 11151/S 11151 11151 
11151/M 11151/M 11151 11151 11151/S 11151/8 

insert _ptilo 11095 11139/M 11138/S 11139/S 11138/M 11139 11138 11138/S 11139 
11139/M 1113S8/M 111398 11139/S 11139/S 11151/M 11151/5S 11151/S 
11151/M 11151 11151 11157/S 11151 11151/M 11151/M 11151 
11151/S 11151/S 

insert_ptlo 11095 171139/M 11139/S 11139/M 11139 111751/M 11151/S 11151/M 11151 

integer _dp_sets 10430 10666 10668 10717 10719 10724 

interactive _ task _gtid 1310 7812 7827/M 10041/M 

iot$io_error 2175 1331 2141 

iot$transfer count 3031 3019 

jcb_identifier 2232 8460/M 

jcb_p 1155 8739 8739 8739 /P 8739/M &8744/M 3744 9744 9745/P 
S$746/M 10466 10466 10466/P 10466/M 10470/M 10471/M 10638/M 
10648 10681/M 10694 11114/M 11115/M 

jcb_p 8418 84539/M 8460/M 8461/M 8462/M 8463/M 8464/M 

jcb_p 8682 8754/M 8754 8754/M 8754/M 

jicb_p $284 $302/M 9303 $305/M $307/M 

icb_p 9358 8$368/M 9435 9437/M 94339/M 

jcb_p 9878 9887/M $888 9890/M $892/M 

jcb_p 10408 10530/M 10530 10530/M 10530/M 

jm 53984 8480 8654 8660 

jm 8417 8477/M 8480/M 8483 8488 

jm 8589 &8654/M 8660/M 8664/M 8668 8673 

jmc$batch. 1695 10271 

jmc$dc_maximum_service_limit 1478 10004 10030 10284 

jime$detached_job_wait _t ime_max 2275 2272 

jimc$dp_conversion 682 6693 6377 7013 7864 7866 7866 78398 78968 
7378 7379 8172 8172 8227 8227 84399 8499 
8630 8630 8739 8739 8733 8739 8739 8739 
8739 8738 87383 8738 8739 $406 3406 9417 
9479 $478 $528 $562 9623 $623 9647 9647 

ex REFERENCE ABBREVIATIONS M=modify, Azattribute, S=subscript, I:sI/0O ref, Reread, Wewrite, P:sparameter 


‘jmceS$iss 


REFERENCES OF tmm$dispatcher 


IDENTIFIER------- cietawe oeee es 
0 


jmce$dpb_absolute 
jmc$dpb_positive 
jmc$dsw_adjust_cpu_selections 
jmc$dsw_update_job_ task_enviro 
jmc$dsw_update_keypoint_masks 
jimc$highest det_job_wait_time 
jmc$highest_prio_age_interval 
imc$highest_service_accumulator 
jmc$highest_service_factor_valu 
jmc$highest_working set size 
jmc$ies_entry_ free 
jmc$ies_job_in_memory 
imc$ies_job_in_memory_non_swap 
jmc$ies_job_swapped 

jmc$ies_ job_terminating 
jmcS$ies_ swapin_candidate 
jmc$ies_swapin_in_progress 


jmc$inhibit xcb access 
executing 
idle_tasks_initiated 
Swapin_io_ complete 
jmc$iss_swapin_requested 
jimc$iss_swapout_ complete 
imc$iss_swapped_jio_cannot_init 
jmc$iss_swapped_no_io 


imcS$iss 
jmce$iss 


-jmcSkeyword of fset_maximum 


jmc$kjl_maximum_entries 
jmc$ko1l_maximum_entries 


dmc$ tock _ajl 


jmc$max_active_jobs 
jmc$max_ajl_ord 
imc$max_completed_ job count 
jmc$max_dispatching_ contro! 


“jmc$max_dispatching priority 


jmc$max_iji_index_count 
jmc$maximum_job_classes 
jmc$maximum_job_count 
jmc$maximum_output count 
jmc$maximum_service_ciasses 


jmc$S$min_dispatching_ control 


jmce$min_dispatching priority 


*x* 


REFERENCES OF tmm$dispatcher 


IDENTIFIER-------------------- D 
) 


. gmc$min_ecc 


imc$min_ecc_ sch 


jmc$null_ajl_ordinal 


- jmc$null_ dispatching priority 


jmc$null_service_ciass 


. dmc$prior_ subsystem_tbis_ locked 


jmc$prior_system_tbis_ locked 


imc$priority_aging_interval_max 
jmc$priority_pt1 
jimc$priority_p1o 
imc$priority p11 


» gmcSpriority pi2 
 symc$priority_pi3 


jmc$priority_p14 
imc$priority_pé& 


“igmce$priority p9 


imc$priority system_job 
jmc$required_ offset 
jmc$reserved_ajis 


‘jmc$service_accumulator_ maximum 


jimc$service_factor value _max 
jmec$sr_idie_dispatching 


_jme$sr_long_wait 


imcS$subsystem_priority_ change 
imc$swapping aj 


_.ime$system_default_offset 


‘jmc$system_supplied_name_size 


jimc$unlimited_offset 
jmec$unspecified_offset 


. imc$working_set_size_maximum 


jimeSnon_existent_ job 
impSassign_ajl_entry 


_ imp$assign_ajl_with_lock 


exe 


NOS/VE CYBIL/II 1.60 89102 
EFINED----cs-e eee eeee REFERENCES 
N LINE 
9694 $694 9694 
$3694 9694 3694 
9791 S797 $799 
10201 10201 10466 
10466 10466 10466 
10550 105793 10579 
10774 10774 10774 
10774 10774 10925 
2531 10177 
2531 10178 
14293 10237 
1428 10174 
1427 $460 9598 
2285 2275 2286 
26265 2617 2627 
1759 1760 
2650 2643 
2321 2312 2322 2324 
1534 7695 
1537 9332 10568 11431 
1536 8471/P 9372 10081/P 
1539 1548 91397 
1535 5694 7459 7505 
1544 7823 
1538 1547 5371 5372 
8471 10081 10081 
1592 5693 7459 7505 
1553 8465 
1554 1581 
1578 1582 
1575 1582 
1S74 1581 11031 
1565 1892 
1556 1591 
1776 2313 2618 
12171 1204 1205 1711 
1221 1206 
5471 5494 $495/P $497 
7489 7505/P 7505 
7598/P 7598 7664 
7698/P 7698 T7116 
1202 2599 2607 2608 
*203 1196 1202 4699 
6246 6239 
1489 1433 10280 10386 
684 644 647 648 
1251 4074 
1689 16932 
1218 1211 6224 
1228 1221 
1792 1795 
1488 1492 10027 10043 
685 4780 10187 10188 
REFERENCE ABBREVIATIONS Msmodify, Azattribute, 


NOS/VE CYBIL/II 


EF TNE De: s:c:2 oS 2 ees 2s REFERENCES 
N LINE 
4126 4127 
4134 4135 
4151 
4167 
4193 
4219 
4245 
4274 
4699 5698 
8450 
686 6602/S 
6776/S 
&8608/S 
9694 
10116/S 
10987/S 
1785 1786 
637 6919 
8172 
$406 
10201 
10579 
636 6923 
8172 
9406 
10201 
10879 
2617 2614 
698 645 
707 6293 
708 630 
709 631 
710 634 
711 646 
705 645 
706 637 
623 10028 
1774 2327 
1207 1202 
1751 1748 
2643 2640 
1805 $333/P 
1803 9310/P 
5426 7825/P 
5470 8427/P 
1775 1776 
2016 2013 
1772 1761 
1773 2325 
2312 2308 
4135 9976/P 
S460 8427 
5730 5688 


REFERENCE ABBREVIATIONS 


Memodify, 


1.0 89102 


4134 
4137 
4153 
4169 
4196 
4222 
4248 
4277 
S717 


6608/S 
8445/5 
8608/5 
3773 
10118/8 
109897/S 


6920 
8172 
$406 
10201 
10579 
6930 
8172 
9406 


9392 
8449/P 
2328 


2276 


S718 


4139 
4155 
4174 
4139 
4225 
42852 
4280 
7459 


6649 
8445/5 
8738 
$9391 
10323 
11086 


7866 
8227 
9479 
10488 
10925 
7866 
8227 
9479 
10483 
10925 


8739 
636 


$694 


$634 


8575/P 


2287 


7459 


Azattribute, 


9694 
3768 
9801 
10466 
10466 
10711 
1O774 
10925 


2326 


7539 


5375 
10081 
75393 


§698/P 
7539/P 
7668/P 
7716/P 


47589 


4780 


10281 


4141 
4157 
4178 
4202 
4228 
4255 


7505 


6651/S 
8544 
8741 
3994 
10327 
11086/S5 


7866 
8227 
9479 
10489/5S 
10925 
7866 
8227 
9479 
10484/S 
10925 


93694 
646 


3767 
$760 


2323 


7505 


Sesubscript, 


8694 
9774 
8804 
10466 
10466 
10713 
10774 
11139 


2328 


7577 


5376 
10081 
7S77 


56398 
7539 
7668 
7716 


10185 


10381 


S:subscript, I:I/0 ref, 


4143 
4159 
4181 
4206 
4231 
4259 


75383 


6652/S 

8544/S 

8741/8 
10031 
10466 
11086/S 


7898 
8499 
$623 
10519 
111393 
7898 
8499 
$623 
10519 
11138 


93767 


10466 
10466 


2628 


7539 


IsI/O ref, 


R=read, Wewrite, 


1889-08-21 13:33:34 
9694 9694 9694 
3780 3782 37390 
9807 9834 10198 

10466 10466 10466 
10518 10519 10550 
10715 10725 10774 
10774 10774 10774 
11139 11151 11151 
7668 7698 
8471 8471 8471 
7668 7698 
5718/P 5721 7459/P 
7577/P 7577 7598 
7685 7685/Pp 7685 
10186 
10400 

R=read, W:-write, 

1989-08-21 13:33:34 
4145 4147 4149 
4161 4163 4165 
4184 4187 41830 
42038 4213 4216 
4235 4238 4242 
4263 4267 4271 
7577 7668 7698 
6654/S 6656/5 6752/5 
8544/S 8544/Ss 8544/58 
8741/S 8741/5 8741/8 

10032 10113/S 10114/S 
10774/P 10774 109884 
11086/S 11086/5S 

7898 7979 7979 
8499 8630 8630 
9623 9647 9647 
10519 10550 10550 
111398 11151 11151 
7898 79379 7979 
8439 8E30 8630 
9623 9647 9647 
10518 10550 10550 
11139 11151 11151 
1046656 10774 

10774 

10774 

7577 7668 7638 


PAGE 


PAGE 


1166 


Pzparameter 


1167 


Psparameter 


REFERENCES OF tmm$dispatcher 


IDENTIFIER: --c----e-eee ceeere- “DEFINED 

ON LINE 
jmp$change_ijl_entry status 5357 
imp$decrement_swapped_job_count 5381 
jmp$free_ ajl_entry §473 
jmp$free_ajl_with_lock 5480 
imp$get_ijle_p. 5385 
jmp$increment_swapped_job_count 5396 
jmp$ lock_ajl_with_lock 5707 
jmp$ready_task_in_swapped_job 5400 
imp$set_job_terminated 5406 
jmp$set_ scheduler event 5413 
imp$set_Swapout_ candidate 5442 
jmp$subsystem_priority change 5449 
jmp$swap_non_dispatchable_ job 5455 
imp$unlock_ajl_with_lock $487 
imp$update_service_class_ stats 5506 
jimtS$active_job_list 4695 
jmt$active_job_list_entry 4687 
imt$aji_ordinal 1196 
jmtS$completed job _count_range 6239 
jmt$delayed_ swapin_work 1430 
jmt$detached_job_wait_time 2272 
imt$dispatching contro} 1459 
jmt$dispatching control index 1492 
imt$dispatching control_info 4302 
jimt$dispatching controls 1462 
jmt$dispatching priority 644 
jimt$dispatching priority set 4116 


xe 


REFERENCES OF tmm$dispatcher 


IDENTIFIER----c cee eee eee eee «--+°D 
0 


jmtS$idie_ dispatch controls 
imt$idie_ dispatching controls 
jmtS$idie_ dispatching entry 
jmt$ijil_block_index 
jmt$iji_block_ number 
jmt$ijl_dispatching_control 
jmt$ijil_entry status 
imt$Sijl_entry status statistics 
jmt$ijl_ordinal 


imt$iji_p 
jmt$ijl_page_fault_count 
jmt$iji_page_stats 
jimt$ijl_service_cilass_ stats 
jmt$ijil_statistics 
jimt$ijil_swap_count 
jimt$ijil_swap_counts 
imt$ijil_swap_status 
imt$ijile_size 
jmtS$initiated_job_list_block 
jmt$initiated job _list_entry 


jmtSinitiated_job_list_p 
jimtSinput_ file location 
jmt$job_abort_disposition 
imt$job_class 
jmt$job_class_ count 

jmt$ job_cilass_ counts 
jmt$job_control_biock 
jmt$ job_count_range 
jmt$job_counts 

jmt$ job_mode 
jmt$job_priority 

jmt$ job_recovery disposition 
jmt$ job_scheduier_ events 
jmt$ job_system_id 
jmt$kji_ index 


ees 


REFERENCE ABBREVIATIONS 


EFINED 
N LINE 


6184 
6178 
6186 
1247 
1246 
1448 
15834 
6203 
1241 


4062 
1608 
1602 
1596 
1641 
1617 
1612 
1552 
4086 
4073 
1263 


REFERENCE ABBREVIATIONS : Msmodify, 


NOS/VE CYBIL/II 1.60 88102 


eseeeee eee REFERENCES 


5380 8471 
5377 8471 
8575 

5495 7598 
5391 6612 
7809 7866 
8439 8445 
9458 9479 
10518 10550 
11026 11138 
5373 8471 
5698 5725 
7892 7310 
10913 

8576 

7825 

9310 

7844 

9335 

5500 7598 
8571 

6356 

4695 

1153 1267 
5491 5552 
7609 8416 
6233 

1297 1434 
2257 

2582 10268 
1449 1459 
agai 7799 
1460 9943 
1145 1279 
4116 4904 
7768 7797 
10955 

4787 4788 
6180 6693 
7864 7866 
7898 7979 
8172 8227 
8499 8630 
8739 8739 
8739 8738 
9417 9417 
9562 9562 
9647 9647 
9694 9694 
9694 9764 
9782 9782 
9834 9836 
10201 10466 
Mzmodify, 


NOS/VE CYBIL/II 


10466 
10519 
10579 
10725 
10774 
10774 
11139 
6181 
6173 
6184 
1243 
1242 
1280 
1266 
6196 
1172 
4689 
5461 
6308 
190226 
6357 
1603 
153968 
1301 
1300 
1613 
1320 
1269 
6358 
49079 
1173 
5358 
5481 
5708 
7475 
8184 
8357 
10311 
4063 
1726 
1724 
1325 
6228 
6218 
1155 
6215 
6209 
1282 
1322 
1725 
5413 
2243 
1268 


REFERENCES 


1.0 88102 


6228 


8418 


6216 


1323 


5437 


2291 


10081 
10081 


7685 
6966 
7898 
8499 
9596 
10550 
11146 
10081 
7459 
7372 


7685 


9796 
9860 
10466 


Azattribute, 


1271 


2246 
5386 
5507 
6865 
7569 
8776 
9499 
10426 


$284 
6217 


2591 


54393 


Azattribute, 


7716 
7458 
7959 
&608 
$623 
10579 
11151 
11051 
7505 
8166 


7716 


84493 
7503 
7978 
8630 
8647 
10636 


75393 
8253 


438s 
5713 
$323 


4452 
5106 
$093 


4816 
6979 
7866 
7379 
8227 
8630 
87393 
9406 
$479 
$623 
$694 
9694 
$768 
9803 
10198 
10466 


Szsubscript, I= 


10466 
10519 
10579 
10774 
10774 
10925 
11151 


7693 
7648 


6203 


2031 
4934 
5661 
6560 


4076 
5396 
5516 
6875 
7620 
8890 
9593 
10834 


9358 
6230 


2532 


10466 
10550 
10660 
10774 
10774 
10925 
11151 


7708 


6203 


2032 
4390 
5678 
6569 


4690 
5401 
5522 
7071 
7650 
3092 
s945 
10888 


9878 
6231 


2533 


Setsubscript, I: 


1989-0 


7537 
8140 
8837 
9968 
106795 


7TS77 
8617 


5443 
8735 
8350 


1464 
6184 
9755 


4817 
7013 
7898 
8172 
84399 
8739 
8735 
9406 
9479 
9623 
$694 
$694 
$768 
$806 
10201 
10466 


1/0 ref, 


1989-90 


10466 
10550 
10710 
10774 
10774 
11139 


2094 
§385 
5709 
7621 


4830 
5408 
5542 
7183 
7798 
9221 
10158 
10974 


6232 


2594 


I/O ref, 


8-21 


7575 
8172 
$196 
10201 
10906 


7668 
10550 


5456 
6360 
9447 


R=read, W 


8-21 


10466 
10550 
10712 
10774 
10774 
11139 


2133 
5400 
$732 
8413 


§235 
5450 
S660 
72932 
7951 
9285 
10225 
11069 


6251 


13:33:34 PAGE 1168 


7665 
8227 
9406 
10512 
10925 


7638 
10583 


5464 
6360 


zwrite, Pzparameter 


13:33:34 PAGE 1169 


10466 
10550 
10714 
10774 
10774 
11139 


2247 
5407 
§992 
10159 


6252 


Reread, Wswrite, P:parameter 


REFERENCES OF tmm$dispatcher 


IDENTIFIER s+ cer errr rr et te eee D 
oO 
jmt$maximum_act ive_jobs 
jimt$mtr_serv_class_stat_entry 
imt$priority_aging interval 
jimt$queue file_ijl_information 
jmt$sc_cp_stat 
jmt$sc_pf_stat 
jmt$sc_swap_count 
imt$sc_swap_stat 
imt$scheduling data 
jmt$scheduling priority 
jimt$service_accumulator 
jmt$service_cilass_attributes 
jmt$service ciass_count 
_jmt$service_ciass_ counts 
jmt$service_class_cp_time 
jmt$service_class_entry 
jmt$service_ class _ index 
‘jmt$service ciass_ name 
jmtS$service_class_ page_faults 
jmtSservice_ciass_swap_stats 
~jmt$service_factor value 
imt$service_factors 
jmt$swap_data 
jmtS$swapout_ reasons 
jmt$swapped_job_entry 
jmtSsystem_supplied_nmame 
jmt$task_time_slice 
.jmt$time_slice_values 
jmt$user_ dispatching pri-- ity 
jmt$user_ supplied name 
jmt$working set size 
jmtr_ptio 
jmtr_taskid 
jimv$aji_p 


jmv$idie_ dispatching controls 


jmv$ijl_entry_status_ statistics 
imv$Sijl_p 


jmv$ job_counts 
imv$null_ijl_ordina?) 
imv$service_ classes 


KKK 


REFERENCES OF tmm$dispatcher 


IDENTIFIER---------- were eee eee D 
0 


jmv$subsystem_priority changes 
Imv$swap_jobs_in_long_wait 
imv$system_ajil_ordinal 


jmv$system_ijil_ordinal 
job_cptime 

job_fixed asid 

job _fixed contiguous pages 
jJOb_iS_good swap_candidate 
job_mode 

job_monitor_id 
job_monitor_taskid 


job_schedulier data 


job _segnum 

jsc$isqi_null 
jsc$isqi_swapped_io_completed 
jscSisqi_swapped_io_not_init 
jisc$isqi_swapped_out 
jisc$min_ecc 

jsc$min_ecc_js 


jse$ job_execut ing _non_swappable 
jse$unable_to_idle_alil_tasks 
isp$idle tasks_compiete 
‘jsp$long wait_aging 
jisp$relink_swap_queue 
jst$changed_asid_entry 
jstSijl_swap_queue_id 
istS$ijl_swap_queue_link 
jst$io_control_information 
jist$swap_fiile_ descriptor 
“jstSswapped_page_descriptor 
jistS$swapped_page_descriptors 


keypoint enable 

keypoint mask 

keypoint register enable 
ktt ; 


last_execution_time 
last_ipid_for_job 
last _lpid for_task 
last_ptilo 

Tast_ptilo 

length 


KEX 


EFINED 
N LINE 
2598 
6268 
2614 
1723 
62396 
62397 
6299 


6173 


6196 
6357 


6209 
6308 
6257 


REFERENCE ABBREVIATIONS 


EFINEDO 
N LINE 


6314 
6359 
6360 


6361 
4870 
1276 
1302 
4691 
1282 
2245 
1281 


1291 


8411 
2035 
2036 
2035 
2036 
4290 
4291 


4312 
4303 
5511 
5516 
5521 
2081 
2035 
2029 
2043 
2057 
2066 
2063 


2552 
3121 
2553 
8402 


2249 
2237 
2512 
7333 
8682 
5601 


REFERENCE ABBREVIATIONS 


NOS/VE CYBIL/II 


NOS/VE CYBIL/II 


-REFERENCES 


10519 
7824/M 
9227 
7660 
$596/S 
7661 
9929/M 
5698/P 
8467/M 
7896/M 

10271 
8461/M 
7369/S 
8635/5 
9508 
6884/S 
8499/S 
$198/S 
§$206/M 


6621/M 
8488/M 
6622/M 
8473/M 


8462/M 
8744/M 
10869/M 
7398/M 
8742/M 
5608 


Msmodify, 


1.0 89102 


10550 


9287 
7663/S 
9612 
7665/P 


5718/P 
8226/M 


8739 /P 
7370/8 
8742 

$602 

7824/S 
8504/5 
9199/M 
9206 

10201/S 
10579/S 
8427/S8 


4297 
4321 


9433/P 
9894 
$238 


§523 


8445/M 
8673/M 
8445/M 
8474 


10471/M 

10470/M 

10642 
7406/M 
&8742/M 
5611/M 


1.0 89102 
“REFERENCES 

2576 

6264 

2584 

1307 

6275 6276 

6280 6281 6282 
6286 6287 6291 
6288 6289 6290 
1291 

2583 

1315 1316 1317 
6263 9094 

6249 

6219 

6269 

6258 

1326 2567 2577 
2569 2570 

6270 

6271 

2578 

2578 

1293 

1321 S444 9351 
1338 2059 2266 
1264 2241 4890 
1482 14832 

1466 2543 6879 
4800 

2242 

2253 2254 
1TO98S3/M 11014 11015/S 
8445/P 8454 8461 
5494 5497/M 5497 
7459 7505/M 7505 
7598/M 7598 7663/M 
7685/M 7685 7698/M 
8226/M 8438 9231 
9461/P 9503 §9596/P 
8739 /M 8739 9694/M 
1O0774/M 10774 

5366/M 5367 8471/™M 
5389 6612 6966 
7691 7692 7694 
8140 8172 8227 
8837 9196 9406 
S969 10201 10512 
10679 10906 10925 
8504/M 8505 8549/M 
8846/P 8923/P 10207/P 
6884 7866 7898 
8624 8630 9198 
10056 10193 10201 
Mzemodify, Azattribute, 


10879 


7663/S 
S636 
8619 


7459/P 
10550/M 


8745/P 
7339 


8493/P 


&300 
4324 


9543/P 
10530 


&8608/M 


8481/M 
8475 


11115/M 

10648 

10687 
740T/S 
&8742/Ss 
S611 


Arattribute, 


6293 
6292 


2574 


6249 


§991 


11016/S 
8470 
5698/M 
7539/M 
7663 
7698 
$291 

10550/M 
9694 


8471 
7458 
7809 
8439 
9458 
105193 
190993 
8550 
10243/P 
7979 
9406 
10277 


Stsubscript, 


10925 


$227 

9599/P 

7505/P 
10918/M 


10466/P 
7666 
$232 

10530 
7898/8 
8549/5 
3202 
9479/5 

10323/S 

11045 


4303 
4327 


$577/P 


8650/M 


8608/M 


10694 

11113/M 
7410/8 
8742/S8 


S=subscr ipt, 


2575 


6258 


8499/P 
5698 
7539 
7666 
7716 
$331 
10918/M 
9798/M 


10081/M 
7503 
7866 
8445 
9479 

10550 

11026 

11046/M 

11033 
8172 
94793 

103295 


I=1/0 


1989-08-21 


11110 11139 
9287 9503/S 
7539/P 7577/P 
7674 7701 
9295 $380 
10994 11075 
7379/8 8172/58 
8551/58 8620/M 
$202 §$203/M 
9623/S 9647/S 
10336/S 10373/S 
11110/S 11139/S 
4306 43093 
8650 8658 
8655/M 8661/M 
11114/M 
IsI/0O ref, 


1989-08-21 13:33:34 
6314 10976 
5721/M 5721 7459/M 
7577/M 7577 7598 
7668/M 7668 7685 
7716/M 7716 7896/M 
9366 $372 9458/P 
$798 10466/M 10466 
10081 
7537 7575 7665 
7898 7959 7379 
8499 8608 8630 
9596 9623 9647 
10550 10578 10636 
11139 11146 11151 
11046 
11034 
8227 8496 84ag9g 
$9623 9647 10044 
10336 10373 10496 
ref, Rtread, W-ewrite, 


13:33:34 
11151 
gs515 9549 
7668/P 7698/P 
8470/M 8635/S 
$3397 9464 
8227/8 8496/S 
8624/S 8630/58 
$203 $205 
10045/S 10056/S 
10496/S 105139/S 
11151/8 
4312 4315 
86S5/M 10608093 


Reread, Wewrite, 


PAGE 


PAGE 


1170 


P=parameter 


11771 


P=parameter 


REFERENCES OF tmm$dispatcher NOS/VE CYBIL/II 1.0 89102 1989-08-21 


13:33:34 PAGE 1172 


IDENTIFIER--+ eee ee eee ee eee ene DEFINED----+- +s +e-22ee26 REFERENCES 
ON LINE 

length 9936 16106 10106/M 10106 

local set S660 66S84/M 6694/M 6694 6694 6694 6694/M 66S4/M 6694 
6694 6694/M 6694 6694 6694/M 6694 6694 66S4 
6694 

local_set 6863 6973/M 6979 /M 69378 6878 6979 69373/M 6373/M 6973 
69379 6979/M 69793 6979 6979 /M 6979 6879 6379 
6979 7014/M 7TO14/M 7014 7014 7014 7014/M 7014/M 
7014 7014 7014/M 7014 7014 7014/M 7014 7014 
7014 7014 

local_set 7766 7864/M 7864/M 7864 7864 7864 7864/M 7864/M 7864 
7864 7864/M 7864 7864 7864/M 7864 7864 7864 
7864 7866/M 7866/M 7866 7866 7866 7866/M T866/M 
7866 7866 7866/M 7866 7866 7866/M 7866 7866 
7866 7866 7866/M 7866/M 7866 7866 7866 7866/M 
7866/M 7866 7866 7866/M 7866 7866 7866/M 7866 
7866 7866 7866 7898/M 7898/M 7898 7838 7898 
7898/M 7898/M 7898 7898 7898/M 7898 7898 7898/M 
7898 7898 7898 7898 78938/M 7898/M 78398 7898 
7898 7898/M 7898/M 7898 7838 78938/M 7898 7898 
7898/M 7898 7898 7898 7898 

local _set 7932 7973/M 7979/M 7979 7979 7979 7973 /M 7979/M 73793 
7373 7379 /M 7978 7373 7979 /M 7979 7379 7379 
7973 7979/M 79373 /M 7379 7379 7979 7379/M 7373/M 
7979 7979 7979/M 79373 7973 7379/M 7979 79379 
79795 7979 

local_set 8110 &8172/M 8172/M 8172 8172 8172 8172/M 8172/M 8172 
8172 8172/M 8172 8172 8172/M 8172 8172 8172 
8172 8172/M 8172/M 8172 8172 8172 8172/M 8172/M 
8172 8172 8172/M 8172 8172 8172/M 8172 8172 
8172 8172 

local_set 8182 8227/M 8227/M 8227 8227 8227 8227/M 8227/M 8227 
8227 8227/M 8227 8227 8227/M 8227 8227 8227 
8227 8227/M 8227/M 8227 8227 8227 &8227/M &8227/M 
8227 8227 8227/M 8227 8227 8227/M 8227 8227 
8227 8227 

local_set 8381 8499/M 8493S /M 8499 8499 8499 8499/M 843939/M 8439 
8439 8499/M s4s9g 8439 84993/M 8499 8499 8499 
84s9 8499/M 84399 /M 8499 8499 8499 8433/M 8499/M 
8499 8499 8439/M 8499 8439 8499/M 84sg9 843993 
84ag9g 8499 

local _set 8581 8630/M 8630/M 8630 8630 8630 8630/M 8630/M 8630 
8630 8630/M 8630 — 8630 8630/M 8630 8630 8630 
8630 8630/M 8&630/M 8630 8630 8630 8630/M 8630/M 
8630 8630 8630/M 8630 8630 8630/M 8630 8630 
8630 8630 

tecal_ set 8682 87335/M &8739/M 8739 8733 8733 8739/M 8739/M 8739 
8739 87339 /M 8739 8739 8739 /M 8739 8739 8739 
8739 87339 /M 87339/M 8733 8739 8739 8733/M 8739/M 
87393 8739 8733/M 8739 8739 8739/M 8738 8739 
8739 8739 8739 /M 8739 /M 8739 8739 87393 8739 /M 
8739 /M 8739 &8739 8739 /M 8739 87393 8739/M 8739 
8739 8739 8739 

local_set 8682 8739/M 8739/M &739 8733 8739/M 8739 /M 8739 8739 

* et REFERENCE ABBREVIATIONS Mzemodify, Arzattribute, =subscript, I21/0 ref, Rtread, Wewrite, Psparameter 
e 
REFERENCES OF tmm$dispatcher NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 1173 
EIDENTIFIER--- cet eet tee eet ee ene DEFINED---*--+e2- eee e2-5 REFERENCES 
ON LINE 

8733/M 8739 8739 8739 /M 8739 87393 8739 8739 
8739/M 8733 /M 87398 8733S 8739/M 8739 /M 8739 87393 
8739/M 8739 8739 8739/M 8739 8733 8739 8739 
8739/M 8739 /M 8739 8739 8739/M 8739 /M 87393 8733 
8739 /M 8739 8739 8739 /M 8739 8739 8739 87393 

local set 9349 9406/M 9406/M 9406 9406 9406 $406/M S406/M 9406 
9406 9406/M 9406 9406 8406/M S406 9406 9406 
9406 9406/M 9406/M 9406 9406 9406 9406/M 9406/M 
9406 9406 9406/M 9406 9406 S406/M 9406 9406 
9406 9406 9417/M 9417/M 9417 9417 9417 9417/M 
9417/M 9417 9417 9417/™M 9417 9417 9417/M 9417 
9417 9417 9417 

local, set 9446 9479 /M 9479 /M 9479 9479 9479 9479/M 9473/M 9479 
9479 9479/M 9479 9479 $473/M 9479 9479 9479 
9473 9479/M 9479 /M 9479 9478 9479 §8479/M 9479/M 
9479 9479 9479/M 94793 9479 9479 /M $4793 $4793 
9479 9479 

local set 9491 9528/M 9528/M $528 $528 9528 9528/M §528/M $528 
9528 9528/M $528 9528 §$528/M 9528 $528 9528 
9528 9562/M 9562/M 9562 9562 9562 9562/M 9562/M 
$562 9562 §9562/M $562 9562 8562/M $562 $562 
9562 $562 

local, set 9584 §623/M 8623/M 9623 9623 9623 $623/M §623/M 9623 
$623 §623/M $623 $623 9623/M 9623 8623 9623 
9623 §9623/M 9623/M 9623 $623 $623 9623/M 9623/M 
$623 $623 9623/M 9623 S623 9623/M $623 9623 
$623 $8623 9647/M 9647/M $647 9647 9647 8647/M 
$8647/M 9647 9647 $647/M 9647 9647 8647/M $647 
9647 9647 $647 9647/M 9647/M $647 9647 9647 
93647/M 9647/M 9647 9647 9647/M 9647 9647 9647/M 
9647 $9647 9647 9647 

local_set 9661 8$694/M 9694/M $694 9694 $694 9694/M $694/M 9694 
9694 9694/M 9694 9694 9694/M 9694 9694 $694 
$694 s694/M S694/M 9694 9694 9694 9694/M 9694/M 
9694 9694 8694/M 9694 9694 83694/M 9694 $6394 
9694 9694 8694/M 9694/M $694 9694 $694 §9694/M 
9694/M 9694 98694 9694/M $694 9694 9694/M 9694 
$694 8694 9694 

local_set 9661 $694/M 9694/M ssgs4 9694 §9694/M 8694/M $9694 9694 
9694/™M 9694 s694 9694/M 9694 9694 9684 $694 
$694/M 9694/M 9694 9694 9694/M 9694/M 9694 9694 
9694/M 9694 9694 96954/M 9694 9694 9694 9694 
9694/M 9694/M 9694 9694 9694/M 9694/M 9694 9694 
9694/M 8694 $694 96934/M $694 96934 9694 9694 

local_set 3753 3766/M S766/M S765 9766 9766 $766/M S766/M S766 
S766 9766/M S766 9766 9766/M $766 $766 $766 
9766 9781/M 9781/M $781 $781 9781 9781/M 9781/M 
$781 93781 s781/M $781 $781 $781/M $781 9781 
$781 9781 §8806/M 9806/M 9806 $806 S806 S806/M 
S806/M 9806 $806 9806/M 98056 $806 $806/M 8806 
$8806 8806 S806 

lecal_ set $753 8$768/M 9768/M 9768 S768 3768/M 8768/M $768 9768 
9768/M S768 9768 8768/M s768 $768 $768 $3768 

KE REFERENCE ABBREVIATIONS Memodify, Asattribute, S=subscript, I:1/0 ref, Reread, Wewrite, P=parameter 


REFERENCES OF tmm$dispatcher NOS/VE CYBIL/II 1.0 89102 
IDENTIFIER--------- eer eee eee ee DEFINED------------+---- REFERENCES 
ON LINE 
9782/M 9782/M 
9782/M $782 
9807/M 9807/M 
9807/M 9807 
lecal_set 9830 9832/M §9834/M 
$838/M 9838 
lecal_set 9855 9857/M 9858/M 
9861 9862/M 
9866 
local_set 10157 10188/M 10198/M 
10198 10198/M 
10198 10201/M 
10201 10201 
10201 10201 
10201/M 10201 
10201 10201 
local_set 10408 10466/M 10466/M 
10466 10466/M 
10466 10466/M 
10466 10466 
10466 10466 
10466/M 10466 
10466 10466 
10519/M 10519/M 
10519 10519 
10519 10519/M 
10518/M 10519 
10550 10550 
10550 10550/M 
; 10550 10550 
10550 10550 
10579/M 10579 
10579/M 10579 
10579/M 10579/M 
10573 105793/M 
10579 10725/M 
10725 10725 
10725 10725 
107748/M 10774 
10774 10774 
10774/M 10774/M 
10774 10774 
10774 10774/M 
10774/M 10774 
jeocal_set 10408 1048686/M 10466/M 
10466/M 10466 
10466/M 10466/M 
10466/M 10466 
10466/M 10466/M 
10Q866/M 10466 
10774/M 10774/M 
10774/M 10774 
10774/M 10774/M 
*** REFERENCE ABBREVIATIONS Mzemodify, 


REFERENCES OF tmm$dispatcher 


IDENTIFIER--cc cc rte ett et et eee ee DEFINED-+-+-2 ee eee eee eee REFERENCES 
ON LINE 

10774/M 

10774/M 

10774/M 

focal set 10423 10657/M 
10661 
10666 

local_set 10879 109325/M 
10925 
10925 
10925 
10925 

local_set 11085 11139/M 
11139 
11139 
11139 
111393 

11151/M 
11151 

11151/M 
11151 
lock 5286 52935 
lock 5327 5340 
lock 6421 6429 
lock 6444 6447 
lock 6464 64390 
lock 6464 6494 
6502 
tock 7416 T4500 
_ Teck 7416 7454 
7466 
lock T4872 7501 
-- tock 7472 7512 
lock 7517 7528s 
lock 7517 7547 
lock 7562 7573 
- lock 7562 7599 
lock 7618 7653 
Tock 7618 7725 
_) lock 7730 7748 
lock 7730 7757 
lock 7766 7806 
Jock 7766 7927 
- 1leck 7332 7956 
lock 7932 7983 
lock 8011 8017 
tock 8011 8603938 
lock 8044 8070 
lock 8044 8104 
lock 8110 8134 
-18Ck 8110 8176 
lock 8182 8222 
lock 8258 8265 
8259 8270 


s lock 


*** REFERENCE ABBREVIATIONS 


NOS/VE CYBIL/II 


Mesmodify, 


1.0 89102 


3782 
$782 
$807 
9807 
9835 
9838 
9858 
9862 


10198 
10198 
10201/M 
10201/M 
10201/M 
10201 
10201 
10466 
10465 
10466/M 
10466/M 
10466/M 
10466 
10466 
10519 
10519 
10519/M 
10519 
10550/M 
10550 
10550 
10550/M 
10579 
10579 
10579 
10579 
10725/M 
10725/M 
10774/M 
10774 
10774 
10774 
10774 
10774/M 
10774 
10466 
10466 
10466 
10466 
10466 
10466 
10774 
10774 
10774 


Azsattribute, 


10774 
10774 
10774 
10658 
10662 
10710 
10925 
10925 
10925/M 
10925/M 


1139 
1139 
1139/M 
1139/M 
1151/M 
1151 
1151 
1151 
1151 


ee ee ee ee ee) 


6433/M 
6451/M 
6490/M 
6494/M 


7450/M 
7454/M 


7501/M 
7512/M 
7523 /M 
7547/™M 
7573/M 
7599/M 
7653/M 
7725/M 
7748/™M 
7757/M 
7806/M 
7927/M 
7956/M 
7883/M 
8017/M 
8039/M 
8070/M 
8104/M 
8134/M 
8176/M 


8265/M 
8270/M 


Asattribute, 


9782 
9782/M 
9807 
3807/M 
$8835 
9839/M 
9858 
8862 


10198 
10198 
10201 
10201 
10201/M 
10201/M 


10466 
10466 
10466 
10466 
10466/M 
10466/M 
10513/M 
10519 
10519 
10519 
10519 
10550/M 
10550 
10550/M 
10550 
10579 
10579/M 
10579 
10579 
10725 
10725 
10774/M 
10774/M 
10774/M 
10774 
10774 
10774 
10774 
10466 
10466/M 
10466 
1O0466/M 
10466 
10466/M 
10774 
10774/M 
10774 


S=subscript, 


10774/M 
10774 
10774/M 
10658 
10662 
10712/M 
10925 
10325 
10925 
10925 


6435/M 
6451 
6490/M 
6494 


7450/M 
7454 


7501/M 
7512 
7523 /M 
7547 
7573/M 
7593 
7653/M 
7725 
7748/M 
7757 
7806/M 


&8265/M 
8270 


S=subscript, 


$782/M 
93782 
9807/M 
9807 
9836/M 
9839 
9859 
9863/M 


10198 
10198/M 
10201 
10201 
10201 
10201 


10466 
10466/M 
10466 
10466 
10466 
10466 
10519/M 
10519/M 
10519/M 
10518 
10518 
10550 
10550 
10550/M 
10550 
10579/M 
10579 
10579 
10579/M 
10725 
10725 
10774 
10774 
10774/M 
10774/M 
10774/M 
10774 
10774 
10466/M 
10466 
10466/M 
10466 
10466/M 
10466 
10774/M 
10774 
10774/M 


10774 
10774/M 
1O774 
10659 
10663/M 
10712 


6494/M 


T4580 
7454/M 


7501 
7512/M 
75293 
7547/M 
7573 
7539/M 
7653 
7725/M 
7748 
7757/™M 


8176/M 


8265 
8270/M 


Is] /o 


sI/0O ref, 


1989-08-21 


10774 
10774/M 
10774 
10660/M 
10663 
10714/M 
10925/M 
10925 
10825 
10825/M 


6502 


7466 


1989-08-21 13:33:34 
9782/M 9782 9782 
9782 $782 $782 
9807/M 9807 9807 
9807 3807 $807 
9$837/M 9837 9837 
9839 9840 9841 
S8860/M 9861/M 9861 
$863 9863 9864 

10198/M 1013838/M 10198 
10198 10198 10198 
10201 10201/M 10201/M 
10201/M 10201 10201 
10201 10201 10201/M 
10201 10201/M 10201 
10466/M 10466/M 10466 
10466 10466 10466 
10466 10466/M 10466/M 
10466/M 10466 10466 
10466 10466 10466/M 
10466 10466/M 10466 
10519 10519 10513 
10519 10518 10519/M 
10519/M 10519 10519 
10519/M 10519 10519 
10550/M 10550/M 10550 
10550 10550/M 10550 
10550 10550/M 10550/M 
10550 10550 10SS50/M 
10550 10550 1057383/M 
10579 /M 10579 10579 
10579 10579 10579 
10573/M 10579/M 10579 
10579 10579 10579 
10725 10725/M 10725/M 
10725/M 10725 10725 
10774 10774 1O0774/M 
10774 10774/M 10774 
10774 10774 10774 
10774 10774 10774/M 
10774/M 10774 10774 
10774/M 10774 10774 
10466/M 10466 10466 
10466 10466 10466 
10466/M 10466 10466 
10466 10466 10466 
10466/M 10466 10466 
10466 10466 10466 
10774/M 10774 10774 
10774 10774 10774 
10774/M 10774 10774 
ref, R:sread, 


13:33:34 
10774 10774 
10774 10774 
10774 10774 
10661/M 10661 
10663 10664 
10714 10717 
10925/M 10825 
10925 10925 
1038325/M 10825/M 
10925 10925 
11139/M 11139 
111398 111383 
11139/M 11139/M 
11139 11139 
111571 11151/M 
11151/M 11151 
11151 11151 
11151 11151/M 

6502 6502/M 
7466 7466/M 


Reread, Wewrite, 


PAGE 


PAGE 


1174 


W=write, P:parameter 


1175 


P=parameter 


REFERENCES OF tmm$dispatcher NOS/VE CYBIL/II 1.60 891062 1989-08-21 13:33:34 PAGE 1176 
IDENTIFIER-*-<*+ er eee ene cer ee DEFINED-- 7 ere eee5 er --REFERENCES 
ON LINE 

lock 8276 8282 8282 8282/M &8282/M 8282 

lock 8276 8282 82392 82832/M 82382 &8292/M 

Tock 8381 8444 8444 8444/M 8444/M 8444 

lock 8381 8451 8451 8451/M 8451 8451/M 8508 &S08 8508/M 
8508 8508/M 

lock 8513 8532 8532 8532/M 8532/M 8532 

Tock 8513 8553 8553 8553/M 8553 8553/M 

lock 8581 8607 8607 8607/M 8607/M 8607 

lock 8581 8610 8610 8610/M 8610 8610/M 8677 8677 8677/M 
8677 8677/M 

lock 8682 8727 8727 8727/M 8727/M 8727 

lock 8682 8756 8756 8756/M 8756 8756/M 

lock &8770 8783 8783 &8&783/M 8783/M 8783 

lock 8770 8870 8870 8870/M 8870 8870/M 

lock 8875 8897 8887 88937/M 8897/M 88397 

lock 8875 8961 8961 8961/M 8961 8961/M 

lock 8966 9004 9004 s004/M 9004/M 9004 

lock 8366 9010 9010 9010/M 9010 9010/M 96028 9028 $028/M 
9028 9028/M $048 9048 96048/M $048 9048/M 

Teck 9057 9100 9100 9100/M $100/M $100 

lock 9057 9104 9104 8104/M 9104 $104/M 9211 $211 9211/M 
9211 §9211/M 

lock 9217 9247 9247 9247/M $247/M 8247 

lock 9217 9250 $250 9250/M $250 $250/M 9257 9257 $257/M 
$257 9257/M $271 $271 8$271/M $271 $271/M 

lock $322 $329 9329 $329 /M 9329/M $9329 

jock 9322 93393 $339 §8339/M $3393 9339/M 

lock 9446 S469 9469 9469/M S469/M $4693 

lock 9446. $486 9486 8486/M $486 9486/M 

lock 9491 9504 9504 9504/M 3504/M 9504 

lock 9491 9539 $539 §539/M gs5393 9539/M $573 9573 9573/M 
$573 9573/M 

lock 9584 960607 $607 9607/M S607/M $607 

lock 9584 9631 $631 9631/M 9631 §9631/M 9655 9655 S655/M 
9655 S655/M 

lock $9336 $951 9951 $951/M §9951/M $951 

lock sg336 9975 9975 3975/M $975 §$375/M 10137 10137 10137/M 
10137 1O137/M 10141 10141 101481/M 10141 10141/M 

lock 10157 10170 10170 10170/M 10170/M 10170 

lock 10187 10210 10210 10210/M 10210 10210/M 

lock 10224 10233 10233 10233/M 10233/M 10233 

lock 10224 10246 10246 10246/M 10246 10246/M 

lock 10408 10461 10461 10461/M 10461/M 10461 105933 10593 105383/M 
10583/M 10593 

lock 10408 10523 10523 10523/M 10523 10523/M 10589 10583 10589/M 
10589 10589 /M 10820 160820 10820/M 10820 10820/M 

jock 10964 10981 10981 10981/M 10881/M 10981 

lock 10964 10988 10888 10888/M 10988 10988/M 11022 119022 11022/M 
11022 11022/M 

lack 11095 11107 11107 11107/M 11107/M 11107 

lock 11095 11155 11155 11155/M 11155 17155/M 

locked 4034 5295 5340 8222 8232 

locked 4737 5671 6431 6480 7450 7501 7529 7573 7653 

xe REFERENCE ABBREVIATIONS Memodify, Atattribute, S=subscript, I2I1/O ref, Reread, Wewrite, Psparameter 
REFERENCES OF tmm$dispatcher NOS/VE CYBIL/II 1.0 89102 1889-08-21 13:33:34 PAGE 1177 
IDENTIFIER+--- ere reer te et te eee DEFINED-------+2e-- 22 --- REFERENCES 
ON LINE 

7748 7806 7956 8017 8070 8134 8265 8282 
8444 8532 8607 &727 8783 8897 9004 9100 
9247 9329 s469 9504 $607 $951 10170 10233 
10461 105383 10981 11107 

locked dp_integer 190424 10484/M 10489/M 10521 

long wait aging complete 1277 7926/M 9140 9145/M 9237 9239/M 10550/M 10914/M 

Tow_prio_csti 6877 6843/M 6952/M 6959 6960/S 6365/S 6972/S 6973/58 6874/S 
6975/S 6382/S 6987/S 6988/S 6930/5 6993 6994/S 68s95/S 

low prio _csti 7766 7866/M 7866/M 7866 7866/S 7866/S 7866/S 7866/S 7866/S 
7866/S 7866/S 7866/5 7866/S 7866/S 7866 7866/S 7866/S 
7898/M 7898/M 7898 7838/8 7898/S 7898/S 7898/S 7898/58 
7898/S 7898/S 7838/5 7898/S 7898/S 7888 7898/S 7898/S 

low _prio_csti 7932 7379/M 73979 /M 7979 7979/8 7979/S 7979/8 7879/S 7979/S 
7379/8 7979/S 7979/8 7379/8 7373/8 7979 7973/8 7873/S 

low_prio_csti 8110 8172/M 8172/M 8172 8172/S 8172/S 8172/8 8172/5 8172/8 
8172/8 8172/8 8172/S 8172/58 8172/S 8172 8172/8 8172/8 

Tow _prio_csti 8182 8227/M 8227/M 8227 8227/S 8227/8 8227/58 8227/8 8227/8 
8227/S 8227/5 8227/58 8227/S 8227/S 8227 8227/8 8227/8 

tow _prio_csti 8381 8499/M 8499/M 8499 8499/S 84939/S 8499/5 8499/S 8499/S 
8439/S 843939/S5 8439/5 8499/5 8499/5 8499 s8499/S 8499/S 

low prio csti 8581 8E30/M 8630/M 8630 8630/S 8630/S 8630/S 8630/S 8630/S 
8630/58 8630/S 8630/S 8630/8 8630/S 8630 8630/5 8630/S 

low _prio_ csti 9349 9406/M 9406/M 8406 9406/S 9406/S $406/S 9406/5 9406/S 
9406/S 9406/S 9406/S 9$406/S 9406/58 S406 9406/5 9406/5 

Tow _prio_csti S446 $4739/M 94739 /M $479 9473/58 9479/S $479/S 9479/S 9479/Ss 
9473/S 9479/8 9479/S 9$479/S 9479/S 9473 9479/S 9479/S 

low_prio_csti 9584 §$623/M 9623/M $623 9623/S $623/S §623/S 9623/S 9623/S 
9623/58 $623/S 9623/S 9623/5 8623/S 9623 9623/S_ 9623/S 
§9647/M 9647/M 9647 9647/S 9647/S 8647/S 9647/S 9647/S 
8647/S $647/Ss 9647/S 9647/S 9647/S 9647 $647/S 8647/S 

low_prio_csti 10157 10201/M 10201/M 10201 10201/S 10201/S 10201/S 10201/S 10201/S 
10201/S 10201/S 10201/S 10201/S5 10201/S 10201 10201/5S 10201/S 

low prio _csti 10408 10519/M 10513/M 105193 10513/S 10519/S 10519/S 10519/5S 10519/S 
10519/S 10519/S8S 10519/S 10519/S 10519/S 10519 10513/S 10519/S 
10550/M 10550/M 10550 10550/S 10550/S 10550/S 10550/5 10550/S 
10550/S 10550/S 105850/S 10550/S 10550/S 10550 10550/5 10550/S 
10579/M 10573/M 10579 10579/5 105739/S 10579/S 10579/5S 10573/S8 
10579/S 105793/S 10573/8 105739/S 10579/8S 10579 10579/S 108739/S 

low _prio_csti 10879 10925/M 10925/M 10925 10925/S 10925/S 10925/S 10925/S 10925/S 
109825/S 10825/S 10925/S 10825/S 10925/S 10925 10825/S 10925/S 

low_prio_csti 11095 11139/M 11139/M 11139 11139/S8S 11139/S 11139/S 11139/8S 11139/S 
11139/S 11133/S 111383/8S 11139/8 11139/S 11139 11139/S 11139/S8 
11151/M 11151/M 41151 11151/8s 11151/S 11151/S 11151/S 11151/S 
11151/S 11151/8S 11151/S 1118531/S8S 11151/S 11151 11151/8 11151/8 

Tow _priority 6876 6940/M 6947 6953/M 6956 6393 

low_priority 7766 7866/M 7866 7866/M 7866 7866 7898/M 7898 7898/M 
7838 7898 

low_priority 7332 79739/M 7973 79379/M 79793 7979 

low priority 81190 8172/M 8172 8172/M 8172 8172 

low priority 8182 8227/M 8227 8227/M 8227 8227 

low _ priority 8381 8499/M gags 8499/M 8499 84g9 

low priority 8S81 8630/M 86306 &8630/M 8630 8630 

low _ priority 9349 S406/M S406 9406/M 9406 $406 

* REFERENCE ABBREVIATIONS Memodify, Atattribute, S:subscript, I21/0 ref, R:read, Wewrite, P=parameter 


REFERENCES OF 


IDENTIFIER----- 


low priority 
low priority 


low priority 
low priority 


low _priority 
low priority 


major 


major_priority 


_ REFERENCES OF 


IDENTIFIER----- 


tmm$dispatcher NOS/VE CYBIL/II 1.0 89102 
a i cee e cre -DEFINED------------++--REFERENCES 
ON LINE 
9446 sa73/M 9479 9479/M 
9584 9623/M 9623 9623/M 
9647 9647 
10157 10201/M 10201 10201/M 
10408 105183/M 10519 10519/M 
10550 10550 10579/M 
108793 10925/M 10925 10925/M 
11095 11139/M 11139 11139/M 
11151 11151 
1483 6895 6900/M 6900 
7898 7979 7979/M 
8227/M 8227 8499 
8739 8739/M 8739/M 
94795 9623 9623/M 
$9733/M 9735/M 10201 
10519 10519/M 10519 
10579/M 10579 10923/M 
11139 11151 11151/M 
5102 6691/M 6697 6698/M 
7O027/M 7TO34/S 7035/S 
7O056/M 7056 7OS6/M 
7166/M 7242/M 7274 
7864/M 7864 7864/M 
7866/S 7866/M 7866 
7866/M 7866 7866/M 
7898/S 7898/M 7898 
7898/M 7898 7898/M 
79739/S 7979 /M 7379 
7973/M 73979 7979 /M 
8172/8 8172/M 8172 
8172/M 8172 8172/M 
8227/S 8227/™M 8227 
8227/M 8227 8227/M 
8499/S 8499/M 8499 
8499/M 8499 84939/M 
8630/S 8630/M 8630 
8630/M 8630 8630/M 
9406/S S&806/M 9406 
9406/M 9406 9406/M 
9479/M 9479 /M 9479 
94739/M 9479 9479/M 
$528/M 9828 $528/M 
9562 9562/M 9623/M 
9623/M 9623 9623/M 
$623 9623/M 9647/M 
9647/M S647 9647/M 
9647 9647/M 10198/M 
10201/M 10201 10201/M 
10201 10201/M 10201/M 
10518/M 10519 10513/M 
10519 10513/M 10519/M 
10550/M 10550 10550/M 
eet REFERENCE ABBREVIATIONS M=emodify, Azattribute, 


tmm$dispatcher 


mecwecee wee eee ee DEFINED 


ON LINE 

“major_time slice remaining 8682 
major time_slice remaining 3677 

major _time_slice_ remaining 10408 

major timeslice_ insert 6873 

major timeslice_insert 7766 
major timeslice_insert 7932 

major _timeslice_insert 8110 

“major timeslice_insert 8182 
major _timeslice_ insert 8381 

major _timeslice_ insert 8581 

major timeslice_ insert $349 

major _timeslice insert 9446 

major timeslice insert 9584 

major _timeslice_ insert 10157 

major timeslice_insert 10408 

major timeslice_insert 10873 

major timeslice_ insert 11095 

max block _in_use 4o64 

max cpt ime 1160 

maximum time 4804 

maximums defined 4788 

maximums exceeded 4818 


zee 


NOS/VE CYBIL/II 


REFERENCE ABBREVIATIONS 


1.09 89102 


-REFERENCES 

10550 10550/M 
10579/M 10579 
10579 10579/M 
10725 10725/M 
10925/S 10925/S 
10925 10925/M 
11139/S 11139/S 
11138 11139/M 
11151/S 11151/S8 
11151 11151/M 
&8739/M 8739 
9726/M 9732 
10466/M 10466 
6896 7033 
7866 7866 
7979 7979 
8172 8172 
8227 8227 
8499 8499 
8630 8630 
9406 9406 
$479 9479 
$623 $623 
10201 10201 
10518 10519 
10579 

10925 10925 
111398 11139 
7691 

9000/M 10444/M 
8739 8739 /M 
9811 10466 
8735 9694 
6694 6694/M 
7014 7014/M 
7866 7866/M 
7898 78938/M 
7979 73979 /M 
8172 8172/M 
8227 8227/M 
84399 8499/M 
8630 8630/M 
&8739/M 8739 
8739 8739 
8739 8739 
8735 8739/M 
9406 9406/M 
‘9479 9479 /M 
$528 9528/M 
9623 9623/M 
$647 S647/M 
8694/M 8694 
$694 8694 

Mzemodify, 


1O550/M 
10579/M 
10579 /M 
10725 
10925/M 
109325 
11139/M 
11139 
11151/M 
11151 
&739 
$735 
10466 
7055 
7866 
7379 
8172 
8227 
8499 
8630 
S406 
9479 
9623 
10201 
10519 


10325 
11139 


10496/M 
&739 

10466/M 
8790 
6694 
7014 
7866 
7898 
7379 
8172 
8227 
8499 
8630 
&739/M 
8738/M 
8739/M 
8733 
$406 
3473 
$528 
9623 
9647 
9694/M 
$694/M 


Asattribute, 


9479 
9623 


10201 
10519 
10579 
10925 
11139 


7866 
7979 
8499/M 
9406 
9623 
0201/M 
0550/M 
0325 
1151 
6716 
7036/M 
7088 
7275/M 
7866/M 
7866/M 
7898/M 
7898/M 
71979/M 
7979/M 
8172/M 
8172/M 
8227/M 
8227/M 
84939/M 
8499/M 
8630/M 
8630/M 
9406/M 
9406/M 
9417/M 
9479/M 
9479/M 
9528 
9623/M 
9623 
9647/M 
9647 
10198 
10201/S 
10201 
10519/S 
10519 
10550/S 


—> ab ad ot 


$=subscr 


10550 
10579/S5 
10579 
10725/M 
10925 
1098325/M 
11139 
111339/M 
11151 
11151/M 


7898 


9647 


10550 


11151 


10759/M 
$694 

10466 

10466 
66394 
7014 
7866 
7898 
79379 
8172 
8227 
8499 
8630 
8739 
87393 


Sesubscript, 


ipt, 


1989-08-21 13:33:34 
94793 
9623 9647/M 8647 $647/M 
10201 
10519 10550/M 10550 10550/M 
10579/M 1058579 10579 
10925 
11139 11151/M 11151 11151/M 
7866/M 7866 7898 7898/M 
8172 8172/M 8172 8227 
8499 8630 8630/M 8630 
S406/M 9406 9479 9479 /M 
9647 9647/M 9647 $726 
10201 10466 10466/M 10466/M 
10550 105S50/M 10550 10579 
10925/M 10925 11139 11139/M 
6717/M 6375/M 7011/M 7026 
7054 TOS54/M 7054 7054/M 
7058/M 7130 7131/M 7165 
71329 7330/M 7864/M 7864 
7866/M 7866 7866/M 7866/S 
7866 7866/M 7866/M 7866 
7898/M 7898 7898/M 7898/S 
78398 78398/M 7898/M 7898 
79793/M 7979 7979/M 79739/S 
7379 73973/M 7379 /M 79793 
8172/M 8172 8172/M 8172/S 
8172 8172/M 8172/M 8172 
8227/™ 8227 8227/M 8227/8 
8227 8227/M 8227/M 8227 
843939/M 84g3 8499/M 8499/S 
84393 84939/M 8499/M 8439 
8630/M 8EB30 8630/M 8630/S 
&8&30 8630/M 8630/M 8630 
9406/M 9406 9406/M 9406/S 
$406 9406/M 9406/M S406 
9417 9417/M 9417 9417/M 
9473/5 9479/8 9479/M 9479 
9479 9479/M 9479 94739 /M 
9528/M 9562/M $9562 9562/M 
9623 9623/M 9623/S 9623/58 
9623/M §$623/M 9623 9623/M 
3647 9647/M 9647/S 9647/S 
9647/M 9647/M $647 9647/M 
10198/M 10198 10198/M 10201/M 
10201/S 10201/M 10201 10201/M 
10201/M 10201 10201/M 10519/M 
10519/5S 10519/M 10519 10519/M 
10519/M 10519 10519/M 10550/M 
10550/S 10550/M 10550 10550/M 

1-1/0 ref, Reread, Wewrite, 
e 

1989-08-21 13:33:34 
10550/M 10550 10550/M 10579/M 
10579/S 10573S/M 10579 10579/M 
10579/M 10579 10579/M 10725/M 
10925/M 109825/M 10925 10925/M 
10825/M 10925 10925/M 10925/M 
11139/M 11139/M 11139 11139/M 
111339/M 11139 11139/M 11133/M 
11151/M 11151/M 11151 11151/M 
11151/M 11151 11151/M 11151/M 
7838 7838 
9647 9647 
10550 10550 105793 10579 
11181 11181 
10786/M 
9694/M $8694 §794 9809/M 
10774 10774/M 10774 
10774 
6979 69379/M 6979 69793 
7864 7864/M 7864 7864 
7866 7866/M 78656 7866 
7898 7898/M 7898 7838 
7979 797393/M 73979 7379 
8172 8172/M 8172 8172 
8227 8227/M 8227 8227 
84gs9 8499/M 849g 8489 
8630 8E30/M 8630 8630 
8733 8739 8739 /M 8739 
8739 87393 8733 /M 8739 
8739 8739/M 87393 8739 
8406 9406/M 9406 S406 
$417 $417/M 9417 9417 
$479 94795/M 94793 $473 
s562 9562/M 8562 $562 
$623 8623/M $623 $623 
9647 9647/M 9647 9647 
S694 gs634 9$694/M S694 
s6sa4 s69g4 S6S4/M S694 

IzI/0O ref, Reread, Wewrite, 


PAGE 


PAGE 


1178 


P=parameter 


1179 


Peparameter 


REFERENCES OF tmm$dispatc 


IDENTIFIER-------- eee e nee eeeee 


maximums exceeded 

maxwsS aio slowdown display 
memory port _ mask 

minimum 

minimum time 


minimums to satisfy 
minimums to satisfy 


REFERENCES OF 


IDENTIFIER----- 2s ee eee eee ene 


minor 


minor priority 


her 


** x 


tmm$dispatcher 


ex** 


DEFINED 
ON LINE 


6180 
1305 
1147 
2591 
4803 


4787 
4816 


REFERENCE ABBREVIATIONS 


DEFINED 
ON LINE 


1482 


5101 


“REFERENCE ABBREVIATIONS 


NOS/VE CYBIL/II 


NOS/VE CYBIL/II 


1.0 89102 
REFERENCES 

9694 $694 9694/M 
9694 S694/M 9694 
S766 9768 9768/M 
9781 $782 9782/M 
9806 S806/M S806 
$835 $838/M 9838 
10198 10198/M 10198 
10201 10201/M 1060201 
10466 10466 10466/M 
10466 10466 10466/M 
10466 10466/M 10466 
10518 10519/M 10518 
10550 10550/M 10550 
105793 10579/M 10579 
10659 10662/M 10662 
10725 10725 10774/M 
10774/M 10774 10774 
10774/M 10774 10774 
10774 10774 10774 
10925 10825 10825 
111398 1112393 111338 
11151 11151 11151 
8739/M 8739 9694/M 
10774/M 10774 
8728/M 
6s95/P 7866/P 7898/P 
9406/P 9479/P §623/P 
109825/P 11133/P 11151/P 
$201 9205 
8739 8739 /M 8739 
9786 10466 10466/M 
8733 $694 9763 
8694/M 6694 6694 
7014 7864/M 7864 
7866 7866 7898/M 
7373/M 7379 7379 
8172 8172/M 8172 
8227 8227 8499 /M 
8630/M 8630 8630 
8739 8733 8739/M 
8739 /M 8733 8739 
8739 8739/M 8739 
S406 9406 9417/M 
94793/M 9479 9479 
$562 9623/M $623 
9647 9647 9647/M 
gs694 S694/M 9694 
9694 9694 3694/M 
9694/M 9694 9694 
9768 $768 $775 
9782/M $782 9782 
9807 9837/M 9837 
10198 10198 10201/M 

Msmodify, Azattribute, 


1.0 89102 
REFERENCES 

1O46E/M 10466/M 10466 
10466/M 10466 10466/M 
1O466/M 10466 10466 
10519 10519/M 10519 
10550 10550 10579/M 
10661/M 10661 10663 
10774/M 10774/M 10774 
10774/M 10774 10774/M 
10774/M 10774 10774 
10925 10825/M 10825 
11138 11139 11751/M 
6833 6893 6895 
7866 7866 7866/M 
7898 7898/M 7898 
73979/M 7379 737393/M 
8172 8172/M 8172 
8227/M 8227 84993 
843993 8630 8630 
8739 8739/M 8739/M 
9406/M 9406 9479 
$473 $623 9623 
$647 9647 $647 
§9728/™M 9730/M 10201 
10201 10466 10466/M 
10519/M 10519 10519/M 
10550/M 10550 10550/M 
10579 10573/M 10579 
1908325/M 10925 10825/M 
11139 1113S3/M 111398 
11151/M 11151 
6690/M 6700 6701/M 
7021/S 7026 7029/M 
7O56/M 7056 7O56/M 
7163/M 7226 7227/M 
7864 7864/M 7864 
7866 7866/M 7866 
7866 7866/M 7866 
7898 7898/M 7898 
7898 7898/M 7898 
7973 7379/M 73979 
73793 7979/M 7979 
8172 8172/M 8172 
8172 8172/M 8172 
8227 8227/M 8227 
8227 8227/M 8227 
84993 8499/M 84993 
84g9g &8439/M 84983 
8630 8E30/M 8636 
8630 8630/M 8630 
$406 9406/M $406 
9406 $406/M 9406 
$417/M $479/M 9473/M 
9$4739/M $473 $4793/M 

Memodify, Azattribute, 


$694 
9694 
$768 
9782 
9806 
9840 
10198 
10201 
10466 
10466 
10466 
10519 
10550 
10573 
10664 
10774 
10774 
10774 
10774/M 
10925/M 
11139/M 
11151/M 
8694 


7879 /P 
S647/P 


9694 
10466 
10466 

6979/M 

7864 

7898 

7979 /M 

8172 

8499 

8630/M 

8739 

&8739/M 

8739 

9417 

9528/M 

9623 

$647 


S=:subscript, 


S=:subscript, 


11451 
$798/M 


8172/P 
10201/P 


9694/M 
10774 
10774 

6978 

7866/M 

7898 

7979 

8227/M 

8499 

8630 

8739 

8739 

9406/M 

9417 

9528 

9623/M 

9647 

9694 

9694 

$766/M 

9778 

9806 

9861/M 
10201 


10466/M 
10466 
10466 
10550/M 
10579 
10710 
10774/M 
10774 


9479/M 


I:I/o 


1989-08-2] 13:33:34 
$694/M 9694 $694 
9766 S766/M S766 
$781 $781/M $781 
$7$2 $795/™M S796 
8$807/M 9.807 9807 
9862/M $862 8864 
10201/M 10201 10201 
10466 10466/M 10466 
10466 10466/M 10466 
10466 10466/M 10466 
10466/M 10466 10466 
10519/M 10519 105183 
10550/M 105506 10550 
10573/M 10579 10579 
10714 10725 10725/M 
10774 10774 10774 

10774 10774 10774 
10774 10774 10774/M 
10774 10925 10925/M 
10925 111398 11139/M 
11139 11151 11151/M 
11151 

97993 10466/M 10466 
8227/P 84399/P 8E30/P 
10519/P 10550/P 10579/P 
9694 S777 9784/M 
10774/M 10774 

63793 7014/M 7014 
7866 7866 7866/M 
7898/M 7898 7898 
7379 8172/M 8172 
8227 8227 8227/M 
8499/M 84393 8493 
8630 8739/M 8739/M 
8739 8739 /M 8739 
8739 8739/M 87393 
9406 9406 9406/M 
$4739 /M 9479 94793 
9528 §3562/M $562 
9623 9623 $647/M 
S96S34/M 9694/M $694 
9694/M 9694 9694/M 
9694/M $694 $694 
9766 S766 $768/M 
9781/M 9781 $781 
9806 $807/M 9807 
9861 $863 10198/M 
10201/M 10201 10201 
ref, R-zread, Wewrite, 

1989-08-21 13:33:34 

10466 10466 10466 
10466/M 10466 10466 
10466 10519/M 10519 
10550 10550 10550/M 
10579/M 10879 10579 
10725/M 10725 10725 
10774 10774 10774 
10774/M 10774 10774 
10774 10925/M 10925 
11139 11139 11139/M 
11151/M 11151 11151 
6B901/M 6901 7866 
7866 7898 7898 
7379 7373 7979 
8172 8172 8172/M 
8227 &8227/M 8227 
8499/M 8499 84939/M 
8630 8630/M 8630 
9406 $406/M 9406 
9479 /M 9479 9479/M 
9623 9623/M $623 
9647/M $647 $725 
10201/M 190201 10201/M 
105183 10518 10518 
10550 10550 10550 
10579 10573 10579/M 
109825 10925 109825 
111383 11139 11139/M 
11151 11151/M 11151 
6974/M 7O10/M 7020/5 
7054 7054/M 7056 
7130 7136/M 7162 
7326 7327/M 7864/M 
7866/M 7866/S 7866/S 
7866/M 7866 7866/M 
7898/M 7898/S 7898/S 
7898/M 7898 7898/M 
79739 /M 79379/S 7979/8 
73973 /M 7973 7973/M 
8172/M 8172/8 8172/8 
8172/M 8172 8172/M 
8227/™M 8227/8 8227/8 
8227/™M 8227 8227/M 
84939/M 8499/5 8499/58 
8499/M 8499 84a3s9/M 
8630/M 8630/8 8630/S 
8630/M 8636 8630/M 
$S406/M 9406/S 9406/S 
S406/M 9406 9406/M 
9417 9417/M 9417 
$479 9479 /M $479 
9479 9479 /M $4795 


I2:I/0 ref, 


Reread, Wewrite, 


PAGE 


PAGE 


1180 


P=parameter 


1181 


Pzparameter 


REFERENCES OF tmmS$dispatcher 


IDENTIFIER----------+---------- 


minor time _ slice _ remaining 
minor time slice remaining 
minor time slice remaining 
minor timeslice_ insert 
minor timeslice insert 
minor timeslice_insert 
minor timeslice_ insert 
minor _timeslice_insert 
minor timeslice_ insert 
minor timeslice_insert 
minor timeslice insert 
minor timeslice_insert 
minor timeslice_insert 
minor timeslice_insert 
minor timeslice_insert 


ninor timeslice_ insert 
minor _timeslice_ insert 
mic$error 


mic$fetch_link_partner_info_regq 


mic$max_message_length 
mic$max_queued_ messages 
mic$nosve_not_up 

mic$ok 

mic$sign_on_req 
mic$unique_name 

ra limi 

Mmit$applicat ion_name 
mit$c170_ rqst_bik 


ee 


REFERENCES OF tmm$dispatcher 


IDENTIFIER-- +++ tee ee eee wee ne 


mit$direction 

mit$receive entry 

mit$signal 

mit$Ssignal_record 
mit$signaler_application_info 
miv$ci70_ rqst_blk 

mmc$ 


mmcS$assign_active_ null 
mmc$cell_ pointer 
mmc$heap_pointer 
mmc$kw_asid 

mmcS$kw_clear_ space 
mmc$kw_current segment_length 
mmcSkw_error_exit_ procedure 
ramc$kw_g1_key 

“mmc$kw_ hardware attributes 
mmc$kw_inher itance 
mmc$kw_max_segment_ length 
-mmc$kw_preset_value 

mmc$kw ps_transfer_size 
mmc$kw_ring numbers 
mmcSkw_ segment access control 
‘mmc$kw_segment_number 
mmc$kw_shadow_segment 
mmc$kw_ software attributes 
_mme$kw_wired segment 

mmc$  lus_ lock segment 

mmc$ lus unlock segment 
ramc$mf_ segment _mgr_filag 
‘mme$pq_avail 

mmc$pq_free 

mmc$pq_job_ fixed 
“mmc$pq_job_working_ set 
mmc$pq_shared_first_site 
mmc$pq_ shared _num_sites 
mmc$pq_shared_ other 
‘mmc$pq_shared_ site_01 
mmc$pq_ shared site_25 
mmc$pq_shared task_service 
imme$pq_Sswapped_io_error 


eX 


DEFINED 
ON LINE 


REFERENCE ABBREVIATIONS 


ON LINE 


REFERENCE ABBREVIATIONS 


NOS/VE CYBIL/II 


NOS/VE CYBIL/II 


REFERENCES 


579 
563 


1888 
1877 
1889 
1884 
1884 
1879 
1880 
1885 
1878 
1888 


Mzemodify, 


1.0 89102 


REFERENCES 
9479/M 9528/M 
9562/M 9562 
9623/M 8623 
9623/M 9623 
9647/M 9647 
9647/M 9647 

10201/M 10201/M 
10201 10201/M 
10519/M 10518/M 
10519 10519/M 
10550/M 10550/M 
10550 10550/M 
10579/M 10579/M 
10578 10579/M 
10725/M 10725 
10825/S 10925 
10925/M 10825 
11139/S 11138 
11138/M 11139 
11151/S 11151 
11151/M 117151 
8739/M 8739 
9725/M 9727 
10466/M 10466 
6894 6922 
7866 7866 
7979 7879 
8172 8172 
8227 8227 
8499 8498 
8630 8630 
9406 9406 
9479 9479 
9623 9623 
10201 10201 
105198 10519 
10579 10579 
10925 10925 
11139 11139 
300 307 
364 373 
437 445 
507 514 
605 
84 559 
558 560 
589 
589 
605 
290 
74 84 
582 585 
6348 
M=modify, 


1.9 89102 


7903 
8343 
4368 
4393 
4418 
4442 
4467 
4491 
4515 
4542 
4S66 
4590 
4616 
4640 
4665 


18893 
1890 


9528 
9562/M 
9623/M 
9623/M 
9647/M 
9647/M 
10201/5S 
10201 
10519/S 
10519 
10550/S 
10550 
10879/S 
10579 
10725/M 
10825/M 
10925/M 
11139/M 
11139/M 
17151/M 
11151/M 
8739 
9730 
10466 
7019 
7866 
7979 
8172 
8227 
8499 
8630 
9406 
$479 
9623 
10201 
10519 
10579 
10925 
11139 
315 
381 
454 
S22 


561 


Azattribute, 


Azattribute, 


9528/M 
9623/M 
9623 
9647/M 
9647 
10198/M 
10201/8 
10201/M 
10519/S 
10513/M 
10550/S 
10550/M 
10579/S 
10573/M 
10725 
10925 
10925 
11139 
11139 
117151 
11151 


7053 
7866 
7979 
8172 
8227 
8499 
8630 
$406 
9479 
$623 
10201 
10519 
10579 
10925 
11139 
326 
390 
462 
§31 


$62 


S=subscript, 


9006 
43493 
4374 
4399 
4424 
4448 
4473 
44ag7 
4521 
4548 
4572 
4596 
4622 
4646 
4671 


Sssubscript, 


1989-08-21 13:33:34 

$528 9528/M 9562/M 9562 
9623/M §623/S 9623/S 9623 
§623/M 9623 9623/M 9623 
9647/M $647/S 9647/S 9647 
9647/M 9647 9647/M 9647 
10198 10198/M 10198 10198/M 
10201 10201/M 10201 10201/M 
10201 10201/M 10201 10201/M 
10519 105193/M 10519 10519/M 
10519 10519/M 10519 10519/M 
10550 10550/M 10550 10550/M 
10550 10550/M 10550 10550/M 
10579 10579/M 10579 10579/M 
10579 10579/M 10579 10579/M 
10725/M 10925/M 10825/M 10825/5 
10925/M 10925 10925/M 10925 
10925/M 11139/M 11139/M 11139/5S 
11139/M 11138 11139/M 11139 
11139/M 11151/M 11151/M 11151/8 
411151/M 11151 11151/M 11151 
11151/M 

7898 7898 7898 7898 
8647 9647 9647 9647 
10550 10550 10550 10550 
11151 11151 11151 11151 

334 342 349 357 

406 414 420 429 

469 4793 489 497 

535 

I:I/O ref, Reread, Wewrite, 


1889-08-21 


10452/P 

4352 4355 
4377 43890 
4403 4406 
4427 4430 
4451 4454 
4476 44793 
4500 4503 
4524 4527 
4551 4554 
4575 4578 
4ss9g 4603 
4625 4628 
46493 4652 

IzI/O ref, 


13:33:34 
4358 4362 
4384 4387 
4409 4412 
4433 4436 
4457 4460 
4482 4485 
4S06 4503 
4831 4535 
4557 4560 
4581 4584 
4607 4610 
4631 4634 
46s5 4658 


Reread, W-write, 


PAGE 


PAGE 


1182 


P=parameter 


1183 


P=par ameter 


REFERENCES OF tmm$dispatcher 


IDENTIFIER--------+----+------ -- 


mmc$pq_ wired 
mmc$segment_ fault processor id 
mmc$sequence_ pointer 
mmc$ssk_none 
mmc$ssk_segment_number 
mmp$create_job 

mmp$create_ task 
mmp$exit_ job 

mmp$exit_task 
mmp$get_sdtx_entry_p 
mmp$get_sdtx_entry_p 
mmtS$active_segment_tabie 
mmtS$active_ segment_table_entry 
mmt$ast_ index 
mmt$attribute_ keyword 
mmt$eoi_state 
mmt$global_page_ queue_index 
mmt$gliobal_page_quewe_list_ent 
mmt$hardware_attribute_set 
mmt$hardware_attributes 
mmt$ job_page_queue_index 
mmt$ job _page_queue_list 
mmt $ Tink 

mmt$ lock _segment_status 
mmt$ locked _ page 
mmt$ilus_lock_type 
mmt$lus page disposition 
mmt$max_sdt 

mmt$max_sdt_p 

mmt $max_sdt x 

mmt$memory_ reserve _ request 
mmt$page_age 
mmt$page_frame_ index 


mmt$page_frame_queuve_id 
mmt$page_frame_table_entry 
mmt$page_queue_list_entry 
mmt$rb_ lock _unlock_segment 
mmt$sdtx stream_data 
mmt$segment_access_ condition 
mmt$segment_access rights 
mmt$segment_access state 
mmt$segment descriptor 
mmt$segment_descriptor_extende 
mmt$segment_inher itance 
mmt$segment_ pointer _kind 

mnt $segment_reservation_state 
mmt$shadow_info 
mmt$shadow_reference_info 
mmt$shadow_segment_kind 
mmt$software attribute set 
mmt$software attributes 
mmt$xcb_page_ wait _info 


*R* 


REFERENCES OF tmm$dispatcher 


IDENTIFIER----------------- --- 


mmv$ast op 
monitor cptime 
monitor flags 


monitor flags 


monitor lock 
mtc$ job_fixed_ segment 


mtc$scb_max_hardware_ status 
mt p$cst_p 


mtp$error_ stop 


mtp$Sinterrupt processor 


mtp$set_inter lock 
mtp$set_status_abnormal 


mttSidie status block 
mtt$monitor_inter lock 
mtt$scb_180 status 

mtt$scb_ hardware status 
mtt$scb_hardware_status_ count 


mtt$scb hardware status_msg 


° 2% 


NOS/VE CYBIL/II 1.0 8810602 

DEFINED------- esceee == REFERENCES 
ON LINE 

1832 1875 

3383 3437 

2874 2881 

2975 2947 

2376 2945 

5552 8493 

5540 8675 

5561 8567 

5547 8723 

5566 &8221 

5568 5570/M 8221/M 

2106 6321 

2091 2069 2107 

2123 1337 2084 

2796 2811 

4022 388s 

1888 2213 

2203 2213 

2865 2831 

2853 2865 

1889 1815 2214 

2214 1292 

2114 2082 21306 

2955 2740 

2152 2136 

23905 4718 

2907 4720 

2679 2683 

2683 8401 

2764 2768 

2181 1285 

2158 2139 2163 

2052 2044 2046 

5968 53970 

1890 2045 2100 

2129 2067 2145 

2189 2204 2214 

4710 8213 

2747 2743 

3410 3438 

2919 2739 

2325 2734 

2666 2676 2680 
ad 2732 2761 2765 

2782 2736 2839 

2874 2878 

2965 2737 

2940 2741 

2988 2556 

23975 2944 

2867 2738 .2833 

2861 2867 

2399 2542 
REFERENCE ABBREVIATIONS Mzmodify, 


NOS/VE CYBIL/II 1.0 89102 
DEFINED---- rere rere ne -REFERENCES 
ON LINE 

6321 8230 8230 

4869 9921/M 

2510 9023/M 9023 
10847/M 10847 

4939 6614/M 6616/M 
9026/M 9141 
10793 10794/M 

3876 5295/P 8222/P 

4122 5252 5293 
7149 7218 
7612 7721 
7838 7898 
73979 7979 
8172 8218 
8232 8425 
8499 8606 
$255 $302 
9406 9471 
9549 9612 
9647 96417 
10201 10201 
10518 10530 
10579 10579 
10682 10921 
11138 11139 
11151 11151 

5889 58393 

5633 6941 7585 
8016 8091 
9623 9647 
11151 

5323 6499 6537 
7452 7502 
7866 7898 
8079 8097 
8288 8334 
8789 87393 
9528 9528 
10198 10201 
10725 1O725 
11139 111581 

5528 6395 7866 
S466 9479 
10925 11139 

$327 $295 5348 

5645 5652 6496 
&704 $102 

5817 5804 

40238 3876 5327 

5793 5784 

5841 5779 5864 

5839 §842 

5845 5851 

REFERENCE ABBREVIATIONS : M=modify, 


2140 
2669 


2131 


2163 
2047 
5972 
2134 


5924 
5568 


Azattribute, 


8231 
$157/M 


8445/™M 
$154 
10870/M 
8232/P 
7054 
7258 


Azattribute, 


3886 


2200 


2048 


SS71 


Szsubscript, 


8232/P 


9157 


8445/M 


9157 
10870 


7054 
7320 
7866 
7898 
8170 
8227 
8459 
8630 


9385 


$4a79 
$623 
$647 
10516 
10550 
10579 
10925 
11138 


7820 
8227 
10519 


6686 
7579 
7965 
8158 
8534 
$102 
9562 
10550 
109325 


7979 
9647 


8232 
6604 
9412 


S=subscript, 


1989-08-21 


8206 

2116 2116 

8211 8221 
IsI/oO ref, 


1989-0 
10129/M 10129 
8608/M 8608 
9159/M 10130 
11004/M 
7056 7O56 
7463 7503 
7866 7866 
7898 7978 
8172 8172 
8227 8227 
84399 8499 
8630 8630 
9406 9406 
9479 9479 
8623 $623 
9647 9887 
10519 105198 
10550 10550 
10579 10638 
10925 10925 
11150 11151 
7866 7898 
8499 8630 
10550 10579 
6709 6756 
7751 7807 
7979 8020 
8172 8227 
8537 8630 
9406 9417 
°9623 9647 
10550 10561 
10997 10997 
8172 8227 
10201 10519 
7452 7461 
$433 9543 
r=1I/0O ref, 


2183 


Rzsread, Wewrite, Pzparameter 
8-21 13:33:34 PAGE 1185 
10793/M 10793 
/™ 9020 9023 
10134/M 1073930 
7058 — 7106 
7543 7581 
7866 T7866 
73979 73973 
8172 8172 
8227 8227 
8499 8499 ! 
8630 8754 
39406 S406 
9479 9515 
9623 S636 
190201 10201 
10519 105183 2 
10550 10550 ‘| 
10639 10681 
10925 11139 
11151 11151 
( 
iN 
7879 8004 
9406 9479 ‘sd 
10925 11138 
6769 7045 
7864 7864 A 
8072 8076 
8246 8266 
8710 8725 
9417 9479 
10138 10198 
1905793 10530 
11078 11124 
8499 8630 
10550 10573 NI 
8445 8608 
9577 39376 
Reread, Wsewrite, Ptparameter 


13:33:34 PAGE 1184 


2184 


REFERENCES OF tmm$dispatcher NOS/VE CYBIL/II 1.0 891602 1989-08-21 13:33:34 PAGE 1186 


LOENTIFPIER So ses 2 seh 6 9 Sees Sce DEFINED------- A ees ee ima REFERENCES 
ON LINE 

mtt$scb_ hardware _status_msgs 5850 5787 

mtt$scb_hardware_status options 5831 5841 5850 

mtt$smu_communications_ block 5778 5771 

mtt$step_status_block 5812 5805 

mtt$system_idie_update_request $894 5819 5819 

mtt$system_status block 5803 5794 

mtt$system_step_update_request 5893 5814 5814 

mtv$csto 5639 5635 6941 6347 6953 6960 6965/S 6972 6973 
6374 6375 6982 68387/M 6988/M 6990/M 6994 6995/P 
7585 7747 7820 7866 7866 7866 7866 7866/S 
7866 7866 7866 7866 7866 7866/M 7866/M 7866/M 
7866 7866/P 7898 7898 78398 78398 7898/8 7898 
7898 7898 7898 7898 7898/™M 7898/M 7898/M 7898 
7898/P 7379 71979 7979 7379 7879/8 7979 7979 
7379 7379 7379 73979/M 7979 /M 7979 /M 7979 7979 /P 
8004 8016 809 1 8172 8172 8172 8172 8172/8 
8172 8172 8172 8172 8172 8172/M 8172/M 8172/M 
8172 8172/P 8227 8227 8227 8227 8227/S 8227 
8227 8227 8227 8227 8227/M 8227/M 8227/M 8227 
8227/P 8499 8499 84993 8499 84399/S 8499 8439 
8499 84393 8499 8499/M 843S/M 84399 /M 8499 8499/P 
8630 8630 8630 8630 8630/5 8630 8630 8630 
8630 8630 &8630/M 8630/M 8630/M 8630 8630/P 9406 
9406 9406 9406 9406/5 $406 9406 $406 9406 
9406 9406/M 94206/M 9406/M 9406 9406/P 3479 9479 
9479 $479 9479/S $479 9479 9479 3473 9479 
9473/M 9479/M 94793 /M 9479 9479/P $623 $623 $623 
$623 9623/58 9623 9623 9623 $623 8623 9623/M 
9623/M 9623/M 9623 9623/P 9647 9647 $647 9647 
9647/S 9647 9647 9647 9647 $647 $647/M 9647/M 
9647/M 9647 9647/P 10201 10201 10201 10201 10201/S 
10201 10201 10201 10201 10201 10201/M 10201/M 10201/M 
10201 10201/P 10519 10519 10519 10519 10519/S 10819 
10519 105198 10519 10519 10519/M 105193/M 10519/M 10519 
10519/P 10550 10550 10550 10550 10550/S 10550 10550 
10550 10550 10550 10550/M 10550/M 10550/M 10550 10550/P 
10578 10579 10579 10579 10579/S 10579 10579 10579 
10579 10579 10579/M 10579/M 10579/M 10578 10579/P 109825 
10825 10825 10925 10825/S 10925 10925 10925 10925 
10825 10925/M 10925/M 10925/M 10925 10825/P 11139 11138 
11139 11139 11139/S 11139 11139 11139 11138 11139 
11139/M 11139/M 11139/M 11139 11139/P 11151 11151 11151 
11151 11151/S 11151 111851 11151 171151 11151 11151/M 
11151/M 11151/M 11151 11151/P 

mtv$mii_status 5535 7904/M 9008 9013/M 10451 10451 

mtv$monitor_ segment table 59323 8447/M 

mtv$scb 5771 10240 10241 

multiprocessing allowed 1284 7865 7837 7977 8171 8438 8627 9404 9478 

: 9622 S646 10200 10550 10578 10641 10686 10824 

nat$received_message_descriptor 3015 3008 3017 

nat$received_ message_list 3007 2524 

new_entry status 5359 5366/S 5367/58 5369 5372 5376 

*** REFERENCE ABBREVIATIONS Memodify, Azattribute, S=subscript, 11/0 ref, Rtread, W-write, Ptparameter 


REFERENCES OF 


ee 4 


REFERENCE ABBREVIATIONS 


> Memodify, 


Azattribute, 


Sssubscript, 


r=1/0 


ref, R=read, Wewrite, 


tmm$dispatcher NOS/VE CYBIL/II 1.0 8981062 1989-08-21 13:33:34 PAGE 1187 
IDENTIFIER--<-- eee tee rr ee eee ee DEFINED ---- eer er ere eee REFERENCES 
ON LINE 
mew_entry status 8381 8471/5 8471/S 8471 8471 8471 
new _entry status 99336 10081/S 10081/S 10081 10081 10081 
new _max pt lo 9946 10105/M 10107 10110/S 10118 
“mew scheduling priority 8777 8838/M 8843 8844/M 8848 
new _ scheduling priority 8892 89816/M 8320 8821/M 8325 
mew task status 4936 7749 7756/M 7849 7850/M 7864 7367/M 8018 8019 
8022/M 8078 8102/M 8152 8152 8157 8160/M 89823 /M 
9034/M $036/M 9038/M 9$042/M 9044/M 9135/M $153 $181/M 
10480 10SS56 10557 10558/M 11119 11120 11121/M 
new_task_status gogo 9114/M 9116/M $118/M 9122/M 9124/M $135 $136 9137 
i 9138 9153/M 9154 $161/M $164/M 9167 
mext avail_ptto 6594 6602/M 6603 6607/S 6634 
next _avail_pttlo 8381 8445/M 8445 8445/S 8445 
next avail_pttio 8581 &8608/M 8608 8608/S 8608 
_next cyclic_aging_ time 2258 8754 8754/M 8754/M 9303 9305/M 93307/M 9435 9437/M 
9439/M 9888 9$890/M 9832/M 10530 10530/M 10530/M 
mext ijle_p T7650 7694/M 7635 7698/P 7701 7702 77903 
“mext_ index 8276 8288/M &8288/S 8288 8288 8288 8288/M 8288/S 8288/S 
8288 8288 8288 8288 8288 8288/8 
mext index 8315 8319/M 8327/8 8327/8 8327 8327 8328 8328 8323 
8330/M 8330/S 8333 8337 8338 8347/8 
next index 190370 10379/M 10381/M 10386 10386/S 10388/S 10389/5S 10391 103396/S 
10397/M 10387 10400/M 
next index 190408 10561/M 10561/5S5 10561 10561 10561 10561/M 10561/S 10561/S 
: 10561 10561 10561 10561 10561 10561/S 
next index 11072 11077/M 11088 
next index 11095 11124/M 11124/58 11124 11124 11124 11124/™M 11124/S 11124/S 
11124 11124 11124 11124 11124 11124/S8 
next processor state 1150 10481 10594 
next ptilo 4832 7666/M 7671/M 7674/M 7683 7701/M 7714 7721/8 7723/M 
7723/8 
next ptlo _to_dispatch 1182 6960 6965/S 6872 6973 6974 6975 6982 6987/M 
7759 7866 7866/S 7866 7866 7866 7866 7866 
7866/M 7898 7838/S 7898 7898 7898 7898 7898 
7898/M 7979 7973/8 7379 7979 7379 7379 7973 
7973 /M 8025 8033 8172 8172/8 8172 8172 8172 
8172 8172 8172/M 8227 8227/58 8227 8227 8227 
8227 8227 8227/M 84399 84s3/Ss 8499 8499 8499 
8499 8499 8499/M 8560 &8E30 &8630/S 8630 8630 
8630 8630 8630 8630/M &747 8816 8826 8934 
soso 9175 9406 §406/S 8406 9406 9406 9406 
9406 9406/M 9479 9479/S S479 9479 $479 $479 
9479 9479 /M 9623 8623/S $623 9623 $623 9623 
$623 9623/M S647 8647/S 9647 $647 9647 9647 
9647 8647/M 10201 10201/S 10201 10201 10201 10201 
10201 10201/M 10510 10511 10517/M 10518 10519/S 10519 
10519 10519 10519 10515 10519/M 10540 10550 10550/S 
10550 10550 10550 10550 10550 10550/M 10577 10579 
10579/S 105798 10578 10579 10579 10579 10579 /M 10535 
10631 10632 10634/M 10925 109825/S 10925 10825 10925 
10825 109825 10825/M 11139 11139/S 11139 11139 11139 
11139 11138 11139/M 11145 11146/S8 11148/S8 11149/P 11151/P 
11151 11151/S 11151 11151 11151 11151 11151 11151/M 


P=sparameter 


REFERENCES OF 


tmm$dispatcher 


KES 


TDENTIF LER ese eh Stee te Ss eres -DEFINED--- e+e 2 
- ON LINE 
next ptlo_ to dispatch 10425 
next ready time $222 
next search_ptilo 6863 
next search _pt lo 6863 
next search _ptilo 6863 
next search_ptlo 7082 
next search _ptilo 7194 
next search_ptilo 7302 
next search _pt lo 7766 
next search _ptilo 7766 
next search _ptilo 7766 
next search ptlo 7332 
next search ptilo 7332 
next search ptilo 7932 
next search ptlo 81106 
next search pt lo 8110 
next search _ pt lo 8110 
next search ptio 8182 
next search _pttlo 8182 
next search _ ptlo 8182 
next search ptio 8381 
next search ptio 8381 
next search _ptlo 8381 
“next search_ptilo 8581 
nmext search _ptio 8581 
next search ptio 8581 
next search pttlo 9349 
next search ptlo $349 
next search ptlo $349 
next search pt lo $446 
next search ptilo 9446 
next search ptlo 9446 
next search ptio $584 
next search pt to $584 
next search ptio $584 
next search ptilo 10157 
next search pt to 10157 
next search _ptto 10157 
next search ptlo 10408 
next search _ptto 10408 
next search ptto 10408 
next search _ptio 108793 
next search ptilo 10879 
next search ptilo 10879 
next search ptio 11095 
next search _ptilo 11095 
next search _ptilo 11095 
next state 2489 
next task_ijle_p 10426 
next task _ ijle_p 11099 
next task _xcb_p 10427 
next task _xcb_p 11100 


REFERENCE ABBREVIATIONS 


NOS/VE CYBIL/II 


REFERENCES OF tmm$dispatcher NOS/VE CYBIL/TII 
IDENTIFIER-~-------- warren -DEFINED-<-"-------------REFERENCES 
ON LINE 
nic$cc_connect_confirm 3047 3038 
nic$cc_connect_request 3046 3036 
nic$cc_expedited_ data 3052 3038 
nic$cc_max_pdu_kind 3054 3057 
nic$channel_connect ion_pdu 3070 3022 
nic$channeilnet_pdu 3070 3024 
nit$cc_ pdu_kind 3057 3035 
nit$cc_seq#_or_connect_time 3034 3023 
nit$cc_ sequence _ number 3060 3039 
nit$device identifier 3067 3018 
nit$pdu_type 3070 3021 
norma) 274 5650/M 
7452/™M 
8608/M 
91063 
9577/M 
null debug mask 10838 10842 
null dispatching info 7739 7818 
null_pva 6326 8448 
offset 19399 75935 
offset 5243 5248/M 
offset 5286 5283/M 
offset 8182 &8222/M 
offset 8601 8605/M 
old dispatching priority 7737 7819/M 
old_entry status 5362 5364/M 
old entry status 8381 8471/M 
old_entry_ status 9S$36 10081/M 
oid max _ptilo $947 10104/M 
old_te 5579 5594/M 
old te 5617 5630 
operator set dispatching prio 1452 §$9934/M 
option 6466 6495 
option 6507 6533 
option 7416 7452 
option 9057 $102 
osc$aging_interval_maximum 2333 2336 
osc$base_exception 5036 5038 
osc$call_instruction 3250 3258 
osc$cpu_stepped 2492 10480 
osc$data_read 3249 3258 
osc$debug 3087 10845 
osc$free_ flag 3085 9022 
osc$free_ running _¢lock_maximum 1524 1521 
osc$idie_no_io_active 2484 107393 
osc$idie_with_io_active 2483 10737 
osc$invalid_ring 1945 1985 
osc$keypoint base 6094 GOS6 
6126 
: 6155 
osc$keypoint_enabie 3155 8484 
osc$max_ fault contents 3450 3444 


*** REFERENCE ABBREVIATIONS 


REFERENCES 


11152/M 
10511/M 
$233/M 
7054/M 
7056/M 
7058/M 
7104/M 
7216/M 
7318/M 
7866/M 
7866/M 
7866/M 
7979 /M 
7373 /M 
7379 /M 
8172/M 
8172/M 
8172/M 
&8227/™M 
8227/M 
&8227/M 
8499/M 
8499/M 
84993/M 
&8E30/M 
&8630/M 
&8630/M 
9406/M 
S406/M 
S406/M 
9479/M 
947393/M 
8473 /M 
9623/M 
8623/M 
9623/M 
10201/M 
10201/M 
160201/M 
10519/M 
10513/M 
10519/M 
10925/M 
108325/M 
10925/M 
11139/M 
11139/M 
11139/M 
10480 

10512/P 
11146/P 
10516/P 
11150/P 


1.9 8910902 


10512/S 10514/S 


8262/M 


7898/M 
7898/M 
7838/M 


9647/M 
9647/M 
9647/M 


10550/M 
10550/M 
10550/M 


10519 
10519 
10925 
10325 
10925 
11138 11 
11139 11151/M 
11139 11 
10587 
10513/M 10513 
11147/M 11 
10518/P 
11151/P 


Msmodify, Azattribute, 


1.09 89102 

6489/M 6496/M 
7452/M 7483 
8608/M 8609 
$334 $365/M 
9595/M 9320/M 
8006/M 8006 
5255/M 5258 
5293/M 5293 
&8222/M 8222 
8606 

7822 

5366/Ss 5367/S 
8471/8 8471/8 
10081/S 10081/S 
10107 10114 
10000/M 10031/M 
6094 

10587 

10846 

9156 10782 
10767 

6100 6104 
6130 6134 
6158 6163 
8486 8669 


Memodify, Asattribute, 


10515/P 
9267 


7898 
7838 
7898 


9647 
8647 
$647 


10550 
10550 
10550 


—_ — = 
a a ot 
—_ ht ach 
oUt Ut 
— ma ad 


515/P 
149/P 


~~ 
-90 


S=subscript, 


1989-08-21 
10518/P 
10579/M 10573 
10579 /M 1085793 
10579 /M 105793 
10518/P 
11151/P 
I:I/0 ref, Reread, 


13:33:34 


Wewrite, 


PAGE 1188 


P=parameter 


1989-08-21 13:33:34 PAGE 1189 
6529/M 6534/M 6601/M 6604/M 74439/M 
7461/M 8429 8445 /M 8445/M 8446 
&8702/M 8704/M 8718 §9102/M 9102/M 
$373/M $412/M 9433/M 9502/M 9543/M 
$3950/M 9976/M 10978/M 10986/M 
8232/M 8232/M 8232 
5371 5375 
8471 8471 
10081 10081 
10116 
10323 10325 
10850 
6107 6111 6115 6119 6122 
6138 6141 6144 6148 6151 
8671 
Stsubscript, I:1/0 ref, Reread, Wswrite, Psparameter 


REFERENCES OF tmm$disSpatcher NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 1190 


IDENTIFIER----- Sin aS Sere eee DEF ENED Sh Soccer sess ~REFERENCES 
ON LINE 
osc$max_idie_count 2471 2479 
osc$max_kpt_pages 5362 5968 5970 5972 6008 
osc$max_ name_size 22399 2303 2306 
esc$max_number_of_processors 716 1140 §931 $937 5997 5998 
osc$max_page_frames 1895 1332 1333 1814 1816 2052 2033 2201 2207 
osc$max_ page size 2432 2428 
osc$max_page_table_ entries 1896 1899 
osc$max_ ring 1944 1985 1986 
osc$max_segment_length 1968 1391 2744 2775 
osc$max_ status _condit ion_code 240 236 252 
osc$max_ status _condition_number 5655 5646 
osc$max_string size 256 259 262 267 
osc$max_tasks 110 107 9361 8500 
osc$maximum_offset 1967 1968 1988 1988 1989 
osc$maximum_processor_ id 3275 3271 
osc$maximum_processor_number 2455 2450 
osc$maximum_processors 720 716 2455 
osc$maximum_segment 1966 1987 
osc$min_ecc 5035 S036 
osc$min_page_size 2431 2428 
osc$min_ring 1943 1986 
osc$not_idile 2483 10734 10765 10775 
osc$pr_wmase_ constant 3811 6428 6447 64390 6494 6502 7450 7454 7466 
7501 7512 7529 7547 7573 75399 7653 7725 
7748 7757 7806 7327 79356 7983 8017 89039 
8070 8104 8134 8176 8265 8270 8282 8292 
8444 8451 8508 8532 8553 8607 8610 8677 
8727 8756 8783 8870 88397 8361 9004 9010 
$028 9048 $100 $104 9211 9247 9250 9257 
$271 9329 $339 9469 9486 3504 95393 9573 
9607 9631 g6s5 $951 9375 10137 10141 10170 
10210 10233 10246 10461 10523 10589 108393 10820 
10981 10988 11022 11107 11155 
osc$pr_element_id 3800 &883 
osc$pr_process_interval_ timer 3837 4884 8732 $922 9955 
osc$pr_set_keypoint enable 5948 10809 
osc$pr_user _mask_rag 3846 8883 
eosc$purge_all_cache 3852 10644 10649 10689 10635 
osc$purge_all_page_seg_map 3861 8448 10645 10650 10690 10696 
osc$system_keypoints 6040 8478 8652 
osc$system_sample_keypoints 6041 8479 8653 
esc$system_table_lock_set 728 6910 7862 7866 78398 7979 8172 8227 843g 
8630 $386 9406 9479 9519 $553 9623 9647 
10201 10482 10519 10550 10579 10925 11139 11151 
esc$task_ time slice _maximum 1513 1516 
osc$tsrv_ring 1948 $168 
osc$vil_invalid_entry 2694 8447 
osk$base 833 735 739 743 747 751 755 759 763 
, 767 774 775 7793 783 787 782 795 
738 
osk$m 904 8474 8475 10524. 10822 
_ osk$monitor multiplier 903 10441 10524 10822 
osk$mtr 868 10441 10524 10822 


*** REFERENCE ABBREVIATIONS : Mtmodify, Aztattrinute, Sssubscript, I=1/0 ref, Reread, Wewrite, Ptparameter 


REFERENCES OF tmm$dispatcher NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 1191 
IDENTIFIER<-- +e eer ee re ee eee eee DEFINED------*--e ern ee- REFERENCES 
ON LINE 

osk$per formance 869 8474 8475 

osk$system_class &793 863 864 865 866 867 868 869 

osp$update_job_keypoint_mask 5659 9461 95939 

ost$aging_interval 2336 2255 2256 

ost$asid 1931 1276 1927 2071 2082 2083 2098 2700 2837 
5460 5731 

ost$binary_unique_name 4043 3878 

ost$class_15 keypoint 6058 6015 

ost$cp_time 16293 1597 1642 2541 4781 

ost$cp_time_vaiue 1627 1318 1630 1631 2250 2251 2554 

ost$cpu_element_id 2447 1171 

ost$cpu_idie statistics 2474 1174 

ost$cpu_memory port mask 2449 1147 5528 

ost$cpu_running_or_stepped 24392 2489 2489 

ost$cpu_state 2487 1156 

ost$cpu_state reason 2498 1177 

ost$cpu_state table 1143 1140 $633 6871 7354 7377 7568 7744 7796 
8002 8014 8064 8383 8515 8583 8684 8771 
8877 &8968 $053 9451 $662 9875 9902 $9338 
10410 10966 11096 

est$cs_ lock 3289 2522 

ost$cst_trace_ contro}! 3685 1175 

ost$date_ time 6077 6060 

ost$debug_ code 3249 3237 

est$debug list 3245 3149 

est$debug list_entry 3236 3245 

ost$debug mask 3255 3148 4755 10838 10838 

,ast$exchange package 3098 25098 

ostS$execute privilege 2713 2695 2708 

ost$execution_control biock 2508 1187 2534 4387 5006 5540 5541 5547 5554 

; 5555 S561 5567 5764 6568 6864 7085 7197 

7305 7418 7474 7519 7571 7610 7623 7802 
7952 8130 8214 8415 8529 8602 8762 8773 
8781 8889 $224 $363 9454 $4397 9532 10166 
10230 10427 10434 10835 10889 11100 11103 

oest$external_interrupt request 3673 1163 

ost$fami ly name 2346 2341 

ost$flags 2155 3105 8484 8486 8669 8671 

/ost$frame_descriptor 3213 3228 

ost$free running clock 1521 1287 1288 1289 1230 1324 1334 1335 1336 
1453 1465 2097 2249 2258 2540 3894 4692 
4796 4803 4804 4844 4845 4857 4858 4305 
6189 6130 $9032 $112 

est$global_task_id 1071 $6 583 1152 1281 1310 2245 2519 2520 
3334 3537 3896 3984 4859 43s7s 4388 4398 
5008 5016 5024 $744 $751 5757 5918 $918 
6353 6353 6380 6465 6506 6545 6559 6570 
7353 7376 7417 T7473 7518 7563 7745 7767 

7333 8045 8112 8183 8260 10956 10971 

~ost$halfword 2004 2460 

ost$idie_type 2483 2478 

ost$key_ lock 1974 2701 2822 

/ost$key_ lock value 1980 1977 3172 3174 


aX REFERENCE ABBREVIATIONS : Mtmodify, Azattribute, S:subscript, I2I1/0 ref, Rtread, Wewrite, P=2parameter 


REFERENCES OF tmm$dispatcher 


IDENTIFIER------------ ert eeeee 


ost$keypoint 
ost$keypoint_class 
ost$keypoint_control 
ost$keypoint_environment 
ost$keypoint_mask 


ost$keypoint_multipro_option 
ost$tlogical_processor_id 
ost$minimum_save_area 
ost$monitor condition 
ost$monitor conditions 
ost$monitor_ fault 
ost$monitor fault_contents 
ost $name 


ost$p_register 

estSpage_id 

ost$page_ size 
ost$page_table_entry 

ost$page_ table_index 
ost$paging statistics 
ost$parce! 

ost$pre_ processed for_reconfig 
ost$processor_element_id 
ost$processor_element_number 
ost$processor 
ost$processor 
eost$processor 
ost$processor 
ost$processor 
ost$pva 
eost$read_ privilege 
ost$real_memory address 
ost$register number 

est$ring 
ost$ringi_termination_reason 
ost$segment 


keypoint_control 
model number 
seriail_number 


ost$segment_access_ contro! 
ost$segment_descriptor 
ost$segment_length 
ost$segment_ offset 
ost$stack_frame_save_area 
est$state tables 
ost$status 

ost$status condition 
ost$status_ condit ion_code 
ost$string 

ost$string size 
ost$system_flag 
ost$system_virtual address 
ost$task_index 


*EX 


REFERENCES OF tmm$dispatcher 


IDENTIFIER------ weet eee eee ~-DEFINED---- 
ON LINE 


ost$task_time_slice 
ost$top_of stack pointer 
ost$trap_enable 
ost$user_condition 
ost$user_ conditions 


ost$user identification 
ost$user name 

ost$valid relative _pointer 
ost$valid_ring 

ost$vector_ simulation_contro! 
ost$virtual_machine_identifier 
ost$wait 

ost$write_ privilege 

ost$x_ register 
esv$cpus_logically_on 


osv$cpus_ physically configured 


osv$keypoint contro} 
osv$special_aam_trap 
osv$trap_task_errors 


P_register 

parent global_task_id 
parent global_task_id 
pit_count 

pit value 

pit value 
pmc$kill_task_flag 
pmc$max_ signal contents 
pmc$max_task_id 
pmt$binary_mainframe_id 
pmt$condition_identifier 
pmt$cpu_model_number 
pmt$cpu_serial number 
pmt$initializat ion_vatlue 


** x 


DEFINED 
ON LINE 
6049 
3187 
5379 
6040 
3189 


REFERENCE ABBREVIATIONS 


1816 
3158 
3192 
3084 
3091 


2339 
2344 
19394 
1986 
5901 
3180 
4731 
2719 
3167 
5931 


NOS/VE CYBIL/TII1 


-“---°--REFERENCES 


6866 


NOS/VE CYBIL/II 1.0 88102 
w-cceees-+REFERENCES 
6059 
3118 3189 
5942 
59386 
3121 5985 
&599 8664 
5987 
1148 
3116 3198 
3081 
3111 3115 
3376 
34406 
2235 2344 
6328 
3099 3224 
1911 
2408 
1915 2068 
1915 2137 
1643 2549 
1169 1170 
1178 
2447 
2461 
2512 3265 
2511 5781 
6001 
2352 2462 
2353 2463 
3143 3161 
2696 2709 
1168 
3140 3209 
1997 2698 
2545 
1998 2816 
5568 8212 
2835 
2667 
2818 2820 
1928 1999 
3231 3464 
56393 
588 2829 
275 606 
227 248 
228 
266 
3601 5745 
2142 
102 1182 
6594 6646 
M=emodify, 


1.0 83102 


2414 
2413 
3893 


Aztattribute, 


5985 5385 
8668 

3431 

3203 3506 
2346 2568 
3438 3504 
$782 5303 
4045 

4044 

3175 3428 
3217 3218 
2699 2733 
2946 3138 
8411 8412 
2842 2844 
2748 3240 
3499 

2170 2171 
6661 6677 


7081 7082 
7196 7291 
7608 8280 
$223 $283 
$946 9947 
10973 109373 
3201 3230 
10850 

3901 3904 
3225 

6490 6494 
75293 7547 
7806 7927 
8134 8176 
8508 8532 
8783 8870 
9100 9104 
$339 9469 
S655 $951 
10246 10461 
10981 10988 
7898 7379 
9623 S647 
11151 

8480 8652 


8006/M 8006 


$363 $964 
8736/M &736 


Sssubscript, 


1989-08-21 


5385 8417 8477 
3520 
2632 3469 6327 
53995 10240 
3521 6383 
3219 
2813 2814 3160 
3239 3895 4970 
2847 
3242 
4832 4931 4944 
6678 6731 6747 
I=I/O ref, Reread, W 
1989-08-21 
7083 7084 7182 
7301 7302 7303 
8239 8315 8316 
9356 $3593 9455 
10164 10425 10436 
11072 11073 11102 
3467 3507 9022 
6502 7450 7454 
7573 7539 7653 
7956 7983 8017 
8265 8270 8282 
8553 8607 86190 
8837 8361 $004 
$211 $247 §250 
89486 $504 95839 
gss75 190137 10141 
10523 10583 10533 
11022 11107 11155 
8172 8227 84939 
10201 105198 10550 
8653 8654 8660 
9007 $168 
8738 


13:33:34 PAGE 1192 


8483 


6327 


5553 


6381 
6748 


zswrite, Ptparameter 


13:33:34 PAGE 1193 


7193 
7304 
8778 
94396 
10833 


$156 


REFERENCE ABBREVIATIONS : Mzmodify, Atattribute, S=subscript, I21/0 ref, R=read, Wewrite, P=parameter 


REFERENCES OF tmm$dispatcher NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 1194 
IDENTIFIER------ Sune ee aS Sate sme DEFINED = 3s2 see = Soe = REFERENCES 
ON LINE 
pmtS$sense_ switches 2441 2259 
amt$signal 3544 3538 5025 5758 
emt$signal_contents 3582 3546 
pmt$signal_id 3549 3545 
pmt$task_id 3340 2536 3335 
pmt$vector simulation 5908 5902 
"‘preselect_ loop 6944 6944 6950 6957 
preselect_ loop 7766 7866 7866 7866 7838 7898 7898 
preselect_ loop 79332 73979 73979 7379 
preselect_ loop 8110 8172 8172 8172 
preselect_loop 8182 8227 8227 8227 
preselect_ loop 8381 8499 8499 8499 
presetect_ loop 8581 8630 8630 8630 
“preselect_ loop 9349 9406 9406 9406 
preselect_ loop 9446 $479 $479 9479 
preselect_ loop 9584 9623 9623 9623 9647 9647 9647 
preselect_ loop 10157 10201 10201 10201 
preselect_ loop 10408 10519 10519 10519 10550 10550 10550 10579 10579 
10579 
preselect_ loop 10879 10925 10925 10925 
“preselect loop 11095 111398 11139 11139 11151 11151 11151 
previous_ index 8276 8288/M &8288/M 8288/5 8288 8288 
previous index 8316 &8320/M 8329/M 8341/Ss 8343 8344 
previous index 10408 10561/M 10561/M 10561/S 10561 10561 
previous index 11095 11124/M 11124/M 11124/S 11124 11124 
priority 1322 9201 $202 $202 $203/M 9203 $205 $206/M 9206 
priority 10428 1O669/M 10673 1OB72 1O674/S 10711 10713 10715 1O0720/M 
priority mask 6402 6414 
process _ interval timer 1 3127 8733 99324 S956 9963/M 
process _ interval_timer_2 3129 &734 $925 9957 S3964/M 
processor _ selections 2511 6948 7866 7898 7379 8172 8227 8499 8630 
$406 9479 $623 9647 10201 10240 10241/M 10519 
10550 10579 10685 10825 111398 11151 
processor state 1149 10594 
“processors logically _on 5781 10240 10241 
psuedo rb 7800 7813/M 7814/M 7815/M 7816/M 7817/M 7818/M 7821/P 
ptk$new_ job _name_1 935 8474 
otk$new job _name_2 $38 8475 
ptk$per formance_ base 803 908 911 $14 $17 920 $23 $26 $23 
$32 $35 $38 941 944 947 850 953 
956 3593 962 965 968 971 974 377 
$80 983 986 989 992 $35 998 1001 
1004 1007 1010 1013 1016 1019 1022 1025 
1028 1031 1034 1037 1040 1043 1046 1049 
1052 1055 1058 1061 1064 1067 1070 1073 
1076 1079 1082 1085 1088 1091 1094 1087 
1100 1103 1106 1109 1112 1115 1118 1121 
1124 1127 
~pti_filags 4941 7836 7922 7923 7924/M 8850/M 8327/M 9143 9163 
$169/M $171/M 9180/M 9426/M 10801 10804/M 10848 
pti_lock_set 5669 5671/M 
/ ptilp 4893 10105 10106/P 10108/M 10110/M 10111 
“pti_p 6595 6607/M 6608 6614/M 6616/M 6623/M 6624/M 6625/M 6626/M 
EX REFERENCE ABBREVIATIONS Memodify, Azattribute, Sssubscript, If1/0 ref, Rtread, W-write, P*parameter 


REFERENCES OF tmm$dispatcher NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 1195 
IDENTIFIER----- eer r- ere rr tee DEFINED------- eee rere ee REFERENCES 
ON LINE 

6627/M 6627 6628/M 6629S /M 6630/M 6631/M 6632/M 6633/M 
6635 

pti_p 7801 7808/M 7809/P 7810 7816 7836 7837 7838 7839 /M 
7848 7848 7849 7850/M 78S3 78693 7876 7877/P 
7878 7882 7882 7888 7890/M 7891/M 7832/P 7893 
783935/M 7909 7310/P 7313 7914/P 7922 7923 7924/M 

ptil_p 7953 7958/M 7359/P 7963 7364 7364 73967/M 7969 7971/M 
7972/P 7973/M 7974 7976/M 713878 

pti_p 8065 8068/M 8074 8O74 8078 8087/M 8102/M 

ptl_p 8131 8136/M 8137 &8140/P 8146 8148/M 8151 8151 8152 
8152 8156 8157 8157 8160/M 8162 8164/M 8165/M 
8166/P 8167 8169/M 8170 

pti_p 8185 8217 8218 8223/P 8225/M &8249/P 8251/M 8252/M 8253/P 

ptlop 8263 8267/M 8268 8269/5 

pti_p 8381 8445/M 8445 8445/M 8445 /M 8445/M &8445/M 8445/M 8445/M 
8445/M 8445 8445/M 8445/M 8445/M 8445/M 8445 /M 8445/M 
8445 

pti_p 8581 8608/M 8608 8608/M 8608/M 8608/M 8608/M 8608/M 8608/M 
8608/M 8608 8608/M 8608/M &8608/M 8608/M &8608/M 8608/M 
8608 

pti_p 108375 10998/M 10939/M 11000/M 11001/M 11002/M 11003/M 11004/M 11005/M 
11006/M 11007/M 11008/M 11009 /M 11010/M 11019 

ptil_ thread 49331 6608 6650/M 6654/M 6696 6698 6701 6707 6712/M 
6712 6723/M 6761 6766 6771/M 6771 6971/M 6981/M 
7007/M 7020/M 7020 7021/M 7030 7034/M 7034 7035/M 
7037 7O41/M 7042/™M 7054 7054 7054/M 7054 70S4/M 
7054 7054/M 7054 7054 7054 7054 7054 7054/M 
7054 7054/M 7054 7054/M 7054 7056 7056 7056/M 
7056 7056 7056/M 7056 7056/M 7056 7OS6 7086 
7056 7056 7056 TO56/M 7056 7056/M 7056 7056/M 
7056 7058 7058 7058 7058 7058/M 7058 7058/M 
7058/M 7104 7110 7112/M 7112 7114/M 7114 7115/M 
7133 7146 7155 7160 7163 7168/M 7168 7169/M 
7169 7170/M 7171 7216 7222 7224/M 7224 7227 
7229 /M 72293 7230/M 7243 7255 7265 7269 7272 
7275 7277/M T7277 7278/M 7278 7279 /M 7280 7318 
7324 7327 7330 7333/M 7333 7335/M 7336/M 7864 
7864 7864 7864 7864/M 7864 7864/M 7866/M 7866/M 
7866/M 7866/M 7866 7866/M 7866 7866/M 7866 7866/M 
7866 7866/M 7866/M 7866 7866 7866/M 7866 7866/M 
7866 7T866/M 7866 7866 7866 7866 7866 7866/M 
7866 7866/M 7866 7866/M 7866 7866 7866 7866/M 
7866 7866 7866/M 7866 7866/M 7866 7866 7866 
7866 7866 7866 7866/M 7866 7866/M 7866 7866/M 
7866 7866 7866 7866 7866 7866/M 7866 7866/M 
7866/M 7898/M 7898/M 7898/™M 78938/M 7898 7898/M 7898 
7898/M 7898 783938/M 7898 7898/M 7898/M 7898 7898 
7898/M 7838 7898/M 7898 7898/M 7898 7898 7898 
7898 7898 7898/M 7838 78938/M 7898 7898/M 7898 
7898 7898 7838/M 7898 7838 78238/M 7898 7898/M 
7898 78398 7898 7838 7838 7898 7898/M 7898 
7898/M 7898 78988/M 7898 7898 7898 7898 78398 
78S8/M 78S8 7838/M 7898/M 7373 /M 7979/M 7979 /M 7979 /M 

*#* REFERENCE ABBREVIATIONS Msmodify, Azattribute, Sssubscript, It1/0 ref, R=read, W:write, P=parameter 


REFERENCES OF tmm$dispatcher NOS/VE CYBIL/II 1.0 88102 1989-08-21 13:33:34 PAGE 1196 
IDENTIFIER “+r e-s ese ee ee een ewe DEFINED=ce eee e eee ee eee REFERENCES 
ON LINE ; 
7373 7979/M 7379 7979/M 7379 7979 /M 7379 7379/M 
7879 /M 7379 79793 7979/M 7379 739793/M 793793 79739/M 
7379 79378 7879 7379 7878 7379 /M 73979 7379/M 
78373 79379/M 7379 7379 7979 79373 /M 73793 7979 
79793 /M 7379 7979 /M 7879 7379 7379 713979 73793 
7379 7979/M 73979 783793/M 7979 7979 /M 7379 7979 
73979 73879 7379 739739 /M 7379 7979/M 7979/M 8172/M 
8172/M 8172/M 8172/M 8172 8172/M 8172 8172/M 8172 
8172/M 8172 8172/M 8172/M 8172 8172 8172/M 8172 
8172/M 8172 8172/M 8172 8172 8172 8172 8172 
8172/M 8172 8172/M 8172 8172/M 8172 8172 8172 
8172/M 8172 8172 8172/M 8172 8172/M 8172 8172 
8172 8172 8172 8172 8172/M 8172 8172/M 8172 
8172/M 8172 8172 8172 8172 8172 8172/M 8172 
8172/M 8172/M 8227/M 8227/M 8227/M 8227/M 8227 8227/M 
8227 8227/M 8227 &8227/M 8227 8227/M 8227/M 8227 
8227 8227/M 8227 &8227/M 8227 8227/M 8227 8227 
8227 8227 8227 &8227/M 8227 8227/M 8227 8227/M 
8227 8227 8227 8227/M 8227 8227 8227/M 8227 
8227/M 8227 8227 8227 8227 8227 8227 8227/M 
8227 8227/M 8227 &8227/M 8227 8227 8227 8227 
8227 8227/M 8227 8227/M 8227/M 8445 8499/M 8499/M 
8499 /M 8499/M 84g8 84939/M 84399 8499/M 8499 8499/M 
8498 8499/M 8439/M 84998 8499 8499/M 8499 8499/M 
8499 8499/M 84998 8498 84399 843993 8499 8499/M 
84993 8499/M 8499 &8499/M 84398 8495 8499 8499/M 
8439 8499 84939/M 8499 8499 /M 8499 8499 8499 
8499 84g9 84399 8499/M 84ag9g 8499/M 8499 8499/M 
8499 84ag9 84asg9 8498 8499 8499/M 84g9 8499/M 
8499 /M &8544/M 8544/M 8608 8630/M 8630/M 8630/M 8630/M 
8630 8630/M 8630 8630/M 8630 8630/M 8630 8630/M 
8630/M 8630 8630 8630/M 8630 &8630/M 8630 8630/M 
8630 8630 8630 8630 8630 8630/M 8630 8630/M 
8630 &8630/M 8630 8630 8630 8630/M 8630 8630 
8630/M 8630 8630/M 8630 86306 8630 8630 8630 
8630 8630/M 8630 &8630/M 8630 &8630/M &8E30 8630 
8630 8630 8630 8630/M 8630 8630/M 8630/M &8741/M 
8741/M 9406/M 9406/M S406/M S406/M 9406 8406/M $406 
9406/M 9406 9406/M 9406 9406/M 9406/M 9406 8406 
8$406/M 9406 9406/M 9406 9406/M 9406 8406 9406 
9406 9406 9406/M S406 9406/M 3406 9406/M $406 
9406 9406 9406/M 9406 $406 S8406/M 9406 S9406/M 
9406 S406 9406 9406 9406 9406 9406/M 9406 
9406/M 9406 93406/M 9406 9406 8406 9406 9406 
$406/M 9406 9406/M 9406/M 9417 9417 9417 $417 
9417/M 9417 9417/M 9479/M 9473 /M 9479/M $479/M 9479 
9479 /M 9479 94739 /M 9479 94793/M 9479 8479/M 9479/M 
9479 9479 9479/M 9479 9473 /M 9479 94735/M 94793 
$4793 9479 9479 9473 9473 /M 94793 8479/M 9479 
9479 /M 94793 947938 94793 9479/M 9479 9479 9479/M 
9478S 8479 /M 9479 9479 $4793 9479 9479 9479S 
9479 /M 94793 9479/M 9479 9479 /M $479 9479 9473 
94793 $479 9479/M 9478 $4739 /M 9473 /M 9528 9528 
* x REFERENCE ABBREVIATIONS Memodify, Atattribute, Stsubscript, It1/0 ref, Reread, Wtwrite, Psparameter 
REFERENCES OF tmm$dispatcher NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 1187 
IDENTIFIER---*-e-e-- eee et eer rt eee DEFINED--=--+++s+++2s-"%e6 REFERENCES 
ON LINE 
9528 9528 $528/M $528 9528/M $562 9562 8562 
$562 9562/M $562 9562/M $623/M 9623/M §$623/M 8623/M 
$623 8623/M $623 §623/M $623 9623/M 9623 9623/M 
9623/M $623 $623 9623/M $623 9623/M 9623 §623/M 
9623 9623 8623 $623 9623 $623/M 9623 9623/M 
9623 9623/M $623 / 9623 9623 §9623/M 9623 9623 
9623/M $8623 9623/M 9623 8623 8623 $623 $623 
$623 9623/M $623 8$623/M $623 §623/M 9623 §623 
9623 9623 9623 §9623/M $623 $623/M 9623/M 9647/M 
9647/M 9647/M 9647/M 9647 $647/M 9647 9647/M S647 
9647/M $647 8647/M 9647/M 9647 $647 9647/M 8647 
9647/M 9647 9647/M 9647 9647 9647 9647 9647 
9647/M 9647 S647/M 9647 S647/M 9647 8647 9647 
9647/M $647 9647 9647/M $647 9647/M 8647 9647 
9647 9647 9647 9647 9647/M 9647 9647/M S647 
9647/M 9647 $647 9647 9647 9647 $647/M 9647 
9647/M 8647/M 10108/M 10110/M 10116/M 10198 10198 10198 
10198 101938/M 10198 10188/M 10201/M 10201/M 10201/M 10201/M 
10201 10201/M 10201 10201/M 10201 10201/M 10201 10201/M 
10201/M 10201 10201 10201/M 10201 10201/M 10201 10201/™M 
10201 10201 10201 10201 10201 10201/M 10201 10201/M 
10201 10201/M 10201 10201 10201 10201/M 10201 10201 
10201/M 10201 10201/M 10201 10201 10201 10201 10201 
10201 10201/M 10201 10201/M 10201 10201/M 10201 10201 
10201 10201 10201 10201/M 10201 10201/M 10201/M 10519/M 
10519/M 10519/M 10519/M 10519 10519/M 10513 10519/M 105193 
10519 /M 10519 10513/M 10519/M 10519 10519 105139/M 10519 
10513/M 10519 10519/M 10518 10518 10518 10519 105193 
10519/M 10519 10519/M 10519 10519 /M 10519 10519 10519 
10519/M 10519 10519 10519/M 105198 10519/M 10513 10519 
10519 105193 10519 105193 1051393/M 10519 10519/M -10519 
10519/M 10519 105193 10519 10518 10519 10519/M 10519 
10519/M 10513/M 10550/M 10550/M 10550/M 10550/M 10550 10550/M 
105850 10550/M 10550 10550/M 10550 10550/M 10550/M 10550 
10550 10550/M 10550 10550/M 10550 10550/M 10550 10550 
10550 10550 10550 10550/M 10550 10550/M 10550 10550/M 
10550 10550 10550 10550/M 10550 10550 10550/M 10550 
1O0550/M 10550 10550 10850 10850 10550 10550 10550/M 
10550 10550/M 10550 10550/M 10550 10550 10550 10550 
10550 10550/M 10550 10550/M 10550/M 10573/M 10579/M 10579/M 
10573 /M 10579 10579/M 10579 10579/M 105793 10579/M 105793 
10579/M 10579/M 10579 10579 10879/M 10579 10579/M 10579 
10573 /M 10579 10573 10573 10579 105793 10573/M 10573 
10573 /M 10579 10573/M 10579 10579 10579 10578/M 10579 
10579 10579/M 10579 10579/M 10579 10579 10579 10579 
10579 105793 105738/M 10579 105739/M 10579 10573/M 10579 
10579 10579 1058783 10879 105739 /M 10579 10579/M 10578/M 
10704 10725 10725 10725 10725 10725/M 10725 10725/M 
10925/M 109825/M 10925/M 10925/M 10325 10825/M 10925 10925/M 
109825 10825/M 10925 10825/M 109825/M 10925 10825 10825/M 
10825 10925/M 10925 10925/M 10825 10925 109825 109825 
10925 109325/M 10925 109325/M 10925 10925/M 10925 10925 
10825 10925/M 10825 10825 10825/M 10925 10925/M 109825 
*** REFERENCE ABBREVIATIONS Msmodify, Atattribute, Sssubscript, I21/0 ref, Rzread, Wewrite,”*P=parameter 


>: Metmodify, Azattribute, Stsubscript, 1121/0 


REFERENCES OF tmm$dispatcher NOS/VE CYBIL/II 1.0 89102 1889-08-21 13:33:34 PAGE 1198 
IDENTIFIER-- cere er eee wee eee eee DEFINED-------2-+ee+-56 REFERENCES 
ON LINE 
10925 10925 10825 10925 109325 10925/M 10925 10925/M 
10925 10825/M 10825 10825 10925 10825 10825 109325/M 
10325 10825/M 10925/M 109397 10997 109397/M 10997 10999/M 
11078 11086/M 11086/M 11139/M 11139/M 11139/M 11139/M 11139 
11139/M 11139 11139/M 11139 11139/M 11139 11139/M 11133/M 
11139 11139 11139/M 11139 11139/M 11139 11133/M 11139 
11139 11139 11139 11139 11139/M 11139 11139/M 11139 
11139/M 11139 11139 111393 11139/M 11138 11139 11139/M 
11139 111338/M 11139 11139 11139 11138 11139 11139 
11139/M 11139 11139/M 11139 111393/M 11138 11139 11139 
11139 11139 11139/M 11139 11139/M 11139/M 11151/M 11151/M 
11151/M 11151/M 11151 11151/M 11151 11151/M 11151 11151/M 
11151 11151/M 11151/M 11151 11151 11151/M 11151 11151/M 
11151 11151/M 11151 11151 11151 11151 11151 11151/M 
11151 11151/M 11151 11151/M 11151 11151 11151 11151/M 
11151 11151 11151/M 11151 11151/M 11151 11151 11151 
11151 11151 11151 11151/M 11151 11151/M 11151 11151/M 
11151 11151 11151 11151 11151 11151/M 11151 11151/M 
11151/M 
ptie_p 66793 6681/M 6682/5 6693 6696 6698 6701 6723/M 6724/S 
“ptle op 6749 6751/M 6761 
ptle_p 6878 6881/M 6912 6913/M 6913 6915/M 6919 6320/M 6329 
6930/M 6340/S 638839/S 6991/M 7004/S 7007/M 7013 7015/8 
7020/M 7030 7034/M 7037 7042/M 7062/S 
ptie_p 7766 7864/M 7864/S 7864 7864 7864 7864 7864/M 7864/S 
ptie_p 7766 7866/M 7866 7866/M 7866 7866/M 7866 7866/M 7866 
7866/M 7866/S 7866/S 7866/M 7866/S 7866/M 7866 7866/S 
7866/M 7866 7866/M 7866 7866/M 7866/S 7898/M 7898 
7898/M 7898 7898/M 7838 7898/M 78398 7898/M 7898/S 
7898/S 7838/M 7898/S 7898/M 7898 7898/S 7898/M 7898 
7T898/M 78398 7898/M 7898/S 
ptie_p 7766 7877 71877 7877/S 7877 7877 7877 7877/S 7877 
7877/M 7877/M 
ptile op 71932 79739/M 7979 797393 /M 719793 7979/M 7979 7373 /M 79793 
7979 /M 7979/S 7979/8 78739/M 7979/S 7979 /M 7979 7979/S 
7973 /M 73979 7379/M 1979 7979/M 7373/8 
ptle_p 8110 &8172/M 8172 8172/M 8172 8172/M 8172 8172/M 8172 
8172/M 8172/S 8172/S 8172/M 8172/S 8172/M 8172 8172/8 
8172/M 8172 8172/M 8172 8172/M 8172/S 
ptle_p 8182 8223 8223 8223/58 8223 8223 8223 8223/S 8223 
8223/M &8223/M 8249 82438 8249/5 82493 8249 8249 
, 8249/S 8249 82439/M 8243 /M 
ptie p 8182 8227/M 8227 8227/M 8227 8227/M 8227 8227/M 8227 
8227/M 8227/58 8227/S 8227/M 8227/5 8227/M 8227 8227/58 
8227/M 8227 8227/M 8227 8227/M 8227/S 
ptie_p 8359 8362 8363 8365/S 8365 8368 83693 8371/S 8371 
8374/M 8375/M 
ptie_ op 8381 8499/M 8499 8499 /M 84993 8499/M 8499 8499 /M 8499 
8499 /M 84as9/s 8499/5 84399 /M 8499/S 843939 /M 8499 8439/S 
8499/M 8439 8499/M 8499 8499/M 8499/S 
ptile op 8581 8630/M 8630 8630/M 8630 8E30/M 8630 8630/M 8630 
8630/M 8630/S 8630/5 8630/M 8630/58 8630/M 8630 8630/5 
8630/M 8630 8630/M 8630 8630/M 8630/S 
* * x REFERENCE ABBREVIATIONS Mzsmodify, Atattribute, Stsubscript, I:zIl1/O ref, Reread, Wewrite, P:parameter 
REFERENCES OF tmm$dispatcher NOS/VE CYBIL/II1 1.60 89102 1989-08-21 13:33:34 PAGE 11998 
IDENTIFIER------ ie erie Rin ene lei ae me DEFINED------+-rere rene ~REFERENCES 
ON LINE 
ptle_p 8397 9018/M 9020 9023 $024 3$026/M 9027/M 9034/M 9036/M 
§$038/M 9042/M 9044/M 3047/M 
ptie_p $091 $134/M 9135/M 9141 9143 9153 9154 9157 9158 
9153/M 9160/M $163 $169/M 9171/M 9173/M 9180/M 9181/M 
ptie_p $349 9406/M 9406 9406/M 9406 S&806/M 9406 9406/M 9406 
9406/M 9406/S 9406/S 9406/M 9406/S 9406/M 9406 9406/S 
9406/M 9406 9406/M 9406 9406/M 9406/S 
ptle_ op 9349 $417/M 9417/5 9417 9417 9417 9417 9417/M 9417/S 
ptle op 9446 $479/M 9479 9$4739/M 9479 9479/M 9479 9479/M 9479 
9479 /M 9479/S 9479/8 9479/M 9479/58 39479 /M 9479 9479/S 
: 9479/M 9479 9479 /M $479 $479/M 9479/S 
ptle op 9491 9528/M 9528/S $528 9528 9528 9528 9528/M 9528/S 
9562/M 9562/S 9562 S562 9562 $562 9562/M $562/S 
ptie p 9584 9623/M 9623 9623/M $623 $623/M $3623 9623/M 9623 
9623/M $623/S 9623/5 §623/M $623/S 9623/M 9623 8623/58 
9623/M 9623 9623/M 8623 9623/M 9623/S S9647/M 9647 
9647/M S647 $647/M 9647 9647/M 9647 9647/M 9647/S 
9647/S $647/M 9647/S 89647/M 9647 $647/S 9647/M 9647 
9647/M 9647 9647/M 9647/S 
ptie p 10157 10198/M 10198/S 10198 10198 10198 10198 10188/M 10198/S 
ptile_p 10157 10201/M 10201 10201/M 10201 10201/M 10201 10201/M 10201 
10201/M 10201/S 10201/S 10201/M 10201/S 10201/M 10201 10201/8 
10201/M 10201 10201/M 10201 10201/M 10201/S 
ptle_p 10165 10192/M 10197 10199/M 10203/M 
ptile_p 10408 10519/M 10519 1051393/M 10513 10519/M 105139 10519/M 10519 
10519/M 10819/S 10519/S 10519/M 10519/S 1051393/M 10519 10519/5S 
10519/M 10519 1051S/M 10519 10519/M 10519/S 10550/M 10550 
10550/M 10550 10550/M 10550 10550/M 10550 10550/M 10550/S 
10550/S 10550/M 160550/58 10550/M 10550 10550/S 10550/M 10550 
10550/M 10550 10550/M 10550/S 10579/M 10579 10573/M 10879 
10579/M 10579 10579/M 10579 10573/M 10573/S 10573/S 10573/M 
10578/S 10579/M 10578 10579/S 10579/M 10578 10579/M 10573 
10579/M 10579/S 
ptie_p 10408 10550/M 10550 10550/S 10550/M 10550 10550 10550/P 10550 
10550/M 10550 10550/M 10550/P 10550 10550/M 10550 
ptile_p 10408 10725/M 10725/S 10725 10725 16725 10725 10725/M 10725/S 
ptile op 10435 10473/M 10480 10527 10528/M 10556 10557/M 10587 10558/M 
10560 10563 10563 10564 105693 10575 10576/M 10581/M 
10582/M 10633/M 10635 106393 10677/M 10678 10682 10781/M 
10784 10787 10790 10783 10794/M 10796 10797 10798/M 
10801 10804/M 
ptle_ p 19879 10925/M 10925 10925/M 10925 10925/M 10925 10825/M 10925 
10825/M 10825/S 10825/5 10925/M 10825/S 10925/M 10925 10825/S 
10825/M 10925 10825/M 10825 10825/M 10925/S 
ptie_p 190891 10899/M 10900 10901/S 109302/M 10803 10303 108306/P 10907 
10808/M 103093 10912/M 10813/P 10816 10320/M 10921 
ptle_p 10964 108397/M 10897 
ptile p 11095 11139/M 11139 11138/M 111398 11139/M 11139 11139/M 11139 
11138/M 11138/S 111398/S 11139/M 11138/S 11139/M 11138 11139/8 
111338/M 11138 111339/M 11139 11133/M 11138/S 11151/M 11151 
11151/M 11151 11151/M 11151 11151/M 11151 11151/M 11151/S 
11151/S 11151/M 11151/8 11151/M 11151 11151/S 11151/M 11151 
11151/M 11151 11151/M 11151/58 
*** REFERENCE ABBREVIATIONS ref, Reread, Wewrite, P:parameter 


REFERENCES OF 


IDENTIFIER 


ptile_p 


ptilo 
ptilo 


ptio 
ptlo 


ptilo 


‘ptilo 
ptilo 


ptlo 


ptlo 


ptio 
ptilo 
ptlo 


ptio 


pt lo 


ptilo 


ptio 


ptio 


ptlo 


ptlo 


pt lo 
ptio 


REFERENCES OF 


IDENTIFIER 


ptilo 


pt lo 


ptlo 
ptlo 


ptilo 


ptilo 


ptio 


ptlo 


ptilo 
ptilo 


ptilo 


ptlo 


ptilo 


ptilo 
ptto 
ptilo 


ptlo 


ptlo 


pt lo 
ptilo 
ptlo 
ptio 
ptito 
ptilo 
ptlo 


ptlo 


tmm$dispatcher 


ee 


tmm$dispatcher 


DEFINED 
ON LINE 
11101 


6546 
6661 


6731 
6863 


6863 


6863 
6866 


7070 
7182 


7291 
7608 
7766 


7766 
7766 
7766 
7766 
7932 
7932 


79332 


7932 
8110 


REFERENCE ABBREVIATIONS 


DEFINED 
ON LINE 


8110 


$283 


REFERENCE ABBREVIATIONS 


NOS/VE CYBIL/II 


NOS/VE CYBIL/TII 


1.0 89162 
REFERENCES 

11117/M 11119 11120/M 
11127 11132 11138/M 
6648/S 6649/S 6650/5 
6681/S 6685 6695 
6713 6716 6719 
6751/S 6755 6760 
7054 TOS4 7054/S 
7054/Ss 7054 7054/S 
7054 
7056 7056 7086/S 
7056/S 7056 7056/58 
7056/S 7056 
7058 70588 7058/S 
6881/S 69387 7008 
7029 7031 7035 
7056/P 7058/P 
7092 7103 7103 
7160/S 7162 7163/8 
7172 
7204 7215 7215 
7269/S 7271 7272/Ss 
7280/S 7281 
7314 7317 7317 
7612/S 
7864/S 7864 7864 
7864 7864 7864 
7866/S 7866 7866 
7866 7866 7866 
7866/P 7866/P 7838/58 
7898 7898 7898 
7838 7898/P 7898/P 
7866 7866 7866/S 
7866/S 7866 7866/S 
7866 7898 7838 
7898 7898/8 7898 
7898/S 7898 
7866 7866 7866/S 
7866/Ss 7866 7866/S 
7866/S 7866 7898 
7898/S 78398 7898/S 
7888/8 7898 7898/S 
7866 7866 7866/S 
7379/S 7979 78793 
73793 7978 73793 
7979/P 7979/P 
79379 79793 7379/S 
7979/8 7979 7973/S 
7379 
7379 7979 7979/S 
79379/S 7979 7979/8 
7373/S 7379 
7979 7979 7379/8 
8172/8 8172 8172 

Msmodify, Atattribute, 


1.0 89102 
REFERENCES 

8172 8172 8172 
8172/P 8172/P 
8172 8172 8172/8 
8172/S 8172 8172/8 
8172 
8172 8172 8172/8 
8172/58 8172 8172/58 
8172/58 8172 
8172 8172 8172/8 
8227/8 8227 8227 
8227 8227 8227 
8227/P 8227/P 
8227 8227 8227/Ss 
8227/8 8227 8227/8 
8227 
8227 8227 8227/8 
8227/8 8227 8227/8 
&8227/S 8227 
8227 8227 8227/8 
8288/5 8288 8288 
8288 8288/S 8288 
8284 8285/S 8285/58 
8321/8 8324 8325 
8341 8343/S 8345 
8499/5 843s9g 8499 
gas9g 84939 8499 
8499/P 8499/P 
8499 8499 8499/S 
8439/S 84399 84383/S 
8499 
84939 8439 8499/5 
8493/5 8499 8439/S 
8499/S 8499 
8499 8499 8499/5 
8544/S 8544/Ss 8544/S 
&8630/S 8630 8630 
86390 8630 8630 
8630/P 8630/P 
8630 8630 8630/S 
8630/S 8630 8630/S 
8630 
8630 8630 8630/S 
8630/58 8630 8630/8 
8630/S 8630 
8630 8630 8630/S 
8741/S 8741/S 8741/8 
8754/M 8754 &8754/S 
8803/M 8813/58 8834/S 
883936/M 8913/S 83914/S 
§$255/S 
$232/M §$254 $254 
8264/M 9264/S 
§8295/M $297 $297 

Memodify, Azattribute, 


1 


1120 


6652 
6637 


6764 
7TOS4 
7054 


7056 
7086 


7058 
7003S 
7O36 


7105/8 
7166 


7217/8 
7274 


7319/58 
7864 


7866 
7866 
7898 
7838 
7888/P 
7866 
7866 
7898/S 
7898/58 


7866 
7866 
7838 
7838 
7898 
7866 
7973 
7979 


73979 
73798 


73979 
79379 


7979 
8172 


Subscript, I=:I1/0 ref, 


8172 


8172 
8172 


8172 
8172 


8172 
8227 
8227 


8227 
8227 


8227 
8227 


8227 
8288 
8288 
8287/58 
8327 
8347 
8499 
8439 


8439 
8499 


8499 
8499 


8499 
8544 
8630 
8630 


8630 
8630 


8630 
8630 


8630 
8741 
8754/M 
8835/S 
8327/8 


9255/P 


$298/S 


Stsubscript, 


11121/M 


6654 
6700 


6764 
7054 
7054/S 


7OS6 
7056/S 


7010 
7038 


7126 
7168/8 


7241 
7275/8 


7864 


7866 
7866 
7898 
7898 


7866 
7866/S 
7898 
7898 


7866 

7866/S 
7898/S 
7898/S 


78398 
7979 
73793 


7979 
7979/8 


73793 
7373/58 


8172 


8172 


8172 
8172/S 


8172 
8172/S 
8227 
8227 


8227 
8227/58 


8227 
8227/58 
8288 


8288/P 
8328 


84399 
8439 


8499 
8499/5 


8499 
8499/5 


8544 
8630 
8630 


8630. 
8630/5 


8630 
8630/58 


8741 

8754/58 
8850/S 
8329/58 


$259/S 


$2939/M 


Ist/O ref, 


1889-08-21 


11123 


6656 
6705 


6771/8 
7054/S 
7O54/$S 


7056/S 
7056/S 


7011 
7041 


7146/S 
7163/8 


7255/8 
7277/8 


7864 


7866 
7866 
7898 
7898 


7866/8 
7866/S 
7898 

7898/S 


7866/S 
7866/8 
78398 
7898 


7898 
7379 
7979 


7379/8 
7973/8 


7973/S 
7379/8 


8172 


1989-08-21 


8172 


8172/5 
8172/8 


8172/8 
8172/S 
8227 
8227 


8227/8 
8227/8 


8227/8 
8227/8 


8288 


8333 


84399 
8499 


8499/5 
8499/S 


8499/S 
8499/S 


8544 
8630 
8630 


8630/S 
8630/S 


8630/S 
8630/58 
8741 
8754 
8330/58 
9260/58 


$29338/S 


Rz=read, 


13:33:34 

11126 11126 
6705 6712/8 
6772 

7054/S 7054 
7054 7054/5 
7056/S 7056 
7056/5 7056 
7021 T7027 
7043 7054/P 
7148/S 7159 
T1790 7171/8 
7257/8 7268 
7278/5 7279 
7864 7864/S 
7866 7866 
7866 7866/P 
7898 7838 
7898 7898 
7866/S 7866 
7866 7866/S 
7898/S 7898/S 
7898/S 7898 
7866/S 7866 
7866/S 7866 
7838 7898/S 
7898/S 7898/S 
7898/S 78398 
7979 79379 
7373 7979/P 
7979/8 7379 
7979 73739/S 
7979/8 7379 
7979/8 79379 
8172 8172 

Wewrite, 


13:33:34 
8172 8172/P 
8172/8 8172 
8172 8172/8 
8172/S 8172 
8172/S 8172 
8227 8227 
8227 8227/P 
8227/8 8227 
8227 8227/8 
8227/8 8227 
8227/8 8227 
8288/5 8288 
8337/S 8339 
8499 8499 
8499 8499/P 
8499/S 84399 
8499 8499/S 
8499/5 8499 
8499/S 843g93 
8630 8630 
8630 8630/P 
8630/S 8630 
8630 8630/8 
8630/S 8630 
8630/S 8630 
8754/S 8754 
9261/S 9262/S 


Rsread, Wsewrite, 


PAGE 1200 


Psparameter 


PAGE 


P=parameter 


ae 


REFERENCES OF tmm$dispatcher 


NOS/VE CYBIL/II 


REFERENCES OF tmm$dispatcher NOS/VE CYBIL/II 1.0 89102 
IDENTIFIER-----e-e eee n eee eee DEFINED------------ ----REFERENCES 
ON LINE 
ptilo $349 9406/S 9406 
8406 9406 
9406/P 9406/P 
ptilo 9349 9406 9406 
9406/S 9406 
9406 
‘ptilo 9349 9406 9406 
9406/5 9406 
$406/S 9406 
ptilo 9349 8406 9406 
ptilo 9349 9417/S 9417 
9417 9417 
pt lo 9359 9380/M 9384 
9394/Ss 9396 
9403/5 9406/P 
9420/5 $422/S 
pt to 9446 9479/S 9479 
9479 9479 
9479/P 9479/P 
pt lo 9446 9479 9479 
9479/S 9479 
9479 
pt ilo 9446 9479 9479 
9479/58 9479 
9479/S 9479 
ptilo 9446 9479 9479 
ptio 9455 9464/M 9470 
9479/P $482/S 
pt lo 9491 9528/S 9528 
9528 9528 
9562 9562 
ptio 9496 9508/M 9514 
9526/S 9527/S 
9548 9548 
$561/Ss 9562/P 
ptilo 9584 $623/S 9623 
9623 9623 
9623/P 9623/P 
9647 9647 
9647 9647/P 
ptlo 9584 9623 9623 
Z 9623/S 9623 
9623 8647 
8647 9647/S 
9647/S 9647 
pte 9584 9623 9623 
9623/5 9623 
9623/S 9623 
9647/S 9647 
8647/S 9647 
ptio 9584 8623 9623 
pt ilo 9590 9602/M 9611 
a 9623/P 9626/S 
**= REFERENCE ABBREVIATIONS M=modify, 


1.9 89102 


IDENTIFIER------- +--+ -- eee eee DEFINED---------------- REFERENCES 
ON LINE 
8641/S 9642/S 
ptio 9880 $882/M 9883 
pt lo 10157 10198/S 10198 
10198 10198 
ptlo 10157 10201/S 10201 
10201 10201 
10201/P 10201/P 
ptilo 10157 10201 10201 
10201/S 10201 
10201 
ptlo 10157 10201 10201 
10201/S 10201 
10201/S 10201 
pt lo 10157 10201 10201 
ptilo 10164 10191/M 10192/5S 
ptilo 10408 10516/S 
ptio 10408 10519/S 10519 
10519 10519 
10519/P 10519/P 
10550 10550 
10550 10550/P 
10578 105793 
105793 10579 
ptilo 10408 10519 10519 
10519/S 10519 
10519 10550 
10550 10550/5 
10550/S 10550 
10578/S 10579 
10579 10579/S 
ptilo 10408 105819 10519 
10519/S 10519 
105193/S 10519 
10550/S 10550 
10550/S 10550 
10579 10579/S 
10579/S 10579/S 
pt lo 10408 10519 10519 
10579 10579 
“ptilo 10408 10530/M 10530 
pt to 10408 10550/M 10550/S 
pt lo 10408 10561/S 10561 
10561 10561/S 
ptlo 10408 10725/S 10725 
10725 10725 
ptilo 10436 10472/M 10473/S 
190633/S 10671/M 
10723 10725/P 
ptilo 10833 10848/S 
-ptilo 10866 10868 10869/5S 
ptilo 10879 10825/S 10825 
10825 10925 
10825/P 10925/P 
*x* REFERENCE ABBREVIATIONS M=modify, 


9406 
9406 


9406/S 
9406/S 


9406/S 
9406/S 


9406/S 
9417 
9417 
9384 
9397/M 
9409/58 
9426/58 
9479 
9479 


9479/S 
9479/8 


9479/S 
9473/S 


9479/S 
94706 
9483/M 
9528 
9528 
3562/S 
9514 
9528/P 
9549/S 
9563/S 
$623 
9623 
9647/S 
9647 
9647/P 
9623/8 
$623/S 
9647 
$647 


§$623/Ss 
9623/S 
$647 

9647/S 
9647/S 
$623/S 
9611 

$628/M 


Az-attribute, 


9645/S 

9883/S 
10198 
10188 
10201 
10201 


10201/S 
10201/S 


10201/S 
10201/S8 


10201/S 
10198/P 


10519 
10518 
10550/S8 
10550 
10550/P 
10579 
105793 
10519/S 
10519/S 
10550 
10550 
10579 
10579/S 
10579 
10519/8 
10519/S 
10550 
10550/S 
10550/S 
10579/S 
10579/S 
10519/S 
10579/S 
10530/S 
10550/P 
10561 
10561 
10725 
10725 
10524 
10674/M 
10733 


10870/S 
10825 
10825 


Azattribute, 


9406 
9406 


9406 
9406 


9406 
9406 


9406 
9417 


9385/S 
$398 
9410/M 
9429/M 
$479 
9479 


9479 
9479 


9479 
9479 


9479 
9471/S 
9483/S 
9528 
9562/S 
9562 
9515/S 
9529/S 
9554/S 
9565/S 
$623 
9623 
9647 
9647 
9647/P 
9623 
9623 
9647/S 
9647/5 


$623 
9623 
$647 
9647 
9647 
9623 
$612/S 
9628/S 


S=subscript, 


9647/P 
$883 
10198 


10201 
10201 


10201 
10201 


10201 
10201 


10201 
10201/P 


10519 
10519 
10550 
10550 
10550/P 
10573 
10579/P 
10519 
10519 
10550/S 
10550/S 
10579 
10579 


10519 
10519 
10550 
10550 
10550 
105793 
10579 
10519 
10579 
10530/M 


10561 
10561 
10725 


10561/P 
10676 
10783 


10870/S 
10825 
10925 


S=tsubscript, 


9406 
9406 


9406 
9406/S 


9406 
9406/S 


9417 


9387/S 
$398 
$410/S 
9429/58 
9479S 
9479 


$479 
$479/S 


9479 
9479/S 


$472/S 


$528 
$562 
$562 
9520/S 
9531/58 
9555/S 
9567/S 
8623 
$623 
9647 
9647 


$623 
9623/S 
$647 
9647 


$623 

9623/S 
§647/S 
9647/S 


9647 
9616/S 
$635 


1=1/0 


86S0/S 
$883/S 
10198 


10201 
10201 


10201 
10201/8S 


10201 
10201/S 


10519 
10519 
10550 
10550 
10579/S 
10573 
10579/P 
10519 
10519/S 
10550 
10550 
10573/S8 
105739/S 


10519 
10513/S8S 
10550/S 
10550/S 
10579 
10579/S5 
10579/S 
10550 


10530/S 
10561 
10725 
10579/P 


10676 
10822 


109325 
10925 


r=1/o 


1889-08-21 


9652/M 
83884/M 
10198 


10201 
10201 


10201/S 
10201/S 


10201/S 
10201/S 


10519 
10519 
10550 
10550 
10579 
10579 
10579/P 
10519/S 
10519/S 
10550 
10550/S 
10579 
10579 


10519/S 
10519/S 
10550 
10550 
10579 
10579 
10579 
10550 


10530 
10561 
10725 


10588/M 
10677/S 


10825 
10925 


ref, 


1989-08-21 13:33:34 
940606 9406 9406 
9406 9406 9406/P 
9406/S 9406/5 9406 
9406/5 9406 9406/S 
9406/S 9406/S 9406 
9$406/S s406/S 9406 
9417 9417 9417/5 
9388/S 9389/S $390/S 
9$399/S 9400/S 9401/S 
9416/S 9417/P 9418/S 
9479 9479 9479 
9479 9479 9479/P 
9479/5S 9479/S 9479 
9479/5 9479 9479/S 
9479/5 9479/5 9479 
9479/S 9479/S 9479 
9473/5 9474/S 9477/S 
9528 9528 9528/S 
9562 9562 $562 
$562 
9521/58 9522/58 9523/S 
$533/S 9536/M 9536/S 
9556/S ss57/S s560/S 
S570/M 3570/5 
9623 9623 $623 
$623 $623 9623/P 
$647 $9647 $647 
9647 9647 9647 
$623/S 9623/58 $623 
9623/5 9623 9623/S 
$647 9647/S 9647/S 
9647/S 9647/S 9647 
9623/5 9623/S 9623 
9623/S §$623/S 9623 
9647 9647 9647/S 
9647 9647/S 9647/8 
9647 9647/S 9647 
9617/S 9618/S 9621/S 
9635 8636/S 9640/S 

ref, Reread, W-ewrite, 


13:33:34 

9652/S 

9$884/S 9886 
10198 10198/S 
10201 10201 
10201 10201/P 
190201/S 10201 
160201 10201/S 
10201/S 10201 
10201/S 10201 
10519 10518 
10519 10519/P 
10550 10550 
10550 10550 
10579 105793 
10579 10579 
10519/S 10519 
105193 10519/S 
10550/S 10550/S 
10550/S5 10550 
105783 10579/8S 
10579/S 10579/S 
10519/S 10519 
10519/5S 10519 
10550 10550/S 
10550/S 10550/S 
10579/S 105793 
160579/S 10579 
10550/S 10550 
10530/S 10530 
10561/S 10561 
10725 10725/S 
10598/M 10632/M 
10704/M 10704/S 
10825 10925 
10925 10825/P 


Rsread, Wewrite, 


PAGE 


PAGE 


1202 


Psparameter 


1203 


P=sparameter 


REFERENCES OF tmmS$dispatcher NOS/VE CYBIL/II 1.0 89102 1889-08-21 13:33:34 PAGE 1204 


IDENTIFIER--+-¢-- +e ee cee eee ene DEFINED-----+---+-----+--- REFERENCES 
ON LINE 

ptilo 10879 10925 10925 1089825/S 10825 10925 10825/S 10925/S 10925 
1089825/S 10825 10925/S 10925 10825/S 109825/S 10825 10825/5 
10925 

ptlo 10879 10925 10925 10925/S 10925 10925 10925/S 10925/S 10925 
10925/S 10925 10925/S 10925 10825/S 10925/S 10925/S 10925 
10825/S 10825 

pt lo 10879 10925 10925 10825/S 10925 

ptilo 10890 10898/M 10899/S 10825/P 

ptlo 10964 10897/S 10997 10997 10997 10997 10997/S 10997 

ptlo 10973 10896/M 10997/P 109988/S 11014 11015/S 11016 11018 

ptlo 11068 11086/S 11086/S 11086/S 11086 11086 11086 

ptlo 11095 11124/S 11124 11124 11124 11124 11124 11124/S 11124 
11124 11124/S 11124 11124 

pt lo 11095 11139/S 11139 11138 11139 11139 11139 11139 11139 
11139 11139 11139 11139 11139 11139 11139 11139/P 
11139/P 11138/P 11151/S 11151 11151 11151 11151 11151 
11151 11151 11151 11151 11151 11151 11151 11151 
11151 11151/P 11151/P 11151/P 

ptlo 11095 11138 11138 11139/S 111398 11139 11139/S 11138/S 11139 
11139/S 11139 11139/S 11139 11139/S 11138/S8 11138 11139/S 
11139 11151 11151 11151/S 11151 11151 11151/S 11151/58 
11151 11151/S 11151 11151/S 11151 17151/S 11151/S 11151 
11151/S 11151 

ptilo 11095 11139 11139 11138/S 11139 11139 11139/S 11138/S 111398 
11139/S 11139 11138/S 11138 11139/S 11138/S 11138/S 11138 
11139/5 11139 11151 11151 11151/S 11151 11151 11151/S 
11151/S 11151 11151/S 11151 11151/S 11151 11151/S 11151/5 
11151/S 11151 11151/S 11151 

ptilo 11095 11139 11139 11139/S 11138 11151 11151 11151/S 11151 

ptio 11095 11150/S 

ptlo 11102 11116/M 11117/S 11124/P 11139/P 

pva 3161 7595 

pva 3175 7530 7592 8006/M 8006 9007 9168 

pva 4713 8220 : 

queue 7766 7877/M 7877/M 

queue 8182 8223/M 8223/M 82439/M 8249/M 

queue 8360 8363/M 8369/M 

queue head 5100 6602 6608/M 6651 6652/M 6684 6685 668S/M 6695 
6696/M 6704 6754 6755 6758/M 6760 6761/M 6763 
6970 6972/M 6881 6982/M 7006 7008/M 7054 7054 
70S54/M 7054 7054/M 7056 7056 7056/M 7056 7056/M 
7058 7058 7058/M 7093 7109 7110/M 7159 7160/M 
7205 7221 7222/M 7268 7269/M 7312 7323 7324/M 
7864 7864 7864/M 7864 7864/M 7864 7866 7866/M 
7866 7866/M 7866 7866/M 7866 7866 7866/M 7866 
7866/M 7866 7866 7866/M 7866 7866/M 7866 7866 
7866/M 7898 7888/M 78398 7898/M 7898 78398/M 7898 
7898 -7898/M 7898 7898/M 7898 7898 7898/M 7898 
7898/M 7898 7898 7898/M 7979 7879/M 7979 7979/M 
7979 7979/M 7979 7379 7379/M 7979 7979/M 7979 
7979 7979/M 7979 79783/M 7979 7979 7979/M 8172 
8172/M 8172 8172/M 8172 8172/M 8172 8172 8172/M 


eet REFERENCE ABBREVIATIONS Memodify, Atattribute, S$ 


subscript, I:I/0 ref, Rtread, Wswrite, P:parameter 


REFERENCES OF tmm$dispatcher NOS/VE CYBIL/II 1.0 89102 1983-08-21 13:33:34 PAGE 1205 


IDENTIFIER---+- eee eer ee ret eee DEFINED----~-e eee eee meee REFERENCES 
ON LINE 

8172 8172/™M 8172 8172 8172/M 8172 8172/M 8172 
8172 8172/M 8227 8227/M 8227 8227/M 8227 8227/M 
8227 8227 8227/M 8227 8227/M 8227 8227 8227/M 
8227 8227/M 8227 8227 8227/M &4as 8445/M 8498 
8493/M 8499 8499/M 84993 &8493/M 8499 8499 8499/M 
8499 8493 /M 8499 8499 8499 /M 84399 8499/M 8439 
84399 8439/M 8544 8544/M 8608 8608/M 8630 8630/M 
8630 8630/M 8630 8630/M 8630 8630 8630/M 8630 
8630/M 8630 8630 8630/M 8630 8630/M 8630 8630 
8630/M 8741 8741/M 8406 9406/M 9406 9406/M S406 
9406/M 9406 S406 9406/M S406 S406/M $406 9406 
S406/M 9406 9406/M 9406 9406 9406/M 9417 $417 
9417/M 9417 9417/M 9417 9479 8473 /M $479 9479/M 
$479 9479/M 9479 9479 $479 /M 9479 $479/M $479 
9479 $479 /M $4793 $473/M 9473 9479 $479/M 9528 
9528 §528/M 9528 9528/M 9528 9562 9562 $562/M 
$562 S$562/M $562 9623 $623/M 8623 9623/M 9623 
9623/M $623 9623 9623/M $623 9623/M $623 9623 
8$623/M $623 $623/M $9623 $623 8623/M 8647 9647/M 
9647 9647/M 9647 9647/M S647 9647 8647/M $647 
S647/M 9647 $647 $647/M S647 9647/M 9647 9647 
9647/M 10113 10114/M 101398 10198 10198/M 10188 10198/M 
10198 10201 10201/M 10201 10201/M 10201 10201/M 10201 
10201 10201/M 10201 10201/M 10201 10201 10201/M 10201 
10201/M 10201 10201 10201/M 10519 105198/M 10519 10513/M 
10519 10519/M 10519 10519 10519/M 10519 10518/M 10519 
105193 10519/M 10519 1051S/M 10519 10519 10519/M 10550 
10550/M 10550 10550/M 10550 10550/M 10550 10550 10550/M 
10550 10550/M 10550 10550 105850/M 10550 10550/M 10550 
10550 10550/M 10573 10579/M 10579 10579/M 10579 10579/M 
10579 10579 10579/M 10579 10879/M 105793 10579 10579/M 
10579 10579/M 105793 10579 10579/M 10674 10725 10725 
10725/M 10725 10725/M 10725 10325 10925/M 10925 10925/M 
10825 1609825/M 10925 10325 1038325/M 10925 10825/M 10925 
10925 10825/M 10825 10925/M 10825 10825 10825/M 10997 
10997 109387/M 10987 10397/M 10997 11086 11086/M 11139 
1113383/M 11139 | 11138/M 11139 11139/M 11139 11139 11138/M 
11139 11139/M 11139 11139 11139/M 11139 111339/M 11138 
111383 11139/M 11151 11151/M 11151 11151/M 11151 11151/M 
11151 11151 11151/M 11151 11151/M 11151 11151 11151/M 
111517 11151/M 11151 11151 11151/M 

queue _id 2030 11032/M 

queue Tink 4938 6630/M 6631/M 7877 7877 7877/8 7877/M 7877 7877 
7877 7877/8 7877/M 7877 7877 /M 7877/M 8074 8074 
8086/M 8087/M 8146 8147/M 8148/M 8223 8223 8223/58 
8223/M 8223 8223 8223 8223/8 8223/M 8223 8223/M 
8223/M 8239 8249 &249 8249/8 8249 /M 8249 8249 
8249 8249/8 8249 /M 8249 8249/M 8249 /M 8268 8269/5 
8288 &8288/M 8288/M 8288/M 8288/M &330 8337/M 8341/M 
8343/M 8347/M 8362 8363 8365/S 8365/M &365 8368 
8369 8371/S 8371/M 8371 8374/M 8375 /M 8445/M 8445/M 
8608/M 8608/M 10550 10550/S 10550/M 10550/M 10561 10561/M 
10561/M 10561/M 10561/M 10800 10901/S 10801/M 10802/M 11008/M 

REFERENCE ABBREVIATIONS Memodify, Azattribute, S:subscript, I21/0 ref, R=read, Wewrite, Ptparameter 


REFERENCES OF 


IDENTIFIER-------------------- 


queue link 
queue link 
queue link 
queue tail 


REFERENCES OF 


IDENTIFIER------- 


rb 


readied_ijle_p 
ready 

. ready condition 
ready task count 


ready _task_count 
ready _ task count 
Pf eady_ task_count 
ready _ task_count 
ready _ tasks 


tmm$dispatcher 


exe * 


tmm$dispatcher 


*xe 


DEFINED 
ON LINE 


8047 
8111 
8209 
5103 


6412 
10431 
8382 


8582 
8683 
8967 
$058 


$901 
9337 


REFERENCE ABBREVIATIONS 


~DEFINED--- 


ON LINE 


1Ogs65 


3032 
5536 
7769 
1646 


8360 
9453 
9498 
$591 
4817 


REFERENCE ABBREVIATIONS 


s“eeeweerwerevneereecea 


NOS/VE CYBIL/II 


NOS/VE CYBIL/II 


REFERENCES 


10060 
10097/P 
10978/M 
10995 
11039 
9196/P 
7904/M 
7921 
7052 
7370 
8172 
8630 
9623 
10558 
11139 
9381/M 
9468/M 
9509/M 
9606/M 
66S82/M 
6976/M 
7O012/M 
7864/M 
7866/M 
7866/M 
78938/M 
7898/M 
739739 /M 
7979 /M 
8172/M 
8172/M 
8227/M 
&8227/M 
84939/M 
8499/M 
8630/M 
8E30/M 
8739/M 
8739 
8733 
8739 
8739 
9406 
9406 
8417 
9479 
9479 
$528 
9562 
9623 
9623 
9647 
9647 


M=emodify, 


1,0 89102 


REFERENCES 

110093/M 11124 
8075 8082 
8135 8142 
8233/M 8234 
6654/S 6656/M 
6772 6773/M 
7054/M 7054/M 
7281/M 7347/M 
7866/M 7866/M 
7866/M 7898/M 
7898/™M 7898/M 
7979/5 7979/M 
8172/M 8172/M 
8172/M 8172/M 
8227/M 8227/M 
8499/M 84a99/S 
8544/5 8544/M 
8630/M 8630/M 
8$406/M 9406/M 
9406/M 9406/M 
9479 /M 9473 /M 
9479/M 9528 
9562/M 9623/M 
9623/M 9623/M 
83647/S 9647/M 
10118/M 10198 
10201/M 10201/5 
10519/M 10519/M 
1051S8/M 10519/M 
10550/M 10550/M 
10578/M 10579/M 
10579/M 10725 
10925/M 10825/S 
10997 10897/M 
1113S3/M 11139/M 
11139/M 11151/M 
11151/M 1411151/M 
10669/M 10720/M 
10668/M 10669 
8426 84827/P 
8445/P 8445/P 
8475 8493/P 
8605 8608/P 
8646 

8702/M 8703 
9032 9033 
9101 9102/P 
$173 9187 
9920/M 9921/M 
9950/M 9952 
9974 $976/P 
10005/P 10017 

M=modify, 


1.0 88102 


10064/P 
10105 
10979 
10996 


$137 
$013/M 


7866 
7975/M 
8224/M 
8642/M 
93647 
o578 
1151 
9419/M 
$475/M 
3530/M 
S613/M 
6632 
6976 


tat 


8739 

8739/M 
8739/M 
8739 

9406/M 
9406/M 
9417/M 
8479/M 
9473/M 
8528/M 
9562/M 
9623/M 
$623/M 
9647/M 
8647/M 
S694/M 


11124/M 
8083/M 
8142 
8234 
6684 
6973/M 
7056/M 
7864 
7866/S 
7898/M 
7898/M 
7979/M 
8172/M 
8227/M 
8227/M 
8499/M 
8630/M 
8630/M 
9406/M 
9417 
9479/58 
9528/M 
9623/M 
9623/M 
9647/™M 

10198/M 

1O201/M 

10519/M 

10519/M 

10550/M 

10579/S 

10725/M 

10925/M 

10997 

11139/S 

11151/M 

11151/M 


10719/M 
8428/P 
8446 
8a499/P 
8608/P 


8704/P 
9035 
9102/P 
$194/P 
9928/M 
3954 
s9380 
10020/P 


Az:attribute, 


10066 
10106/P 
10383 
11001 


9201 
10451 


7889/M 
7975 
8224 
8642 
10201 
10579 


94193 
9475 
9530 
9619 
6694/M 
69793 /M 
7014/M 
7864/M 
7866/M 
7866/M 
7898/M 
7898/M 
7879 /M 
7379 /M 
8172/M 
8172/M 
8227/M 
8227/M 
8495/M 
8499 /M 
8630/M 
8630/M 
8739 
8739 
8739 
8733 /M 
9406 
9406 
9417 


Azattribute, 


11124/M 
8084a/M 
8143/M 
8235 
6688/M 
7009/M 
7056/M 
7864/M 
7866/M 
7898/M 
7898/M 
7973/M 
8172/58 
8227/M 
8227/M 
8499/M 
8630/M 
8630/M 
9406/S 
9417/M 
9479/M 
9528 
9623/M 
9623/M 
9647/M 

10198 

10201/M 

10519/M 

10550/M 

10550/M 

10579/M 

10725 

410925/M 

10897/M 

11139/M 

11151/M 

11151/M 


10720 
8429 
8450/M 


8609 


8717/P 
9041 
9103 
9196/S 


9961 
9991 
10033/P 


S:subser 


10068 
10108/M 
10884/S 
11002 


$202 


7889 
7379 
8227 
8729/M 
10519 
10925 


9564/M 
9643/M 
6694 
6979 
7014 
7864 
7866 
7866 
7898 
7898 
7979 
7979 
8172 
8172 
8227 
8227 
8489 
8439 
8630 
8630 
87393 
8739/M 
8739 
8739 
S406/M 
S406/M 
9417/M 
9479/M 
$4739/M 
9528/M 
9562/M 
8623/M 
8623/M 
8647/M 
9647/M 
S694 


S-subscript, 


ipt, 


1989-08-21 13:33:34 
11124/M 11124/M 
8086/S 8087 &8088/M 
8144/M 8146/M 8147/58 
823393/M 8239/5 
6713 6714/M 6754 67539/M 
7031/M 7038/M 7041/S 7043/M 
7058/M 7134/M 7172/M 7244/M 
7864 7864/M 7866/M 7866/M 
7866/M 7866/M 7866/M 7866/M 
7898/M 7898/S 7898/M 7838/M 
73979/M 7979/M 7979/M 73979/M 
7979 /M 79739/M 7979 /M 8172/M 
8172/M 8172/M 8172/M 8172/M 
8227/M 8227/M 8227/58 8227/M 
8227/M 84939/M 84399/M 8499/M 
84939/M 8499/M 8499/M 8499/M 
8E630/M 8630/M 8630/S 8630/M 
8630/M 8741/S 8741/M S9806/M 
S406/M 9406/M 9406/M 9406/M 
9417 9417/M 9479/M 9479/M 
9479 /M 9479/M §9479/M 9479/M 
9528/M 9562 9562/M 9562 
9623/M 9623/S 9623/M 9623/M 
9647/M $647/M 9647/M 9647/M 
9647/M 9647/M 9647/M 10116/5S 
10198/M 10201/M 10201/M 10201/M 
10201/M 10201/M 10201/M 10201/M 
10519/S 10519/M 10519/M 10519/M 
10550/M 10550/M 10550/M 10550/S 
10550/M 10550/M 10573/M 10579/M 
10579 /M 10579/M 10579 /M 10579 /M 
10725/M 10925/M 10925/M 108325/M 
10825/M 10925/M 10925/M 108325/M 
11086/S 11086/M 11139/M 11139/M 
11139/M 11139/M 11139/M 11139/M 
11151/M 11151/5S 11151/M 11151/M 
8433/M 8437 8438/S 8443 
8454 8459 8461 8470 
8615/S 8616/5 8630/P 8635/P 
8717/P 8717/P 8718 
9047 
9112 9113 9115 9121 
9962 93963 9964 9969/P 
9993 99897/P 10000 10002 
10040 10047/P 10057/5S 10059 

=1/O0 ref, Rtread, W:ewrite, 

1989-08-21 13:33:34 
10071/P 10088/P 10091/P 10094/P 
10110/M 10111 
10986/M 10987/M 10993/S 1093833/S5 
11003 11006 11026/P 11035/P 
$203 9205 8206 
7894/M 7894 7898 7970/M 
8163/M 8163 8168/M 8168 
8250/M 8250 8468/M 8499 
8723 9249 9406 9479 
10550 10550/M 10550 10559/M 
10927/M 10927 11122/M 11122 
9564 
9643 
6694 6694 6694/M 6694 
638793 6973 6979/M 69379 
7014 7014 7014/M 7014 
7864 7864 7864/M 7864 
7866 7866 7866/M 7866 
7866 7866 7866/M 7866 
7898 7898 7838/M 7898 
7898 78398 7898/M 7898 
7979 7979 79793 /M 7979 
7379 7979 7979 /M 7979 
8172 8172 8172/M 8172 
8172 8172 &8172/M 8172 
8227 8227 &8&227/M 8227 
8227 8227 8227/M 8227 
8433 8439 8499/M 8499 
8499 84399 8499/M 8499 
8630 8630 &8630/M 8630 
8630 8630 8630/M 8630 
8739/M 8739 8739/M 8739 
87398 8739 8733 8739/M 
8739/M 87393 8739/M 8739 
8739 /M 8739 8739 8739/M 
9406 9406 9406 S406/M 
S406 9406 8406 S406/M 
9417 9417 9417 9417/M 
9479S 9479 9479 9479/M 
9479 9478 9479 $479/M 
$528 9528 9528 9528/M 
9562 9562 9562 9562/M 
$623 $623 $623 9623/M 
$8623 $623 8623 9623/M 
9647 $647 $647 9647/M 
9647 9647 9647 $647/M 
9694 9S694/M $694 9694/M 


I=I/O ref, 


Reread, Wewrite, 


PAGE 


PAGE 


1206 


P=parameter 


1207 


P= parameter 


REFERENCES OF 


IDENTIFIER----------- - ee +--+ --DEFINED----- 


readying _task_priority 


readying task priority 
readying task_priority 
register _id 
relative_insert_major_dct 


relative _insert minor_dct 


relative _insert_tail_dcet 


REFERENCES OF 


IDENTIFIER---------------- 


relative _ priority 
relative priority 
relative_priority 
relative_priority 
relative _ priority 
relative priority 
relative priority 
relative priority 
relative priority 
relative priority 
relative priority 
relative _ priority 
relative priority 
relative _ priority 
relative_priority 
relative priority 
relative priority 
relative priority 
relative _ priority 
relative priority 
relative priority 
relative priority 
relative _ priority 
relative priority 
relative priority 
relative priority 
relative priority 
relative priority 
relative priority 
relative priority 
relative _ priority 
relative priority 
relative priority 
relative priority 
relative priority 
relative priority 
relative priority 
relative priority 
relative priority 
relative _ priority 
relative priority 
relative priority 
relative priority 
relative priority 
relative _ priority 
relative priority enabled 


relative _task_priority 


tmm$dispatcher 


*RX 


tmm$dispatcher 


ON LINE 


4943 


7768 
9093 
4883 
7180 


7068 


7289 


REFERENCE ABBREVIATIONS 


----DEFINED 


eek 


ON LINE 
6863 
6863 
6863 
7069 
7181 
72390 
7766 
7766 
7766 
7332 
7932 
7932 
8110 
8110 
8110 
8182 
8182 
8182 
8381 
8381 
8381 
8581 
8581 
8581 
$349 
$3498 
$349 
9446 
9446 
$446 
3584 
9584 
9584 
10157 
10157 
10157 
10408 
10408 
10408 
10878 
10879 
108798 
11085 
11085 
11095 
1308 


2544 


REFERENCE ABBREVIATIONS 


NOS/VE CYBIL/II 


ee----REFERENCES 


1.0 8831062 


9694 $694 
9694/M $694 
9694 S694 
S694/M s694 
9768/M $768 
$781 9781/M 
§$806/M $806 
9807 8807/M 
§858/M 9858 
10198/M 10198 
10201/M 10201 
10201/M 10201 
10466 10466 
10466 10466/M 
10466 10466 
10466/M 10466 
10518 10519/M 
10519 10519/M 
10550 10550/M 
10550 10550/M 
10579 10579/M 
10579 10579/M 
10658 10661 
10725 10725/M 
10774 10774 
10774/M 10774 
10774/M 10774 
10774 10774/M 
1082S5/M 10825 
10825/M 10925 
11139/M 11138 
11139/M 11139 
11151/M 11151 
11151/M 11151 
6633/M 6912 
7898 73793 
8499 &84s9 
8914/M 8919 
94793 $623 
10519 10550 
111398 11151 
7836 7838 
9190/M 9192/M 
9954 

7056 7286 
8630 9406 
10579 10925 
7054 7177 
8630 $406 
10579 10825 
7058 7349 
8630 9406 
10579 10925 

M=modify, 


NOS/VE CYBIL/II 


"reece ee REFERENCES 


7054 
7056 
7058 
7108 
7220 
7322 
7866 
7866 
7866 


7898/P 
79739/P 


Me=modify, 


1.0 89102 


8694/M 
S8694/M 
$694 
S766/M 
8768 
$7381 
$806 
$807 
9861 
10198 
10201 
10201 
10466/M 
10466 
10466/M 
10466/M 
10519 
10518 
10550 
10550 
10579 
10579 
10662 
10725 
10774 
10774/M 
10774 
10774 
108325/M 
10325/M 


9194/P 


7866 
9479 
11138 
7866 
9479 
11139 
7866 
9478 
11139 


Azattribute, 


7898 
7898 


9647 
$647 


10550 
10550 
10578 


11151 
11151 
7838 
$623 
11151 
7084 
7220 
7866 
7838 
7979 


Azattribute, 


10579 


7842 


7898 
$623 
11151 
7838 
9623 
11151 
7898 
9623 
11151 


S=subscript, 


7898 
7898 


9647 
9647 


10550 
10550 


11151 
11151 


78798 
9647 


7OS6/P 
7261 

7866/P 
7898/P 
7879/P 


S=subscript, 


1889-08-21 13:33:34 
9694/M $694 $694 9694 
s6s4 S694/M 9694 s6s4/M 
9694 s694/M 9694 $694 
S766 8766 S766/M 9766 
9768 83781/M $781 9781 
$782 9782 3782/M $782 
S8O06/M 9806 9807/M 98607 
$837 9838 9839/M $8393 
93863/M 9863 10138/M 160198 
1013938/M 10138 10201/M 10201 
10201/M 10201 10201/M 10201 
10201/M 10201 10466/M 104656 
10466/M 10466 10466 10466/M 
10466 10466/M 10466 10466/M 
190466/M 10466 10466 10466 
10466 10466/M 10466 10519/M 
10519 10519/M 10519 10519/M 
10519 10513/M 105193 10550/M 
10550 10550/M 10550 10550/M 
10550 10550/M 10550 10579 /M 
10579 10579/M 10579 10579/M 
10579 10579/M 10579 1O0658/M 
190663 10712/M 10712 10725S/M 
10725 10725/M 10725 1O774/M 
10774 10774/M 10774 10774 
10774 10774 10774/M 10774 
10774 10774/M 10774 10774 
10774 10774 10774/M 10774 
10925 10925 109325/M 10925 
10925 10925 108325/M 10925 
11139 11139 11139/M 11139 
11139 11138 11139/M 11139 
11151 11151 11157/M 11151 
11151 11151 171151/M 11151 
7839/M 7866 7866 7898 
8172 8227 8227 8445/M 
8630 8835/M 8842 8844 
9192 9406 94056 9479 
9647 10201 . 10201 10519 
105793 10925 108325 11133 
7843 
73973 8172 8227 8499 
9647 10201 10519 10550 
7379 8172 8227 84993 
9647 10201 10519 10550 
7379 8172 8227 8499 
9647 10201 10519 10550 

I=I/0O ref, R=read, Wewrite, 


1889-08-21 


10579 19058793 
105793 10579 
8172 8227 
10201 10518 
7056 7056 
7322 7866/P 
7866 78398/P 
7898 7979/P 
7379 8172/P 
11/0 ref, 


13:33:34 
8499 8630 
10550 108578 
7058/P 7058 
T7866 7866 
7898 7898 
7378 7379 
8172 8172 


Reread, Wewrite, 


PAGE 1208 


Pzparameter 


PAGE 


P=parameter 


REFERENCES OF 


IDENTIFIER 


remove _ ijl 


tmm$dispatcher 


ece--DEFINED 


remove task_from_free_ queue 
“remove _task_from_seg_ lock_q 


req 
reqcode 


request origin 
requested wait time 
requested wait _time 


residence 
residence 
residence 
residence 
rindex 
ring 

ring 


Ss 

save _ptio 
save_ptio 
save _ptio 
save_ptio 
save ptilo 
Save _ptilo 
save ptio 
save_ptilo 
save_ptilo 
save _ptilo 


save ptto 
save _ptio 


save _ptilo 
save _ ptilo 
save ptilo 
save ptio 
save ptilo 
save _ptio 


REFERENCES OF 


IDENTIFIER 


save _ptilo 
save_ptilo 
Save_ptlo 
save_ptilo 
'save_ptio 
save _ptio 
save_ptlo 
save_ptlo 
save_ptilo 
save_ptlo 
save_ptilo 
save _ptlo 
save_ptio 
save _ptlo 
save_ptilo 
save _ptio 
save _ptio 


Save_ptio 
save _ptilo 
save_ptilo 
save_ptilo 
save_ptio 
save _ptilo 
save _ptilo 
save_ptilo 
Save_ptilo 
" save_ptio 
save _ptilo 
save_ptio 
save_ptio 
save_ptio 
save _ptio 
save _ptio 
save _ptio 


save _ ptilo 


scan_ptlo 
scan_ptlo 


scan_pttlo 
scan_ptio 
scan_ptilo 


scan_ptilo 


xe x 


tmm$dispatcher 


Cee 


ON LINE 


7083 
7195 
7303 
71766 
7766 


7766 


7766 


7932 
73932 
7932 
8110 
8110 
81190 


REFERENCE ABBREVIATIONS 


-DEFINED 


ON LINE 
8182 
8182 
8182 
8381 
8381 
8381 
8581 
8581 
$8581 
$349 
$349 
9349 
93349 
9446 
9446 
9446 
9491 


9584 

9584 

9584 
10157 
190157 
101587 
10157 
10408 
10408 
10408 
10408 
10879 
10879 
10879 
10364 
11095 
11095 
11095 


6677 
6748 


7766 
$349 
$491 


10157 


REFERENCE ABBREVIATIONS : 


NOS/VE CYBIL/II 


NOS/VE CYBIL/II 


ee ee ew ee ee ee -~---REFERENCES 


1.0 88102 
REFERENCES 
8172/P 8172 8172 
8227/P 8227 8227 
84a939/P 8499 8499 
8630/P 8630 8630 
9406/P 9406 9406 
§9479/P $479 $479 
§623/P $623 9623 
9647/P 9647 S647 
10201/P 10201 10201 
10519/P 10519 10519 
10550/P 10550 10550 
10579/P 10579 10579 
10925/P 10925 10925 
11139/P 11139 11139 
11151/P 11151 11151 
7413 8742 
6778 10997 
7914 8256 
7902 79303 9005 
7813/M 
7815/M 9980 9993 
9032 9047 
9112 9173 
5246 5293 8222 
5246/M 5250 $251 
5293/M $233 5233 
8222/M 8222 8222 
54 55 
7530 7582 9007 
7588/S 7590 7592 
8473/M 
6706/M 6712/8 6714 
6765/M 6771/S 6773 
7054/M 7054/S 70S54/M 
TOSE/M 7056/S 7O56/M 
7OS8/M 7058 7058/S 
7094/M 7112/8 7118/M 
7206/M 7224/8 7233/M 
7313/M 7332 7333/8 
7864/M 7864/S 7864 
7866/M 7866/S 7866/M 
7838/M 7898/S 
7866/M 7866/S 7866/M 
7898/M 7898/S 
7866/M T8656 7866/S 
7838/M 7898/M 
73739 /M 7979/S 7379/M 
7373/M 7973/S 7979/M 
7979/M 7979 7979/58 
8172/M 8172/S 8172/M 
8172/M 8172/S 8172/M 
8172/M 8172 8172/8 
M=zmodify, Azattribute, 


&8227/M 
8227/M 
8227/M 
8499/M 
8499 /M 
8499/M 
8630/M 
8630/M 
8630/M 
9406/M 
S406/M 
9406/M 
9417/M 
9479/M 
9479/M 
$4793 /M 
$528/M 
$562 

8623/M 
9647/M 
9623/M 
$647/M 
$623/M 
9647/M 
10198/M 
10201/M 
10201/M 
10201/M 
10513/M 
10550/M 
10519/M 
10550/M 
10519/M 
10550/M 
10725/M 
10825/M 
10925/M 
10825/M 
10997/M 
11139/M 
11151/M 
11139/M 
11151/M 
114139/M 
11151/M 
6704/M 
6763/M 
6768 

7864/M 
$417/M 
9528/M 
9562 

10198/M 


Memodify, 


1.0 893102 


e 


8227/8 
8227/S 
8227 
84ag3g/s 
8499/5 
84995 
8630/S 
8630/S 
8630 
9406/S 
9406/S 
9406 
9417/5 
9479/S 
$473/S 
$479 
9528/5 
9562 
9623/S 
9647/S 
9623/S 
9647/S 
9623 
9647/M 
10198/S 
10201/S 
10201/S 
10201 
10519/S 
10550/S 
10519/8S 
10550/S 
10519 
10550/M 
10725/S 
10925/5S 
10825/S 
10925 
10397/S 
11139/58 
11151/8 
11139/8S 
11151/8 
11139 
11151/M 
6705 
6764 


7864 
$417 
3528 
$562 
101398 


8227/M 
&8227/M 
8227/58 
8499/M 
8499/M 
8499/5 
8630/M 
&8630/M 
8630/S 
3406/M 
8406/M 
9406/S 
9417 

$479/M 
9473/M 
9479/S 
$528 


$623/M 
$623/M 
$623/S 


10198 

10201/M 
10201/M 
10201/5S 
10519/M 
10579/M 
10519/M 
10573/M 
10519/S 
10579/M 
10725 

109325/M 
10925/M 
10825/S 
10987 

11139/M 


11139/M 
11139/8 


6705 
6764 


7864 
9417 
$528 
3562/M 
10198 


Azattribute, 


8172/P 
8227/P 
8439/P 
8630/P 
9406/P 
9479/P 
9623/P 
9647/P 
10201/P 
10519/P 
10550/P 
10579/P 
10925/P 
11139/P 
11151/P 


S006 


10040 


8232 


8232/M 


9168 
7595/S 


6717 


7O054/M 
7O56/M 
7058/M 
7121/M 
7236/M 
7339/M 
7864 

7866/M 


7866/M 
7866/M 


7979 /M 
79793 /M 
79793 /M 
8172/M 
8172/M 
8172/M 


yn 
" 


subscr 


8227/M 
8227/M 
8227/M 
8499 /M 
843939/M 
8499/M 
8630/M 
8630/M 
8630/M 
9406/M 
S406/M 
S406/M 
9417 

9479 /M 
84793 /M 
94739/M 
9528 


$623/M 
§$623/M 
$623/M 


10198 

10201/M 
10201/M 
10201/M 
10519/M 
10579/S 
10519/M 
10573/S 
10519/M 
10573 

10725 

10925/M 
10925/M 
10825/M 


11139/M 
11139/M 
11139/M 


6706 
6764 


7864/M 
9417/™M 
$528/M 
$562/S 
10198/M 


Stsubscript, 


1889-08-21 13:33:34 
8172 &8227/P 8227 8227 
8227 &8493/P 84s9g 8499 
84399 &8630/P 8630 8630 
8630 9406/P 9406 9406 
S406 9479/P 9479 94793 
$479 9623/P $623 9623 
$623 9647/P 9647 9647 
9647 10201/P 10201 10201 
10201 105139/P 10519 10519 
10519 10550/P 10550 10550 
10550 10579/P 10579 10579 
10579 10925/P 10925 10925 
10825 11139/P 11139 11139 
11139 11151/P 11151 11151 
11151 
10452/P 
8232 8232 
6720 
7054/S 
7056/S 
7058/M 
7168/S 
7277/8 
7342/™M 
7864 
7866/S 78938/M 7898/S 7898/M 
7866/S 7838/M 7898/S 7898/M 
7866/M 7898/M 7898 7898/S 
7979/S 
7979/5 
7979/M 
8172/5 
8172/S 
8172/M 
ipt, >:I1/O ref, Reread, Wewrite, 
1989-08-21 13:33:34 
8227/S 
8227/8 
&8227/M 
8499/S 
8439/5 
8499/M 
8630/S 
8630/5 
8E30/M 
S9406/S 
9406/5 
S406/M 
9417 
9479/S 
9473/58 
9479/M 
$528 9562/M 9562/SsS $562 
9623/58 $647/M 9647/S 9647/™M 
$623/S 9647/M $647/S 9647/M 
9623/M $647/M 8647 9647/8 
10198 
10201/S 
10201/S 
10201/M 
105138/S 10550/M 10550/S 10550/M 
10579/M 10579/M 10579/S 
10519/5 10550/M 10550/S 10550/M 
10573/M 10573/M 1905879/S 
10519/M 10550/M 10850 10550/S 
10579/S 10579/M 10579/M 
10725 
10325/S 
10925/S 
10925/M 
111393/S 111S51/M 11151/S 411151/M 
11139/S 11151/M 11151/S 11151/M 
11139/M 11151/M 11151 11151/S 
6707/M 6707/S 6708 
6764 6765 6766/M 6766/S 
7864/S 7864 7864 
9417/58 9417 9417 
§528/S 9528 $528 9562/M 
$562 9562 
10198/S 10198 10198 
I=1/0 ref, Reread, Wewrite, 


PAGE 


PAGE 


1210 


Pz=parameter 


1211 


P=parameter 


REFERENCES OF 


tmm$dispatcher NOS/VE CYBIL/II 1.0 88102 1889-08-21 13:33:34 PAGE 1212 
IDENTIFIER- s+ =e eee eet eee een ee DEFINED-~----2*---eseeeee REFERENCES 
ON LINE 

scan_pt lo 10408 10725/M 10725 10725 10725/M 10725/S 10725 10725 

scan _ptio 190964 10997/M 109597 10897 10997 10887/M 10937/S 109397 109397 
10997 ; 

scheduler _ initiated jobs 6251 &8504/M 8506 8550/M 8551 11046/M 11047 

scheduling dispatching priority 1279 7842 7843/M &8848/M 8325/M 100098 10010/M 10028/M 10322 
10343/M 

scheduling priority 2583 $201 $205 

sdt_offset 2538 8425 

sdt_p 8401 8425/M 8427/P 

sdtx_ offset 2535 5571 8221 

sdtx_p 8211 8221/M 8222/P 

search 4827 7658/M 7683 

search 7619 7657 7658 7659 7670 

search_loop 7401 7401 7404 7408 

search loop 8223 8229 8237 8243 

search loop 8682 8742 8742 8742 

search _ptio 6863 7054/M 7054 7054/S 7054/S 7054/S 7054 7054/S 7054/S 
7054/Ss 7054 7054 7054 7054 7054/M 7054 7054/M 
7054 7054/S 7054/S 7054 7O05a/M 7054/S 7054 

search ptio 6863 7056/M 7056 7056/58 7056/S 7056/S 7056 7056/8 7056/S 
7056 7056/58 7056/S 7O56 7056 7056 70S6 7OS6/M 
7056 7056/M 7056 7O56/S 7056/S 7056 7O56/M 7056/S 
7O56 

search ptio 6863 7058/M 7058 7058/S 7058/S 7058/S 7058 7058/5 7058 
7058/58 7058 7058/S 7058/S 7058/S 70588 7058 7058 
7058 7058/M 7058 

search ptilo 7084 7O0933/M 7103 7103 7104/S 7105/5 7107/8 7109 7110/8 
7112/8 7114/8 7115 7116 7118 7121 7123/M 7146/M 
7147 7147 7148/S 7150/S 7152 7155/M 7155/8 

search _ptio 7196 7205/M 7215 7215 7216/8 7217/8 7219/8 7221 7222/8 
7224/8 7226 7227/8 7229/8 7230 7231 7233 7236 
7238/M 7255/M 7256 7256 7257/8 7259/8 7262 7265/M 
7265/S 

search _ptilo 7304 7312/M 7317 7317 7318/8 7313/S 7321/8 7323 7324/8 
7326 7327/8 73238 7330/S 7333/S 7335/8 7336 7337 
7338 7342 7344/M 

search _ptio 7766 7866/M 7866 7866/S 7866/S 7866/S 7866 7866/S 7866/S 
7866/S 7866 7866 7866 7866 7866/M 7866 7866/M 
7866 7866/S 7866/S 7866 7866/M 7866/S 7866 7898/M 
7838 7898/S 7838/8 7898/S 7838 7898/5 7898/S 7898/S 
7898 7838 7898 7898 7898/M 7898 7898/M 7898 
7898/S 7898/S 7898 7898/M 7898/8 7898 

search ptio 7766 7866/M 7866 7866/S 7866/S 7866/S 7866 7866/S 7866/S 
7866 7866/S 7866/S 7866 7866 7866 7866 7866/M 
7866 7866/M 7866 7866/S 7866/S 7866 7866/M 7866/S 
7866 7898/M 7898 7838/8 7898/S 7898/S 7898 7898/S 
7898/8 7898 7838/8 7898/S 78398 7898 7898 7898 
7898/M 7898 7898/M 7898 7898/S 7898/5 7898 7898/M 
7898/S 7898 

search ptilo 7766 7866/M 7866 7866/S 7866/58 7866/S 7866 7866/S 7866 
7866/S 7866 7866/S 7866/S 7866/S 7866 7866 7866 
7865 7866/M 7866 7838/M 7898 7898/S 7898/S 7898/8 
7898 7898/S 7838 7898/S 7898 7898/5 7898/5 7898/85 


* + * REFERENCE ABBREVIATIONS Mzmodify, Azattribute, § 


subscript, If1/0 ref, R=read, Wewrite, Pzparameter 


e 
REFERENCES OF tmm$dispatcher NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 1213 
IDENTIFIER: --+--- 2-2 eee rere eee ee DEFINED~~--- +e ++ see eee ee REFERENCES 
ON LINE 

78398 7838 7898 7898 7898/M 7898 

search _ptio 7332 7379/M 7979 7979/8 7979/8 7379/S 7979 7979/S 7979/8 
79373/S 7979 7979 79793 7979 7979/M 7979 78793/M 
7379 793739/8 7979/8 7379 7979 /M 7973/8 7379 

search _ptio 7932 73793/™M 7379 7379/8 7979/8 7979/8 7979 7979/8 7979/8 
7979 7379/8 7379/58 7978 7979 7979 7979 7979/M 
7378 7397393/M 79793 7379/S 7979/S 7978 797393/M 79379/S 
7379 

search ptilo 7932 7973/M 7379 7979/8 7979/S 7979/S 7979 7973/8 7979 
7979/8 73979 7979/8 7379/8 7979/S 7379 7379 7979 
73793 7379/M 79793 

search _ptilo 8110 8172/M 8172 8172/8 8172/S 8172/8 8172 8172/8 8172/S 
8172/S 8172 8172 8172 8172 8172/M 8172 8172/M 
8172 8172/8 8172/S 8172 8172/™M 8172/8 8172 

search ptilo 8110 8172/M 8172 8172/8 8172/8 8172/S 8172 8172/S 8172/8 
8172 8172/8 8172/S 8172 8172 8172 8172 8172/M 
8172 8172/M 8172 8172/S 8172/8 8172 8172/M 8172/8 
8172 

search _ptto 8110 8172/M 8172 8172/8 8172/S, 8172/8 8172 8172/S 8172 
8172/S 8172 8172/8 8172/S 8172/S 8172 8172 8172 
8172 8172/M 8172 

search_ptlo 8182 8227/M 8227 8227/8 8227/S 8227/8 8227 8227/S 8227/8 
8227/8 8227 8227 8227 8227 8227/M 8227 &8227/M 
8227 8227/58 8227/8 8227 8227/M 8227/8 8227 

search _ptio 8182 &8227/M 8227 8227/8 8227/8 8227/8 8227 8227/8 8227/S 
8227 8227/8 8227/8 8227 8227 8227 8227 &8227/M 
8227 &8227/M 8227 8227/8 8227/8 8227 8227/M 8227/8 
8227 

search _ptio 8182 &8227/M 8227 8227/8 8227/8 8227/8 8227 8227/S 8227 
8227/8 8227 8227/8 8227/8 8227/8 8227 8227 8227 
8227 &8&227/M 8227 

search ptilo 8381 8499/M 8499 8499/5 8493/58 8499/S 8499 8493/S 8499/5 
84938/S 8499 84993 8499 8499 8439/M 8499 8499/M 
8499 8499/8 8499/58 &4399 84399 /M 84g9/S 8439 

search _ptilo 8381 8499/M 8499 8499/58 8499/S 8499/5 8499 84as3g/s 8499/S 
8439 843s9/S 8499/5 843gs9g 8499 8499 84399 8499/M 
8499 84399/M 8493 8499/S 8499/58 8499 8499/M 8499/58 
8499 

search _ptlo 8381 84399/M 8499 8499/8 8499/S 8499/58 8439 8499/S 8499 
8499/58 8499 8439/58 8499/5 8499/5 8499 843993 8499 
8499 8499/M 8499 

search _ptio 8581 8E30/M 8630 8630/S &8630/S 8630/5 8630 8630/S 8630/S 
8630/58 8630 8630 8630 8630 8630/M 8630 8630/M 
8630 8630/5 8630/5 8630 &8530/M 8630/S 8630 

search_ptilo 8581 8630/M 8630 8630/S 8630/58 &8630/S 8630 8630/S 8630/S 
&630 8630/8 8630/S 8630 8630 8630 8630 8630/M 
8630 8630/M 8630 8630/S &8630/S 8630 8630/M 8630/S 
8630 

search _ ptilo 8581 8630/M 8630 8630/S &8630/S 8630/5 8630 8630/S &630 
8630/S 8630 8630/S 8630/S 8630/S 8630 8630 8630 
8630 8630/M 8630 

search_ptilo 9349 8406/M 9406 9406/8 9406/S 9406/S 9406 8406/S 9406/58 
9406/S 9406 9406 S406 9406 9406/M 9406 9406/M 

*** REFERENCE ABBREVIATIONS smodify, Azattribute, Sstsubscript, I:1/0 ref, R:read, Wewrite, Pzparameter 


REFERENCES OF tmm$dispatcher NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 

IDENTIFIER ss cc e+ r eres SS eS) Sle mm DEFINED------e ere eee nee REFERENCES 

. ON LINE 
9406 $406/S 9406/5 9406 9406/M 9406/S 9406 

search_ptilo 9349 9406/M 9406 9406/S 9406/S 9406/S 9406 9406/S 9406/S 

9406 9406/S 9406/58 9406 9406 9406 S406 9406/M 
9406 9406/M 9406 9406/S 9406/S 9406 9406/M 9406/5 
9406 

search_ptilo 9349 S406/M 9406 9406/S 9406/S 9406/S 9406 9406/S 9406 
9406/S 9406 9406/S 9406/S 9406/5 9406 S406 9406 
$406 9406/M 9406 

search_ptilo 9446 9479/M $479 9479/S 9473/S 9473/S 9479 9479/S 9479/58 
9479/S $479 9479 9479 9479 8479/M 9479 9479/M 
$479 94798/S 9479/S 9479 94739 /M 9479/S 9479 

search_ptilo 9446 9479 /M 9479 9479/S 9479/S 9479/58 9479 9473/S 9479/5 
9479 9479/8 9479/S 9479 9479 9479 94793 9479/M 
9478 $473 /M 9479 $479/S 9479/S 9473 9473 /M 9479/S 
9479 

search _ptio 9446 94739 /M $479 9473/S 9479/S 9479/S 9479 §9479/S 9479 
$473/S 9479 9479/S 9479/S 9479/S 9479 $479 9479 
9479 9479 /M 9479 

search_ptto 9584 9623/M $623 §$623/S §8623/5S 9623/S 9623 $623/S 9623/5 
9623/58 9623 9623 9623 9623 9623/M 9623 8623/M 
9623 9623/58 9623/S 9623 9623/M 9623/5 9623 8647/M 
9647 9647/S 9647/S 9647/S 9647 9647/S $647/S $647/S 
9647 9647 9647 9647 9647/M 9647 9647/M 9647 
9647/S 8647/S 9647 9647/M 9647/S 9647 

search_ptilo 9584 §9623/M $623 9623/S 9623/S 9623/S $623 8623/S 9623/58 
$623 9623/S §623/S 9623 $623 9623 9623 9623/M 
9623 9623/M 8623 9623/5 9623/5 9623 9623/M 9623/S 
9623 9647/M 9647 9647/S 9647/S 9647/S 9647 9647/S 
9647/S 9647 9647/S 9647/S 9647 9647 9647 9647 
S647/M 9647 9647/M 9647 9647/S 9647/S 9647 9647/M 
9647/S $647 

search _ptlo 9584 9623/M 9623 9623/58 8623/S 9623/58 $623 9623/S $623 
$623/S 9623 $623/S 9623/S $623/S 9623 9623 9623 
$623 9623/M 9623 9647/M 9647 $647/S 8647/S 9647/S 
9647 9647/S 9647 9647/S 9647 9647/S 9647/S $647/S 
$647 9647 9647 9647 9647/M 9647 

search_ptlo 10157 10201/M 10201 10201/S 10201/S 10201/S 10201 10201/S 10201/S 
10201/S 10201 10201 10201 10201 10201/M 10201 10201/M 
10201 10201/S 190201/S 10201 10201/M 10201/S 10201 ; 

search _ ptio 10157 10201/M 10201 10201/S 10201/S 10201/S 10201 10201/8S 10201/S 
10201 10201/S 10201/S 10201 10201 10201 10201 10201/M 
10201 10201/M 10201 10201/S 10201/8 10201 10201/M 10201/S 
10201 

search _ptilo 10157 10201/M 10201 10201/S 10201/S 10201/S8 10201 10201/S 10201 
10201/S 10201 10201/S 10201/S 10201/S 10201 10201 10201 
10201 10201/M 10201 

search_ptilo 10408 10519/M 10519 10519/S 10513/S 10513/S 10519 10519/S 10519/S 
10519/5 10519 10519 10519 10519 10513/M 10519 10519/M 
10519 10519/S 1051S9/S 10519 10519/M 105193/58S 105198 10550/M 
10550 10550/S 10550/5S 10550/S 10550 10550/S 10550/S 10550/S 
10550 10550 10550 10550 10550/M 10550 10550/M 10550 
10550/S 10550/S 10550 10550/M 10550/S 10550 10579 /M 10573 
10579/S 10573/S 10579/S 10579 10579/S 10573/S 10579/S 10579 

eee REFERENCE ABBREVIATIONS M=modify, Azattribute, S=subscript, I:21/0 ref, Rstread, Wewrite, Ptparameter 


REFERENCES OF tmm$dispatcher NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 1215 
IDENTIFIER--+--- eee eee eee eee - -DEFINED----------- -----REFERENCES 
ON LINE 

10579 10579 10579 10579 /M 10579 10579/M 10579 10579/5 
10579/S 10579 10579/M 10573/S 10579 

search _ptio 10408 105193/M 10519 105139/S 10519/S 10519/S 10519 10519/S 10519/5S 
10519 105139/S 10513/S 10519 10519 10519 10519 10519/M 
10519 10513/M 10519 10519/S 10519/8S 10519 10519/M 10519/S 
105193 10550/M 10550 10550/S 10550/85 10550/S 10550 10550/S 
10550/S 10550 10550/S 10550/S 10550 10550 10550 10550 
10550/M 10550 10550/M 10550 10550/S 10550/S 10550 10550/M 
10550/S 10550 10579 /M 10573 10579/S 105739/S 105739/S 10579 
10579/S 105739/S 10579 105739/5S 10573/S 10573 10579 10879 
10579 105793/M 10579 105739/M 10579 10579/S 10579/S 10579 
10579/M 10573/5S 10579 

search_ptlo 10408 10519/M 10519 10519/S 10519/S 10513/S 10518 10519/S 10519 
10519/5S 10519 10519/S 10519/5 10513/S 10519 10519 10519 
105198 10519/M 10518 10550/M 10550 10550/S 10550/5S 10550/S 
10550 10550/S 10550 10550/S 10550 10550/S 10550/5 10550/S 
10550 10550 10550 10550 10550/M 10550 10579/M 10579 
10579/S 10579/S 10573/S 105798 10573/S 10579 10579/S 10573 
10578/5S 10579/S 10573/S 10579 105793 10579 105793 10579/M 
10579 

search ptilo 10879 10325/M 10925 10825/S 1083258/S 109325/S 10825 10925/S 10925/Ss 
10925/S 10825 10925 10925 10925 10325/M 10925 10925/M 
10925 10825/S 10825/S 10325 10925/M 10925/S 10925 

search ptilo 10879 10925/M 10825 10325/5 10925/S 10925/S 10925 10925/S 10925/S 
10925 10825/S 10925/S 10925 10825 10825 10925 10925/M 
10925 10825/M 10825 10925/S 10925/S 10925 10925/M 10925/S 
10925 

search ptlo 10879 10925/M 10825 10925/S 10825/S 10925/S 10925 109325/S 108325 
10825/S 10925 190825/S 10925/S 108325/S 10925 10825 10925 
10825 108325/M 10925 

search _ptio 11095 11139/M 111393 11139/S 11139/S 11139/S 11139 11139/S8 11139/8 
11139/S 11139 11139 11139 11139 11139/M 11139 11133/M 
11138 11139/8S 11139/S 111398 11139/M 11133/S 11139 11151/M 
11151 11151/8S 11151/8 11151/S 11151 11151/S8 11151/S 11151/S 
11151 11151 11151 11157 11151/M 11151 411151/M 11151 
11151/S 11151/S8S 11151 11151/M 11151/S 11151 

search _ ptilo 11085 11139/M 11138 11138/S 11138/S 11139/S 11139 11139/S 11139/S 
11138 11139/S 11138/S 11139 11139 11139 11139 11139/M 
11138 11133/M 111393 11139/S 11139/S8 11139 11139/M 11139/S8 
11139 11151/M 11151 11151/8S 11151/8 11151/S 111571 11151/S8 
11151/S 11151 11151/S 11151/S8S 11151 171151 11151 11151 
11151/M 11151 11151/M 11151 11151/S 11151/S 11151 411151/M 

. 11151/Ss 11151 

search_ptlo 11095 11139/M 11139 11139/S 111398/85 11139/S8 11139 111338/8 11138 
11139/S 11139 11138/S 11139/S 11139/8 11139 11139 11139 
11139 11139/M 111393 11151/M 11151 11151/S 11151/S 11151/8s 
11151 11151/S 11151 11151/S 11151 11151/S 11151/8 11181/8 
11151 11151 11151 11151 141151/M 11151 

search xcb 6863 7054/M 7054 7054/M 7054 

search_xcb 6863 7056/M 7056 7056/M 7056 7056 

search _xcb 6863 7058/M 7058 

search xcb 7085 7106/M 7108 71495 /M 7151 : 

search_xcb 7197 7218/M 7220 7258/M 7260 7261 

*** REFERENCE ABBREVIATIONS Memodify, Atattribute, S=*subscript, 1221/0 ref, Reread, Wewrite, P:sparameter 


REFERENCES OF tmm$dispatcher NOS/VE CYBIL/II 1.0 898102 
IDENTIFIER sc cee et tee ete ence DEFINED: -----+----*-+-+-+-+-REFERENCES 
ON LINE 
search _xcb 7305 7320/M 7322 
search_xcb 7766 7866/M 7866 7866/M 
search xcb 7766 7866/M 7866 7866/M 
7898 7898 
search_xcb 7766 7866/M 7866 7898/M 
search xcb 7932 73979 /M 7379 7979/M 
search _xcb 7932 7979/M 7379 7379/M 
search_xcb 7932 7979/M 7379 
search_xcb 8110 8172/M 8172 8172/M 
search _xcb 8110 8172/M 8172 8172/M 
search _xcb 8110 8172/M 8172 
search_xcb 8182 8227/M 8227 &8227/M 
search_xcb 8182 8227/M 8227 8227/M 
search _xcb 8182 8227/M 8227 
search xcbh 8381 8499/M 8499 84939/M 
search xcb 8381 8499/M s4s9 8493S/M 
search _xcb &§381 8499/M 8439 
search _xcb 8581 &8630/M 8630 &8630/M 
search _xcb 8581 8630/M 8630 8630/M 
search_xcb 8581 8630/M 8630 
search xcb $349 9406/M 9406 9406/M 
search _xcb $348 9406/M 9406 9406/M 
search_xcb $349 9406/M 9406 
search_xcb 9446 9479/M 9479 9473/M 
search xcb S446 9479/M 9473 9479/M 
search xcb 9446 9479/M 9479 
search _xcb 9584 9623/M $623 8623/M 
search _xcb 9584 $623/M 9623 $623/M 
$647 S647 
Search xcb $584 9623/M $623 $647/M 
search_xcb 10157 10201/M 10201 10201/M 
search _=xcb 10187 10201/M 10201 10201/M 
search_xcb 10157 10201/M 10201 
search xcb 10408 10518/M 10518 10519/M 
10579/M 10579 10573/M 
search xcb 10408 10513/M 10519 10513/M 
10550 10550 10579/M 
search xcb 10408 10519/M 10519 10550/M 
search_xcb 10879 10825/M 10925 10825/M 
search xcb 108793 10825/M 10925 108325/M 
search_xcb 108793 10825/M 10925 
search _ xcb 11095 11139/M 11139 11139/M 
search_xcb 11095 111398/M 111398 11139/M 
11151 11181 
search xcb 11035 11138/M 11139 11151/M 
seg $242 5249/M 5252/M §258 
seg 5286 5293/M 5293/M §233 
seg 8182 8222/M 8222/M 8222 
segment_ lock 3885 8223/P 8233 8249/P 
segnum 5568 5571 
segnum 8182 8221 
segnum 8212 8220/M 8221/P 
segnum 8412 8437/M 8443 8447/8 
**% REFERENCE ABBREVIATIONS M=modify, Atattribute, 


REFERENCES OF tmm$dispatcher 


LOENTIELER St Se ss3 ee eee ee aoe DEE TNE D = sate oS sews see REFERENCES 
ON LINE 
seqno 103 6492 
7807 
8608/M 
sequence number 4332 6492 
7832 
8269 
10784 
service accumulator since _swap 1316 $1939/M 
service class 1326 6884/S 
8499/S 
$138/S 
10201/S 
10579/S 
service _ class 10976 11045/M 
service class counts 6219 &8504/M 
service _class_p 9094 91838/M 
service limit 1465 10045 
service remaining 1453 87393 
10004/M 
10466 
service remaining 4905 10059 
service _used 9948 9996/P 
service_used 10264 10272/M 
service used 10371 10376/M 
set_defined 1463 10058 
Sfd_p 1235 8466/M 
sfid 2101 8232/P 
sfid 2735 8222/P 
sfid 5234 5246 
sfid 5286 5293/P 
sfid 5286 5293 
sfid 8182 8222/P 
sfid 8182 8222 
sft$counter 1675 1644 
Sft$file _ space_limit_kind 2984 2742 
Signal 5025 8717/P 
signal_interval 2252 8739 
source 5599 5609 
source $936 10106 
special _trap_count 2518 8724 
st 2680 8427/P 
st 5924 8447/M 
stack pages _saved 2537 7588 
start_index 7651 7688/M 
state 7622 7658/M 
7671/M 
7686/M 
7702/M 
7723/M 
State 8779 8840/P 
state 8891 83917/P 
state 10168 10171/P 
state 10231 10234/P 


*** REFERENCE ABBREVIATIONS 


NOS/VE CYBIL/II 


Memodify, Azattribute, S:subscript, 


1.0 89102 


8445/M 
11006/M 


7824/58 
8504/58 


10030/M 


10069 
$987/P 
10274/M 
10385 
10282 


5247 


§293 
8232/P 
8222 
1645 


$744 


7693 
7660/M 
7673/M 
7688 
7703/M 
7723/S 
&8846/P 
8923/P 

10207/P 

10243/P 


7866/S 
8505/58 
9479/S 
10329/S8S 
11045 

11047/S 
85439/M 
$201 

190283 

8739 /M 
10044/M 


10063/P 
10233/M 
10385 
10386 


5248 
52933 


8222 
2260 


10466 


7708/M 


7866 
7866 


78398 
7379 
73793 


8172 
8172 


8227 
8227 


8439 
84393 


8630 
8630 


9406 
$406 


9479 
$479 


9623 
9623 


9647 
10201 
10201 


10519 
10579 
10519 
10879 
10550 
10825 
10925 


11139 
11139 


11151 


8232/M 


S=subscript, 


6635/M 
8137/M 
11006 
6627/M 
7357 
8445 


7898/5 
8549/8 
9623/S 
10336/S 
11110/8 


8550 

$205 
10286 

8739 
10068/M 


10064/P 
1023933 
10388 


5259 
$283 


8222 
2262 


7662/M 
7675/M 
7696/M 
7715 


1989-08-21 13:33:34 PAGE 1216 
7898/M 7898 7898/M 7838 
7866 7898/M 7838 7898/M 
79379 
8172 
8227 
8499 
8630 
9406 
9479 
S647/M 9647 $647/™M 9647 
9623 9647/M 9647 9647/M 
10201 
10550/M 10550 10550/M 10550 
10519 10550/M 10550 10550/M 
10573 /M 10579 10579 
105739/M 105878 
10825 
11151/M 11151 11151/M 11151 
11139 °11151/M 11151 11151/M 
8232/M 8232 
I=]/O ref, R:read, Wewrite, Pzparameter 
1989-08-21 13:33:34 PAGE 1217 
7452 7502 7832 7574 
8138 82665 826393/M 8445/M 
11019/M 
6627 §635 7452 7502 
8072 8137 8138 8266 
8608/M 8608 8608 9102 
7979/8 8172/8 8227/S 8496/5 
8551/S 8620/M &8624/S 8630/S 
9647/S 10045/S 10056/5S 10193/S 
10373/S 10496/S 10519/S 10550/S 
11139/8 11151/S 
11046/M 11047 
10388 10389 10396 
9712 9716 9723/M 9724 
10389/M 10466 10466 10466/M 
10390 10396/M 10396 
8232 8232 8232 8232 
2263 2265 
7665/P 7666/M 7666/S 7669/M 
7676/™M 7683 7683 7685/P 
7697/M 76938/P 76993/M 7701/M 
7716/P 7T717/M 7721 7721/8 
4 
4 
I=I1/O ref, Rtread, Wewrite, P=parameter 


REFERENCES OF tmm$dispatcher NOS/VE CYBIL/II 1.0 89102 

IDENTIFI ERe -- ee eee te ee tte ee eee DEFINED -- cre retort eee REFERENCES 

: ON LINE 

statistics 1300 7051 7866 7879 /M 
7894/M 7894 7838 
8163/M 8163 8168/M 
8250/M 8250 8468/M 
8643/M 8643 8729/M 
8739/M 87393 8739 
9623 9647 9685/M 
10201 10274 10274 
10466 10519 10550/M 
10550 105539/M 10559 
10910/M 10910 10917/M 
11122 11%128/M 11128 

status 4856 9102/P 9103 

status 4868 9920/M 

status 4877 9950/M 9976/P 10088/P 

status 4935 6493 6532 6551 
7502 7533 7574 
7866/M 7866/M 7869 
7895/M 7898/M 7838/M 
7971/M 73976/M 797393 /M 
8156 8157 8164/M 
8227/M 8251/M 8266 
8544/M 8608/M 8616/M 
8260 $387 $388 
S406/M 9406/M 9416 
9479 /M 9520 9521 
9555 9556 9557 
§9$623/M 9623/M 9641 
10201/M 10201/M 10514/M 
10550/M 10550 10550/M 
10863 10864 10576/M 
10903 10903 10809 
11000/M 11086/M 11120/M 
11139/M 11139/M 11148/M 

status 4986 8428/P 84293 8445/P 

status 5005 8608/P 8603 

status §023 8702/M 8704/P 8717/P 

status 5647 56S50/M 5651/M 

status 5676 5698/P 

status 5714 5719/P 

status G464 6496/M 6496/M 

status 6467 6489/M 6496/P 

status 6505 6534/M 6534/M 

status 6508 6529/M 6S834/P 

status 6567 6604/M 6604/M 

status 6571 6601/M 6604/P 

status 7416 7452/M 7452/P 

status 7416 7452/M 7452/M 7461/M 

status 7416 7459/P 

status 74290 7449 /M 7452/P 7453 

Status 7472 7505/P 

status 7517 7539/P 

status 7562 7577/P 

*** REFERENCE ABBREVIATIONS M=modify, Azattribute, 

é 


REFERENCES OF tmm$dispatcher NOS/VE CYBIL/II 1.0 898102 
IDENTIFIER<---e eer te er eres --DEFINED--+ cette eee eee REFERENCES 
ON LINE 
‘Status 7618 7668/P 7698/P 
status 8381 8445/M 8445/P 
status 8381 8445/M 8445/M 
: Status 8581 8608/M 8608/P 
status 8581 &8608/M 8608/M 
status 8682 8704/M &8704/M 
status 8682 8739/P 
status 8780 &8855/P 
status 9057 9102/M 9102/P 
status $9057 $102/M 9102/M 
“status $327 8$333/P $334 
status $349 9373/M $373/M 9412/M 
status $352 §365/M $373/P 9412/P 
/ Status $491 9543/M 83543/M 9577/M 
‘status $4393 9502/M 9543/P 9577/P 
status 9586 §595/M 
status 9678 $745/P 
. Status $936 8ss76/M 99376/M 
status 10408 10466/P 
status 10944 109378/M 109386/M 10887/M 
ste 2667 8427/P 8447/M 
~stic_ allocation 2517 8853 8854/M 
str 5604 S60S/M $611 
stri 8936 10106/M 10106 
-Str2 5605 5610/M 5611/M 5612 
str2 9936 10106/M 10106/M 10106 
subcode 4878 7814/M 99352 
subpriority 3792 105S7/M 
- subregq 10946 10879 
subsystem_give_up cpu 2528 6917/M 6325/M 7866/M 
8172/M 8172/M 8227/M 
8821 8823/M 8905 
9623/M 9623/M 9647/M 
10519/M 10550/M 10550/M 
11139/M 11151/M 11151/M 
subsystem_lock_ priority count 2529 63911 6923/M 6923 
7898/M 7898 1979 
8227 8227/M 8227 
8630/M 8630 8849/M 
8$479/M $479 $623 
10201 10201/M 10201 
10519 10550 10550/M 
10925/M 109325 11139 
subsystem _locks set 4955 7836 8850/M 88327/M 
swap_queue_ link 1275 11032/M 11033/M 11034/M 
Swap_status 1269 5693 74598 7505 
11031/M 
Swapout reason $351 $3982 
Swapping keypoints 4771 8472 
syc$mf_system_debugger 3364 6614 8445 8608 
syc$rc_update_job_task _enviro 170 7813 
syc$recover_pt1 10959 10947 10980 
syc$ucr_condition 3455 3466 
ES Fs REFERENCE ABBREVIATIONS Memodify, Asattribute, 


7879 
7970/M 
8168 
8469/M 
8729 
8739 
9685 
O466/M 
O550 
OS6S5/M 
0917 
1130 


—_ = = ot 


10091/P 
6623/M 
7587 
7876 
7909 
7979/M 
816393/M 
8285 
8630/M 
9389 
9418/M 
9522 
9561 
$642/M 

10519/M 

10550/M 

10579/M 

10912/M 

11123 

11151/M 
8446 


8718 


7461/M 


7461/P 


S=subscript, 


§9412/M 
9433/P 
9577/M 


7866/M 
8227/M 
8907/M 
9647/M 
10579/M 


7863 
73879/M 
8499 
8326/M 
9623/M 

10486 

10550 

11139/M 
9426/M 


7539 


10847 


S=subscript, 


1989-08-21 13:33:34 
7884/M 7884 7889/M 7889 
7970 7975/M 7975 7979 
8172 8224/M 8224 8227 
8499 8630 8642/M 8642 
8730/M 8730 8739/M 8733 
9139 $249 9406 9479 
$687/M 9687 9742 9742 
10466 10466/M 10466 10466 
10550/M 10550 10550 10550/M 
10565 10567 10578 10579 
10925 10927/M 10827 11122/M 
11139 11151 
10094/P 10097/P 
6648/M 6968/M 6991/M 7452 
7807 7848 7848 7853 
7878 7882 7882 7890/M 
7913 7957 7963 7964 
8072 8138 8151 8151 
8172/M 8172/M 8225/M 8227/M 
8287/M 8445/M 8499/M 8499/M 
8630/M 8741/M 9102 9259 
9390 9400 9401/M 9403 
9473 9474/M 9477 9479/M 
9523 9527 9529/M 9554 
9563/M 9617 9618/M 9621 
9645 S647/M 9647/M 10187 
105193/M 10550 10550 10550 
10550/M 10557/M 10560 10563 
10573/M 10581/M 10781/M 108698 
10916 10920/M 10925/M 10925/M 
11126 11126 11127 11138/M 
11151/M 

IzI/O ref, Reread, Wewrite, 

1989-08-21 13:33:34 
9433/M 9433/M 
7898/M 7898/M 7973 /M 7979 /M 
843939/M 8499/M 8630/M 8630/M 
9406/M 9406/M 9479/M 9479 /M 
10201/M 10201/M 10490/M 10519/M 
10579/M 10925/M 109825/M 11139/M 
7866 7866/M 7866 7898 
7979 8172 8172/M 8172 
8499/M 8499 8622/M 8630 
S406 9406/M S406 9479 
9623 9647 9647/M 9647 
10487/M 10487 10519 10519/M 
10579 105879/M 10579 10925 
111393 11151 11151/M 11151 
7577 7668 7698 &8465/M 
10871 


Is1/0O ref, 


Reread, Wewrite, 


PAGE 


PAGE 


1218 


Pzparameter 


1219 


Psparameter 


REFERENCES OF tmm$dispatcher 


IDENTIFIER: <2" 2 2 eect eee ene eee 


syc$user_defined_ condition 
System_breakpoint selected 
system _ flags 
System_flags 


System_give_up_cpu 


System_iocks_set 
system supplied name 
system supplied name 


System_table lock count 


system_task_id 


Syt$180_idle_code 
syt$debug control 
Syt$ job recovery subreq 
syt$monitor flag 
syt$monitor_flags 


Syt$monitor_ request code 


Syt$monitor_ status 


syt$perf_keypoints enabled 
syt$pti_recovery info 
Syt$rb_job recovery 


DEFINED 
ON LINE 
3456 
1296 
2523 
4940 


2527 


10477 
1264 
48390 
2522 


syv$all_jobs_ selected _for_debug 6351 


Syv$perf_keypoints enabled 


tail 


tail_timeslice insert 
tail _timeslice_insert 


* eX 


REFERENCES OF tmm$dispatcher 


POENTLE LER o9 8 or eines see Sie 
tail _timeslice_ insert 
tail_timeslice_insert 
tail _timestlice_insert 
tail _timeslice_ insert 
tail_timesltice_insert 
tail_timeslice_ insert 
tail _ timeslice insert 
tail _timeslice_ insert 
tail _timestice_insert 
tail_timeslice_ insert 


tail_timestlice_ insert 
tail imeslice_ insert 
task_created after _last_swap 
task_has_ terminated 
task_id 

task_index 
task_is_terminating 
task_list op 

task _ priority changed 
task_queue 

task _rb 

task_ status 

task status 
task_status 
task_time_ slice_used 
task_time_slice_used 
task_time_slice_ used 
taskid 


1 
+ 


taskid 
taskid 
taskid 
taskid 
taskid 
taskid 
taskid 
taskid 
taskid 
taskid 
taskid 
taskid 
taskid 
taskid 
taskid 
taskid 
taskid 
taskid 
taskid 
taskid 
taskid 


EX 


6873 
7766 


REFERENCE ABBREVIATIONS 


DEFINED 
ON LINE 
79332 


REFERENCE ABBREVIATIONS 


a eo en ane eo se me Ss ow we 


~seeeenn een weann ee 


NOS/VE CYBIL/II 


NOS/VE CYBIL/TII 


REFERENCES 


73979 
8172 
8227 
&4993 
8630 
$406 
94793 
$623 
10201 
10519 
10579 
10825 
11139 
8644/M 
8743/M 
7303 
11075/M 
10128/M 
10984/S 
7834/M 
8223/P 
8219/M 
7749 


Memodify, 


1.0 89102 


7379 
8172 
8227 
8499 
86306 
9406 
9479 
$9623 
10201 
10519 


10925 
11139 
8731/M 


9006 
11076 


10396 
7840/M 
8233 
8220 
7753 
7363 


1.0 89102 
REFERENCES 
3468 
6613 8441/M 8445 
9024/M 9024 9158/M 
6628/M 8445/M 8608/M 
10133/M 10796 10797 
6328/M 7866/M 7898/M 
8805 8814/M 8821 
9406/M 9479/M 9623/M 
10573/M 10925/M 11139/M 
10477 10432 16832 
7817 8473 9374 
7817/M 9974 
6309 6910 7837 
78398 7979 7379 
8439 8630 8630 
8802/M 88O2 8806 
9033 9041 $113 
9406 9425 94795 
9623 9623 9647 
10482 10519 10519 
10825 11138 11139 
9516 9517 $518 
9615 9637 9638 
1164 5795 57397 
6350 
10946 
3347 5752 
25196 49393 6614 
9020 9026 9141 
10847 10871 11004 
94 612 4711 
4377 4985 4396 
95 4712 4843 
4986 4397 5005 
5736 5746 5753 
7420 8780 9327 
4764 
10949 
10865 
8440 
8472 
6631/M 7877/M 7877 
8074 8075 8082 
8142 8144/M 8147/M 
8223/58 8223/M &82439/M 
8249/M 8288/M 8288/M 
8344 8345/M 8347/M 
8371/8 8375/M 8445/M 
10561 10561/M 10561/M 
11124 11124/M 11124/M 
6899 7040 7087 
7866 7866 7866 
Mzmodify, Atattribute, 


79783 
8172 
8227 
8499 
8G30 
9406 
9479 
§623 
19201 
10519 


10825 
14139 


10452/P 
11076 


11002 
7861 
8249/P 


7756 
7364 
8099 
8739 
9712 
10466 
7756/S 
8544/P 
9018/S 
10746/M 
8616/5 
6492/S 
6531/5 
6550/S 


7452/S 
7459/S 
7502/Ss 
7505/S 
7532/s 
7574/S 
7577/S 
7807/S 
7812 

73857/S 
73979/P 
8072/S 
8075 

8138/S 


Azattribute, 


8608 
9158 
9024 
10798/M 
7973/M 
8824/M 
3647/M 
11151/M 


7861 
8172 
8708 
8807 
9121 
$479 
$647 
OoS50 
1151 
9550 
§639 


td 


6616 
9154 


4842 
5004 
4856 
5015 
5759 
9352 


7877/™M 


8608/M 
10901/M 


7898 


Szsubscript, 


9647 


10550 


1117151 


11077/8 


11003 


8102 
&739 
$716 
10466 
8018/S 
8614/S 
9134/S 
10783/M 
8630/P 
6492 
6531 
6550 


7452 
7463/S 
7502 
7509/S 
7532 
7574 
7581/Ss 
7807 
7864/P 
7957 


8072 
8083 
8138 


S=subscript, 


1989-08-21 13:33:34 
10131/M 10131 10797/M 107387 
8027/M $158 9160/M 10132 
11005/M 
8172/M 8227/M 8499/M 8630/M 
8362 8903/M 8305 8908/M 
10201/M 10485/M 10519/M 10550/M 
7862 7866 7866 7898 
8172 8227 8227 8499 
8765/M 8765 8788 8792 
8820 8900 8301 8904 
$256 $386 $389 9406 
9519 9522 9553 9556 
10196 10201 190201 10479 
10550 10579 10579 10925 
11151 
9551 9552 9613 9614 
8445 8445 8608 8608 
9159 10134 10790 10794 
48655 4867 4876 4968 
5014 5022 6011 10943 
4868 4877 4969 43978 
5023 S465 5647 5714 
6012 6467 6508 6571 
9493 s586 9678 10944 
7877 7877 7877/8 7877/M 
8086/5 8087/M 8087 8088/M 
8223 8223/M 8223 8223 
8249/M 8249 8249 8249/5 
8288/M &8288/M &8325/M 8343/M 
8363 8365/M 8365 8368 
10550/M 10550/M 10561/M 10561/M 
10933/M 11009/M 11124/M 11124/M 
7898 7898 

I=I/O0 ref, Rtread, W:write, 


1989-08-21 


9647 $647 
10550 10550 
11151 11151 
11078/S 11085/S 
11006 

8733 8738 

$724 9725 
10466 10466 

8019/58 8022/8 

8647 &8741/P 
10080/S 10130/S 
10784/M 11116 

8635/P 8646 

6493/S 

6532/S 

6551/S 

7452/S 

7502/S 

7533/8 7537/8 

7574/58 

7587/5 7587 

7807/S 

7866/P 7898/P 

7857/S 

8072/58 

8084 8086 

8138/58 

I=I/O ref, 


13:33:34 
10579 10579 
11086/P 11088/M 

87393 

S726 

10466 

8023/S 8096 
8742/P 8753/8 
10132/S8S 10133/S 
7533/8 7543/S 
7303 7914/P 
8088 8096 


Reread, Wwrite, 


PAGE 


PAGE 


1220 


Pzparameter 


1221 


P=parameter 


Bere ee 


REFERENCES OF tmm$dispatcher NOS/VE CYBIL/II 1.0 89102 1889-08-21 13:33:34 PAGE 1222 
TDENT TE TERS 9 S85 8 eee 2 8 ore ee DEFINED*--- errr er eee ere REFERENCES 
ON LINE 
taskid 8112 8135/M 8136/5 8137/M 8138/P 8172/P 
taskid 8183 &8227/P 8235 
taskid 8259 8266 8266 &8266/S 8266 8266/S 
taskid 8260 &8266/P 8267/S &8268/M 8269/M 
taskid 8381 8445/M 8445/M 
taskid 8581 8608/M 8608/M 
taskid 8581 8635/S 8635 
taskid 8682 8742 
taskid 9057 $102 9102 9102/8 9102 9102/Ss 
tasks _ not _in_long wait 1647 7873/M 78793 7884/M 7884 8463/M 8643/M 8643 8730/M 
&730 9139 10550/M 10550 10550/M 10550 10565/M 10566 
10567 10910/M 10910 10817/M 10917 11128/M 11129 11130 
tasks not _Swappable count $361 $382/M 9$3933/M $393 9432 
tasks not _sSswappabile_ count 9500 9510/M 9525/M 9525 9541 9559/M $5593 9575 
temp_next_ cyclic_aging 8682 8754/M 8754 8754 
temp _next cyclic_aging $282 $303/M 9304 9307 
temp next _cyclic_aging 9362 9435/M 9436 9439 
temp next cyclic_aging 98793 $888/M 9889 9892 
temp_next cyclic_aging 10408 10530/M 10530 10530 
,temp_xcb_p 8781 &8840/P 8841 8841 8842/S 8844/S 8846/P 
time 10433 10748/M 10750/M 10752 10753/M 10753 10754 1TO755/M 10756 
10757/M 10759 
time left _in_interval 47396 8739 8739 /M 8739 9694 9694/M 3694 $761 9771/M 
9772 10466 10466/M 10466 10774 10774/M 10774 
time_next scan_wait_not_queued 8277 8286 
time _spent_in_job_mode 1630 8739 /M 8739 8739/M 8739 &8739/M 8739 8739 9687/M 
9688 9701/M 9702 3703/M 3703 $742 9830 10274 
TO466/M 10466 10466/M 10466 1O466/M 10466 10466 
time _spent_in mtr_mode 1631 8739/M 8739 87339 /M 8739 &8739/M 8739 8739 9685/M 
9686 9698/M 9699 9707/M 93707 9743 9321 10275 
TOSEG/M 10466 10466/M 10466 10466/M 10466 10466 
time_used 8682 8739 &739 8739 8739 &739 87393 
time _used $661 $694 9694 9694 9694 9694 3694 
time_used $754 $761 S772 9776 $786 93793 9811 
time used 10408 10466 10466 10466 10466 10466 10466 10774 10774 
10774 10774 10774 10774 
timeslice 2543 6893 6895 6887/M 6S300/M 6901/M 7866 7866 7866/M 
7866/M 7866/M 7898 7898 7898/M 78398/M 78938/M 7979 
7979 7979/M 7379/M 7979/M 8172 8172 8172/M 8172/M 
8172/M 8227 8227 8227/M 8227/M 8227/M 8496/M 8499 
8ass 8499/M 8499/M 8499/M 8624/M 8630 8630 8630/M 
8630/M 8630/M 8739 8739 87339/M 8739/M 8739/M 8739 /M 
9406 S406 S406/M S406/M 9406/M 9479 9473° 9479/M 
9479/M $479/M 9623 $623 $623/M 9623/M 9623/M 9647 
$3647 9647/M 9647/M 9647/M $725 $726 9728/M $730/M 
9733/M 9735/M 10193/M 10201 10201 10201/M 10201/M 10201/M 
10466 10466 10466/M 10466/M 10466/M 10466/M 10519 10518 
105193/M 10519/M 10519/M 10550/M 10550/M 10550 10550 10550/M 
10550/M 10550/M 10579 10579 10579 /M 10579/M 10579 /M 10786 
10922/M 109823/M 10325 10925 10925/M 10925/M 10825/M 11110/M 
111398 111398 111393/M 11139/M 11139/M 11151 11151 11151/M 
11151/M 11151/M 
timeslice 6879 6884/M 6893 6895 6897 6900 6901 
** x REFERENCE ABBREVIATIONS M=modify, Azattribute, sSubscript, I2I1/0 ref, Reread, W-write, P=parameter 
REFERENCES OF tmmS$dispatcher NOS/VE CYBIL/II 1.0 89102 e 1989-08-21 13:33:34 PAGE 1223 
IDENTIFIER---- rere ree eee rene ~DEFINED----eee----- --° -REFERENCES 
ON LINE 
timeslice 7766 7866/M 7866 7866 7866 7866 7866 783938/M 7898 
7898 78398 7898 7898 
timeslice 7932 7979/M 7979 7379 7379 7379 79793 
‘timeslice 8110 8172/™M 8172 8172 8172 8172 8172 
timeslice 8182 8227/M 8227 8227 8227 8227 8227 
timeslice 8381 8499/M 84993 8439 8439 8499 8439 
timeslice 8581 &8630/M 8636 8630 8630 8630 8630 
timeslice 9349 S406/M 9406 8406 9406 9406 9406 
timeslice 9446 9479/M 94793 9473 $4793 9473 9479 
timeslice 9584 9623/M 93623 9623 9623 $623 3623 9647/M $647 
9647 9647 9647 9647 
timeslice 10157 10201/M 10201 10201 10201 10201 10201 
timeslice 10408 10519/M 10519 10519 10519 10519 10519 10550/M 10550 
10550 10550 10550 10550 105793 /M 10579 105793 10579 
105793 10579 
timeslice 10879 10825/M 10925 10925 10925 10825 10325 
timeslice 11095 11139/M 11139 11139 11139 11139 11139 11151/M 11151 
11151 11151 11151 11151 
tmc$ 5038 5044 $047 5050 $053 5056 5089 S062 S065 
5068 5071 5074 5077 5080 5083 5086 5089 
tmc$broken_task_fault_id 3383 3433 
tme$btc_invalid_ao 3481 3502 
tmce$btc_ invalid _p 3481 3502 
tmc$btc_mcr_ traps disabled 3482 3503 
tmc$btc_ mf _ traps disabled 3481 3501 
tmc$btc_ mntr_fault_buffer_ full 3480 3501 
tmc$btc_system_error 3483 3497 
tmc$btc_ucr_ traps _ disabled 3482 3503 
tmc$cpo_interact ive_command 4914 7815 10035 10040 
tmc$cpo_interrupt restore 4915 10048 
tmce$cpo_operator 4910 $981 $993 
“tmceS$cpo_recovery 4916 9981 
tmc$cpo_save_swap_file_sfid 4912 10035 
tmc$cpo_set_job_unswappable 4913 10022 
tmc$cpo_user 4911 10013 
“tmce$cyc le_reason 619 613 6376 
tmcS$dummy_ fault 3384 3439 
tme$filag avai labie_ 31 3618 3622 
“tmc$fnx_ continue 4824 7657 8846/P 83823/P 10207/P 10243/P 
tmc$fnx_ job 4824 7670 8839/P 8917/P 10005/P 10020/P 10033/P 10047/P 10071/P 
10393/P ; 
_tmcS$fnx_ system 4824 7659 7683 
tmc$ir_dm_system_tasks 4837 9512 9609 10094/P 10097/P 
tme$ir_other_system_tasks 4837 10088/P 10091/P 
tmc$is_idie_ initiated 3779 8614 8753 9394 $526 $3560 10527 
~tme$is_idied 3779 7837 7888 7833 7969 7374 8162 8167 8217 
8533 8754 8754 $2398 $399 9422 9472 9533 
9567 $616 9640 $883 $883 10528 10530 10530 
10550 10575 10807 11007 
tmce$is_idled_sched_notified 3780 7891 7873 8165 8252 8615 8420 $531 $565 
10550 10582 10908 
tmc$is not_idiled 3779 6629 8445 8608 $409 $482 $626 9650 16080 
10569 11132 
eet REFERENCE ABBREVIATIONS Mzsmodify, Atattribute, S:subscript, I21/0 ref, Reread, Wewrite, P*parameter 


REFERENCES OF tmm$dispatcher NOS/VE CYBIL/II 1.0 89102 


7452/P 
10453/P 


$613 
9614 


8615 
7964 
8156 


7360 
6152 
$477 
10903 
9523 
6551 
7850 
8266 
$181 
8151 
6968 
8172 
9406 
10514 
11138 
7866 
9406 
10550 
7909 
9528 


8285 
11000 
$124 
9390 
8287 
10916 
8022 
9368 


$163 


10848 
7452/P 


8608/P 
5127 
5151 
5177 
5202 
5226 
10822 
8608 
7014 
8172 
8739 
$528 
$694 
10466 
10579 
11139 


$102 


6502 
7927 
8508 
$028 
$486 
10210 


7898 
9623 
11151 


8846 


IDENTIFIER--*- ee eee eee eee ee -DPEFINED---+--+-2+-+----REFERENCES 
ON LINE 
tmc$maximum_monitor_ faults | 3388 3379 
tmce$maximum_pt 1 4922 6338 6344 
tmc$maximum_signals 3598 3535 
tmc$maximum_system_task_id 3631 3634 
tmcS$mcr_ fault 3383 3435 
tmce$opt_ return 4950 6495 6533 
tme$rc_ready_conditionali_wi 3782 7921 9195/P 
tmc$signal_available_63 3580 3591 
tme$st id_administer_log 3640 9516 8550 
tmc$stid_dm_split_al 3641 9517 9551 
tme$stid_null_task 3637 3634 
tmc$stid_volume_space_managemnt 3642 9518 9552 
tmc$ts_ executing 3770 7587 7848 
tmce$ts_first_external_queue 3757 7749 8078 
tmce$ts_first_ready_uncond 3756 7849 
tmce$ts_first_status_ in_wait_q 3753 $259 
tme$ts_io_wait_not_queued 3774 3756 7753 
tme$ts_io_wait_queued 3777 80399 8151 
tmc$ts_ last status in_dct 3752 9403 9416 
10550 10556 
tme$ts_last_status_ in _wait_q 3754 7876 8260 
tme$ts null 3761 6433 6532 
7750 7807 
8138 8160 
$164 $167 
tme$ts_ page wait 3776 3757 8093 
tmc$ts_ ready 3761 3752 6623 
7379 8169 
&630 9401 
S647 10201 
109820 10925 
tme$ts ready_and_selected 3763 6991 7848 
8630 $388 
: 10201 10519 
tme$ts_ready_but_swapped 3772 7869 78390 
$418 $473 
10812 
tme$ts_ segment _lock_wait 3776 7913 
tmce$ts_timed_wait_not_queued 3768 3755 7883 
tmce$ts_ timeout regexp inf long 3771 9042 9122 
tme$ts_ timeout _reqexp_infviong 3771 7882 9044 
tmc$ts_ timeout reqexp iongliong 3766 $034 $114 
tmc$ts_timeout reqexp_longviong 3766 3754 T3878 
10563 10809 
tmce$ts_timeout reqexp_shortshrt 3765 3753 8019 
tme$ujte_dispatching_priority 4878 4887 7814 
tmc$ujte_expand_ pt 4878 4892 100389 
tmce$ujte_idie_dm_sys_tasks 4880 4895 10083 
tmc$ujte_idie_other_sys_tasks 4879 4894 10087 
tmcSujte_ restart _dm_systasks 4880 4895 10096 
tmce$ujte_restart_other_systasks 4879 4894 10090 
tmc$ujte_ set _non_swappablie 4879 4894 10079 
tmeS$ujte_set_task_terminating 4881 10123 
dialed REFERENCE ABBREVIATIONS : Metmodify, Azattribute, 
REFERENCES OF tmm$dispatcher NOS/VE CYBIL/II 1.0 891062 
IDENTIFIER-- cere ees ee een eee es -DEFINED------- a ii ~ "REFERENCES 
ON LINE 
tmc$ujte update debug masks 4880 4ags 10120 
tmceS$ujte_xp_register 4878 4882 99853 
tmc$wi_ nut 4361 $180 10804 
tmcS$wi_wait inhibited 4961 7924 9143 
tmc$wi_wait_ selected 4962 7922 9171 
tmc$wi_wait_ selected _r3 4962 7923 9169 
tme$invalid _global_taskid 5044 6496/P 6534/P 
tme$ job_Swapped_ out 5056 7461/P 
tme$ptil_ full 5047 6604/P 8445/P 
tmk$monitor_ base 838 5121 5124 
$145 5148 
5170 5173 
5196 5199 
§220 5223 
tmk$switch task 5173 10441 10524 
tmp$assign_ptl 6567 6637 8445 
tmp$calculate dct priority _int $852 6694 6979 
7979 7379 
8630 &630 
9479 $479 
$6384 $6394 
10201 10201 
10550 10579 
10925 11139 
tmp$cause_task_ switch 8011 8041 
tmp$check for _swapout candidate $217 $273 
tmp$check pt 1_ lock 5668 S673 
tmp$check_taskid 6464 6503 
tmp$check_taskid with_lock set 6505 6540 7452 
tmp$check timed _wait_not_queued 8276 8294 
tmp$clear_ lock 6444 6457 6494 
7725 7787 
8232 8451 
8961 §010 
9271 9339 
10137 10141 
11022 11755 
tmp$create_ job 8381 8510 
tmp$create_task 8581 8679 
tmp$cycie 8875 8363 
tmp$dct_ ready task 6863 7064 7866 
9406 $479 
10825 11139 
tmp$delay 8966 9055 
tmp$dequeue_ task 8110 8178 
tmp$exit_ job 8513 8578 
tmp$fetch_task_ statistics 93900 $332 
tmp$f ind _next_queued_ task 8259 8272 
tmp$find_ next xcb 7618 7727 8839 
10243 
tmp$f ind_xcb 7416 7468 
tmp$free_ unrecovered tasks 11068 11091 
tmp$get_top_of_ stack 7562 " 7601 


*** REFERENCE ABBREVIATIONS : Memodify, Atattribute, S:subscript, 


7452 


11020/P 


9637 
9638 


9639 
8157 
8157 


S=subscript, 


10801 


8704/P 


10887 
5130 
5154 
5181 
5205 


7454 
7383 
8553 
9048 
9539 
10246 


73979 
9647 


83917 


1989-0 
9102/P 9102 
9387 9520 
9561 9621 
10550 10560 
7452 7502 
7967 8018 
8741 $102 
105588 10869 
7866 7895 
8227 8445 
94793 9618 
10550 10550 
11148 11151 
7979 8172 
9521 9555 
10925 11139 
8164 8251 
9617 9641 
9118 9138 
$391 10564 
9116 9137 
9523 9557 

z1/O ref, 

1989-90 
$102/P 
5133 5136 
5157 5160 
5184 5187 
5208 5211 
7866 7866 
8227 8227 
8739 S406 
$623 $623 
$781 9806 
10466 10519 
10774 10774 
11151 
7466 7512 
8038 8104 
8610 8677 
9104 9211 
9573 9631 
10523 10589 
8172 8227 
10201 10518 
8323 10171 

IsI/O ref, 


8-21 


$554 


Rsread, W 


8-21 


§139 
5164 
5190 
§214 


7898 
8439 
9406 
9647 
9868 
10519 
10774 


7547 
8176 
8756 
92506 
9655 
10820 


8499 
10550 


10207 


13:33:34 PAGE 1224 


160781 


10197 


11123 
7574 
8078 
$161 

11121 


7976 
&608 
9642 
10579 


8499 
8647 


$400 
10581 


11127 


10550 


zswrite, P=parameter 


13:33:34 PAGE 1225 


5142 
5167 
5193 
5217 


7898 
8439 
9417 
9647 
10198 
10550 
10925 


7599 
8270 
8870 
$257 
$375 
10988 


8630 
10579 


10234 


Reread, Wewrite, P=zparameter 


REFERENCES OF tmm$dispatcher 


IDENTIFIER ---- ee ee eee eter renee D 
8) 
tmt$dual_state_dispatch_prior 
tmt$duail_state_priority entry 
tmt$find_ next _xcb_state 
-tmt$fnx_search_type 
tmtSidle resume _sys_task_kind 
tmtSidie status 
tmt$mer_ faults 
tmtS$monitor_fault_buffer 
tmtS$monitor_ fault _buffers 
tmtSmonitor fault identifiers 
» tmt$option 
tmt$primary_task_list 
tmtSprimary_task_list_entry 


tmt$ptil_filags 

tmt$pt1_ lock 

tmt$rb_cycie 

tmt$rb_ delay 

tmt$rb_exit_ job 

tmt$rb_ fetch task _ statistics 
tmt$rb_initiate_job 
tmt$rb_initiate_ task 

tmt$rb ready task 

tmt$rb task_exit 

tmt$rb_ update job_task_enviro 
tmt$rb_ wait 
tmt$rb wait signal 
tmt$ready_ condition 
tmt$signal 

tmt$signal_buffer 
tmt$signail_buffers 
tmt$system_flags 


tmt$system_task_id 
tmt$task_ queue _ link 


tmt$task_status 
tmt$time_limits 

tmt$wait inhibited 
tmt$xcb_offset_size 
tmv$cpu_execution_ statistics 


tmv$cycile_delay_time 
tmv$dct 


xeEE 


EFINED 
N LINE 
3786 
3790 
4826 
4824 


REFERENCE ABBREVIATIONS 


NOS/VE CYBIL/II 


REFERENCES 


6335 
1146 
7622 
4827 
9492 
4337 
3436 
2547 
3374 
3432 
6466 
4893 
4948 
8065 
10435 
4941 
6352 
8876 


3726 
4800 
4956 
4933 
8739/M 
10466/M 
8023 
6602 
6752 
7864/M 
7898 
8172 
8227/M 
8499/M 
8630/M 
$406 


Memodify, 


1.0 89102 


6335 
3787 
8779 
7613 
9585 


3375 
3508 
6507 
6355 
6595 
8131 
10891 


6352 


89367 


$337 


3530 
4940 
10798 


4011 
8360 
43935 


&739 
190466 
8928 
6608/M 
6776/M 
7866 
7898/M 
8172/M 
8227/M 
8544 
8630 
S406/M 


REFERENCES OF tmm$dispatcher NOS/VE CYBIL/II 1.0 89102 
IDENTIFIER------- eS ae ee ee ee DEFINED <s2se=s42e esses REFERENCES 
ON LINE 
tmp$get_xcb access status 5676 5701 7459 7505 
tmp$get_xcb_p 7472 7514 
tmp$get_xcb_p_from_ptilo 7607 7614 9255 10515 
tmp$idile_non_dispatchable_job 9322 $341 
tmpSidie tasks _in_job $349 9333. 9443 
tmp$idie_tasks_in_system_job 9491 $581 10088 10094 
tmp$insert_timed_wait_queue 8238 8288 8351 10561 
tmp$ job_recovery requests 1039364 11058 
tmp$mtr_begin_lock_activity 8761 8767 
tmp$mtr_end_lock_activity 8770 8872 
tmp$mtr update job _task_enviro $836 7821 10143 
tmp$mtr_wait 9057 9214 
tmp$obtain_ijl_ordinal_from_pt1 6558 6564 
tmp$queue_ task 8044 8106 
tmp$reissue_monitor_request 7988 8008 10083 
tmp$remove_task_ from_dct 6660 6726 7864 $417 
tmp$remove_task_from_q 8358 7877 8223 8249 
tmpSreset_dispatching control 10362 8739 3717 gs397 
tmp$restart_idled_tasks 9446 9488 
tmp$restart_tasks_in_system_job 9584 9658 10091 10097 
tmp$send_signal 5757 &717 
tmp$set_ lock 6421 6439 6490 7450 
7806 7956 8017 
8532 8607 8727 
9329 $469 9504 
105$3 10981 11107 
tmp$set_monitor_ flag 5751 8855 
tmp$set_swapout_ candidate 9278 9268 8312 10571 
tmp$set system_f lag 5744 8739 9745 10466 
tmpSset_task_ready 7766 7929 $194 10452 
tmp$set_task_ready_uncond 7932 7985 
tmp$set_task_wait 7730 7763 
tmp$set_up_debug registers 10832 10854 
tmp$stop_if_bad_taskid 6544 6555 7502 7574 
tmp$switch task 10408 10824 
tmp$switch task_from_failing cp 11095 11157 
tmpS$task_exit 8682 8758 
tmp$test get_xcb p 7517 7549 
tmpSupdate_ debug registers 10863 10121 10875 
tmp$update_job_task_cpu_selects 10224 10248 
tmp$update_job_task_environment 10157 10005 10020 10033 
tmp$update_system_task_list 5764 8713 
tmt$broken_task_condition 3480 3496 
tmt$broken_task_monitor_ fault 3494 3434 
tmt$change_priority_origin 4910 4888 
tmt$cpu_execution_statistics 4780 6329 
tmt$dct_ entry 5099 5106 6676 6746 
tmtSdispatch_ contro}! 3723 1159 
stmt $dispatch control table 5106 6366 
tmt$dispatching control sets 4814 6333 8830 9855 
tmt$dispatching controls 4785 6332 
tmt$dispatching prio_controls 4795 4790 6334 
tmt$dispatching priority time 4800 4797 
wee REFERENCE ABBREVIATIONS Memodify, Azattribute, 


8891 
10160 


3376 


6679 
8185 
10975 


6421 


3531 
6628 
11005 


4338 


4936 


8739/M 
1O0466/M 
8330 
6651 
6369 
7866/M 
7838/M 
8172 
8445 
8544/M 
8630/M 
9406 


Azattribute, 


7539 


171149 


11124 


9528 
8377 
10064 


7501 
8070 
8783 
S607 


11134 


11020 


7807 


10047 


6872 


1042985 


S=subscript, 


10168 
10227 


6749 
8263 
11101 


6444 


8445 


6343 


6377 


87393 
10466 


6652/M 
6984/M 
7866 

7379 

8172/M 
8445 /M 
8544/S 
8630/M 
S406/M 


S=subscript, 


1989-08-21 13:33:34 
7577 7668 7698 
9562 10198 10725 
10404 10466 
7529 7873 7653 7748 
8134 8265 8282 8444 
8837 9004 81900 $247 
9951 10170 10233 10461 
7957 8072 8138 8266. 
10071 10212 10393 
TOT2 7184 7293 
I=1/0 ref, Rtread, Wewrite, 
1989-08-21 13:33:34 
10231 
6874 6878 7801 7353 
8353 8g3g7 9091 10165 
8608 8027 $1696 10133 
6343 8047 8111 8209 
7731 7334 8046 30930 
s698/M s69g9s $701/M $702 
6654/S S6S56/M 6682 6724/M 
7004 7015/M 7O062/M 7864 
7866/M 7866/M 7898 7898/M 
783739 /M 73793 7973 /™M 7979 /M 
8172/M 8227 8227/M 8227 
8499 8499/M 8439 84399/M 
8544/M 8608 8608/M 8630 
8741 &87481/M 8741/8 8741/M 
S406/M 9417 9417/M $473 


1=s=I/O ref, 


Reread, W=write, 


PAGE 


PAGE 


1226 


Pzparameter 


1227 


P=parameter 


REFERENCES OF tmm$dispatcher NOS/VE CYBIL/II 1.0 898102 1989-08-21 13:33:34 PAGE 1228 
IDENTIFIER: -+- cee see ee eee ee eee DEFINED----+++*+-*2¢2-- REFERENCES 
ON LINE 
9479/M $479 8479/M 9479/M $528 9528/M 9562 8562/M 
9623 8623/M 9623 8623/M $623/M 9647 3647/M 9647 
9647/M 9647/M 19113 10114/M 10116/S 10118/M 10198 10198/M 
10201 10201/M 10201 10201/M 10201/M 105198 10519/M 10519 
10519/M 10519/M 10550 10550/M 10550 10550/M 10550/M 10579 
10579/M 10578 105793/M 10579/M 10674 10725 10725/M 10925 
10925/M 10825 10825/M 10825/M 109387 109397/M 11086 11086/M 
11086/S5S 11086/M 11139 111393/M 11138 1113393/M 11139/M 11151 
11151/M 11151 11151/M 11151/M 
tmv$dct_priority integer 6330 6694 6379 7014 7760 7864 7866 7866 7898 
7898 7379 1979 8026 8094 8172 8172 8227 
8227 $4939 84ag9g 8561 8630 8B30 87393 87393 
87338 8748 89335 9051 9176 S406 9406 9417 
3479 9479 $528 9562 9623 $623 $647 9647 
9694 s6s4 9694 S766 9781 8806 S866 10198 
10201 10201 10466 10466 10466 10519 105193 10541 
10550 10550 10575 10579 10725 10774 10774 10774 
10925 10925 11139 11139 117151 11151 
tmv$dedicate_a_cpu_to_nos 6364 6949 7866 7898 7979 8172 8227 849935 8630 
S406 $4793 $623 9647 10201 10519 10550 10578 
10594 10747 10925 11139 11151 
tmv$dispatch_priority integer 6331 63840 6988 7866 7866 7898 7898 7979 73793 
8172 8172 8227 8227 8499 8499 8630 8630 
87393 8733 87383 8817 8827 9406 9406 9479 
$4738 9623 $623 9647 9647 $694 9694 9694 
9768 $782 9807 9841 10201 10201 10466 10466 
10466 10484 10489 10518 10513 10550 10550 10579 
10578 10774 10774 10774 109325 10825 11139 11139 
117151 11151 
tmv$dispatching control_sets 6333 6632/M 6692 6694 6976/M 6976 6979 7012/M 7012 
7014 7864/M 7864 7864 7866/M 7866 7866 7866/M 
7866 T866 78938/M 7838 7898 7898/M 78398 7898 
7979/M 7979 79793 7879/M 7379 7379 8172/M 8172 
8172 8172/M 8172 8172 &8227/M 8227 8227 8227/M 
8227 8227 8499/M 8433 84395 843939/M 8499 8499 
8630/M 8630 8630 8E630/M 8630 8630 8739/M 8739 /M 
8733/M 8739 8738 8739 8739/M 8739 8739 87393 
87398 8733/M 8733 87339 /M 8739 8739 8739 9406/M 
9406 9406 9406/M 9406 9406 9417/M 9417 9417 
9479/M $473 94795 9479/M 94793 94793 8528/M $528 
9528 9562/M $562 9562 9623/M 8623 9623 9623/M 
$623 9623 $3647/M 9647 $647 9647/M $647 9647 
9694/M 9694/M 9694/M s694 9694 9694 9694/M 9694 
9694 $694 $694 s6s4/mM 9694 §$694/M 96394 9694 
$694 8763/M 9764/M S3765/M $766 $768 9774 8:778/M 
3778 $781 $782 $791 9795/M 97935 9802/M 9802 
$806 93807 9832 9857 10188/M 10198 10198 10201/M 
10201 10201 10201/M 10201 10201 10466/M 10466/M 10466/M 
10466 10466 10466 10466/M 10466 10466 10466 10466 
10466/M 10466 10466/M 1O466 10466 10466 1051393/M 10519 
10519 10519/M 10519 10519 10550/M 10550 10550 10550/M 
10550 10550 10579/M 105793 10579 10579/M 10579 10579 
10657 10725/M 10725 10725 10774/M 10774/M 10774/M 10774 
* e+ REFERENCE ABBREVIATIONS Mzmodify, Atattribute, Stsubscript, I2I/O ref, Reread, Wewrite, P2parameter 
REFERENCES OF tmm$dispatcher NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 1229 
IDENTIFIER<---* eect tee eee ete ee DEFINED----+-+--e2e2e-ee REFERENCES 
ON LINE 
10774 10774 10774/M 10774 10774 10774 10774 10774/M 
10774 10774/M 10774 10774 10774 10325/M 10925 10925 
108325/M 10825 10825 11139/M 11139 11139 11139/M 11139 
11139 11151/M 11151 117151 11151/M 11151 11151 
tmv$dispatching_control_time 6334 8739 87339/M 8733/M 87393 8739 8739/M 87393 8739 
8733/M 8739 9694 s694/M 8694/M $694 9694 963934/M 
9694 9694 9694/M 9694 9761 $762/M $771/M 9771 
S776 3784/M $785 937933 9809/M $810 1O466 10466/M 
1O466/M 10466 1O466 10466/M 10466 10466 10466/M 10466 
10774 10774&/M 10774/M 10774 1O774 10774/M 10774 10774 
10774/M 10774 
tmv$dispatching controls 6332 8739 87393 8739 8739 8733 9694 9694 $694 
s694 $694 $760 S762 $763 9790 9801 10466 
10466 10466 10466 10466 10774 10774 10774 10774 
10774 
tmv$dual_state_dispatch_prior 6335 10494 10788 
tmv$io_wait_task_count 6338 7754/™M 7754 7961/M 7961 8100/M 8100 8153/M 8153 
10736 
tmv$ long _wait_force swap_t ime 6346 9267 
tmv$ long wait _swap_time 6345 $033 $041 $113 $121 
tmv$multiple cpus active 6339 105396 
tmv$null_global_task_id §9318 6491 6530 6549 7056 7260 7452 7502 7531 
7574 7807 7827 7866 7898 7957 7379 8072 
8138 8172 8227 8266 8499 8630 $101 9102 
$187 S406 $4793 $623 9647 10041 10201 10519 
10550 10579 10925 11139 11151 
tmv$pt1_ lock 6352 5671 64390/P 6494/P 6502/P 7450/P 7454/P 7466/P 7501/P 
7512/P 7529/P 7547/P 7573/P 75939/P 7653/P 7T725/P 7748/P 
7757/P 7806/P 7927/P 79856/P 7983/P 8017/P 8039/P 8070/P 
&8104/P 8134/P 8176/P 8265/P 8270/P 8282/P 8292/P 8444/P 
8451/P 8508/P 8532/P 8553/P 8607/P 8610/P 8677/P &727/P 
8756/P 8783/P 8870/P 8897/P 8961/P 9004/P 9010/P 9028/P 
9048/P 9100/P $104/P $211/P $247/P 9250/P 8$257/P 9271/P 
9329/P 9339/P 9469/P 8486/P 9504/P $539/P 9573/P 9607/P 
9631/P 9655/P g9351/P s975/P 10137/P 10141/P 10170/P 10210/P 
10233/P 10246/P 10461/P 10523/P 10589/P 10593/P 10820/P 10981/P 
10988/P 11022/P 11107/P 11155/P 
tmv$pti_p 6355 6491 6492 64833 6530 6531 6532 6549 6550 
6551 6562 6607 6648/M 6649/M 6650/M 6654/M 6681 
6707 6712/M 6712 6751 6766 6771/M 6771 6881 
6965 7020 7021/M 7034 7035/M 7041/M 7054 7054 
7054 7054 7054 7054/M 7054 7054/M 7054 7054/M 
7054 7054 7054 7054 7054 7054 7054 7054 
7O054/M 7054 7054/M 7054 7OS4/M 7054 7O56 7OS6 
7056 7056 7056 7O56/M 7056 7056 7056/M 7056 
7O56/M 7056 7056 7056 7056 7056 7056 7056 
7056 7056 7056/M 7056 7056/M 7056 7056/M 7056 
7058 7058 7058 7058 7058 7058 7058 7058/M 
7058 7058/M 7058/M 7104 7105 7105 7107 7110 
7112/M 7112 7114/M 7114 7115/M 7133 7146 . 7148 
7148 7150 7155 71606 7163 7168/M 7168 7169/M 
7169 7170/M 7171 7216 7217 7217 7219 7222 
7224/M 7224 7227 7223/M 72293 7230/M 7243 7255 
*E REFERENCE ABBREVIATIONS Memodify, Atattribute, S=subscript, I21/0 ref, Reread, Wewrite, P=parameter 


REFERENCES OF 


IDENTIFIER--+°-- eee eee 


REFERENCES OF 


IDENTIFIER-------c- eee ee 


tmm$dispatcher 


wewaaea 


be 


tmm$dispatcher 


ext 


DEFINED 
ON LINE 


REFERENCE ABBREVIATIONS 


DEFINED 
ON LINE 


REFERENCE ABBREVIATIONS 


NOS/VE CYBIL/II 


NOS/VE CYBIL/II 


1.0 89102 
REFERENCES 
71257 7257 
7277 7278/M 
7321 7324 
7369/M 7369 
7452 7452 
7503/P 7505/P 
7543 7574 
7612 7721 
7808 7864 
7866/M 7866 
7866 7866/M 
7866 7866 
7866/M 7866 
7866 7866/M 
7866 7866 
7866/M 7866 
7866 7866 
7866/M 7877/M 
7898/M 7898/M 
7898 7898/M 
7898 78398 
7898/M 7898 
7898 78398 
7898 7898 
7898/M 7898 
7898 7898 
73957 7957 
7979/M 7879/M 
7979 7879/M 
7979 71379 
7879/M 7379 
7979 7979S 
7973 7379 
79739/M 7979 
7379 7379 
8019 8022/M 
8136 8138 
8172/M 8172 
8172 8172/M 
8172 8172 
8172/M 8172 
8172 8172/M 
8172 8172 
8172/M 8172 
8172 8172 
8172/M 8223/M 
8227/M 8227/M 
8227 8227/M 
8227 8227 
8227/M 8227 
8227 8227 
8227 8227 
8227/M 8227 
M=emodify, Azattr 


1.0 891902 


-REFERENCES 
8227 8227 
8249/M 8249/M 
8285 8285 
8288/M 8&288/M 
8341/M 8343/M 
8499 8499/M 
8498 84993 
8499 8499 
8498 84393 /M 
8499 8499 
8498 8499 
8499 8499/M 
8499 8499 
8439/M  8499/M 
8608 8614 
8630 8630/M 
8630/M 8630 
8630 8630 
8630 8630/M 
8630/M 8630 
8630 8630 
8630 8630/M 
8630 8630 
8635/M 8635 
8742/M 8742 
8834/M 8835/M 
8914/M 8819 
$102 9102 
8260 9261 
8388 8389 
9406 9406 
9406 S406 
S406/M S406 
S406 8406/M 
S406 8406 
9406 8406/M 
S406 8406 
9406 9406 
S406/M 9406 
8417 9417/M 
9471 9472 
S4793/M 9478 
9478 9479/M 
9479 9473 
$473/M 94793 
8478 9479/M 
9479 9479 
9473/M 9479 
9479 9479 
9473/M  9482/M 
§526/M $527 
8533/M 9536 
$561 8562 — 
M=modify, 


8227/M 


ibute, 


Arattribute, 


7265 
7279/M 
7330 
7407 
7459/P 
7531 
7574 
7749 
7864/M 
7866/M 
7866/M 
7866 
7866 
7866 
7866 
7866 
7866 
7898 
7898 
7898/M 
7898 
7898 
7898 
7898 
7898 
7898/M 
79793 
7979 
7979/M 
7979 
7979 
7979 
79793 
7979 
7979/M 
8068 
8138 
8172/M 
8172/M 
8172 
8172 
8172 
8172 
8172 
8172 
8227 
8227 
8227/M 
8227 
8227 
8227 
8227 
8227 


subscr 


8227/M 
8266 
8288 
8321 
8365/M 
8499/M 
8499 
84399 
8499/M 
8499 
8499 
8499/M 
8499 
8536 
8616/M 
8630 
8630 
8630 
8630 


$562/™M 


ipt 


S:subscript, 


1989-08-21 13:33:34 

72693 7272 7275 7277/M 
7280 7318 73183 7319 
7333/M 7333 7335/M 7336/M 
7410/M 7410 7411/M 7452 
7463 7502 7502 7502 
7532 7533 7537/P 7539/P 
7575/P 7577/P 7581 7587 
7756/M 7807 7807 7807 
7864 7866 7866 T7866 
7866 7866 7866 7866 
7866 7866/M 7866 7866 
7866 7866 7866/M 7866 
7866 7866 7866 7866 
7866/M 7866 7866/M 7866 
7866 7866 7866 7866 
7866/M 7866 7866 7866 
7866 7866/M 7866 7866/M 
7898 7898 78938/M 7898 
7898 7898 7898 7898/M 
7898 7898 7838 7898 
7898/M 7898 7898/M 7898 
7898 7838 7898 7898/M 
7838/M 78398 7898 7898 
7898 7898 7898/M 7898 
7898 7898 7898 7898 
7898 7898/M 7898/M 71957 
79793 79793 7979/M 79793 
7979 73979 7979 7973/M 
7373 7979 7379 73979 
7979 /M 73979 7979/M 7979 
7979 73793 7979 7979/M 
7379 /M 7979 739793 71979 
79793 7979 79793/M 73979 
7379 7979 7379 73979 
7979 73979 /M 7979 /M 8018 
8072 8072 8072 8086/M 
8147/M 8172 8172 8172 
8172 8172 8172 8172 
8172 8172/M 8172 8172 
8172 8172 8172/M 8172 
8172 8172 8172 8172 
8172/M 8172 8172/M 8172 
8172 8172 8172 8172 
8172/™M 8172 8172 8172 
8172 8172/M 8172 8172/M 
8227 8227 8227/M 8227 
8227 8227 8227 8227/M 
8227 8227 8227 8227 
8227/M 8227 8227/M 8227 
8227 8227 8227 8227/M 
8227/M 8227 8227 8227 
8227 8227 8227/M 8227 
8227 8227 8227 8227 

; l1tI1/0O ref, Reread, Wewrite, 

1989-08-21 13:33:34 
8227 8227/M 8227/M 8238 
8266 8267 8269 8284 
8288 8288 8288 8288/M 
8327 8327 8330 8337/M 
8371/M 8445 8499 8499 
84939/M 8499 849399 84938 
84993 /M 84993 8499/M 8499 
8499 8499 84385 8499/M 
8439 8499 8499 &8ag9g 
8439 8493 /M 8499 8499/M 
&84g93 84993 8499 8439 
8499 8499/M 8499 8495 
843985 8439 8439/M 8439 
8544/M 8544/M 8544/M 8544/M 
8630 8630 8630 8630/M 
8630 8630 8630 8630 
8E30/M 8630 8630 8630 
8630 8630/M 8630 8E630/M 
8630 &8E30 8630 8630 
8630 8E630/M 8630 8630 
&630 8630 8630 8E30/M 
8630 8630 8630 8630 
8630/M 8630 8630/M 8630/M 
8741/™M 8741/M 8741/™M 8742 
&754 8754 8754 8813/M 
8842 8844 8850/M 8813/M 
8323/M 8330/M 9018 9102 
$192 §8196/P $2s5 $259 
932S88/M $299 $385 $387 
s333s $400 9401/M $403 
9406 9406/M 9406/M $406 
S406/M 9406 S406/M 9406 
9406 S406 9406 9406 
9806 9406/M $9406 9406 
S406/M 9406 8406 S406/M 
8406 9406 9406 S406 
8406 9406/M 9406 S406/M 
9406 9406 9406 S406 
9403/M $410 9416 $9417 
9420/M $422/M 9426/M 9429 
9477 $4793 9479 94793 
8479 $479 94793 9479 
94793 9473 /M 9479 sa79g 
9479 $479 94793 /M 9479 
$473 $479 9479 9479 
$473/M 9479 9479/M 9479 
9479 9473 9479 9479 
3473/M $479 $479 9479 
3478 9473 /M 84738 $a79/M 
$520 $521 §522 $523 
$528/M $528 $529/M 9531/M 
9555 8556 9557 S560/M 
$562 S563/M $565/M SS567/M 
I1:1/O0 ref, Reread, Wewrite, 


PAGE 


PAGE 


1230 


Pzparameter 


1231 


P=parameter 


REFERENCES OF tmm$dispatcher 


IDENTIFIER----------+---+------ 


be 3 


REFERENCES OF tmm$dispatcher 


IDENTIFIER------------+------- 


tmv$subsystem_prior_ threshold 


tmv$swapin_in_progress 
tmv$tables_initialized 
tmv$t ime_to_call_dispatcher 
tmv$t imed_wait_not_queued 
tmv$t imed_wait_queue 


tmv$total_task_count 
tos 


is 3 


DEFINED 
ON LINE 


REFERENCE ABBREVIATIONS 


DEFINED 
ON LINE 


6365 


6340 
6349 
6341 
6342 
6343 


6344 


7565 


REFERENCE ABBREVIATIONS 


NOS/VE CYBIL/II 


NOS/VE CYBIL/II 


1.0 89102 
REFERENCES 

10579 10579 
10579 10579/M 
10579 10579 
10579 10578 
10579/M 10579 
10725 10725/M 
10870/M 10870 
10925 10825/M 
10825 10925 
10925 10925 
10825 10825/M 
10925 10825 
10925 10925 
10925 10925/M 
10825 10925 
10825/M 10925/M 
11015/M 11015 
11086/M 11086/M 
11124/M 11124/M 
11139/M 11139/M 
11139 111398/M 
11139 11139 
11138/M 11138 
11139 11139 
111393 11139 
11139/M 11139 
11139 11139 
11148/M 11150 
11151/M 11151 
11151/M 11151 
11151 11151 
11151 11151 
11151 11151/M 
11151 11151 
11151 11151/M 
11151 11151 
6911 7863 
8630 9406 
10550 10579 
10736 

8629 8634 
10752/M 10814/M 
9035 9115 
7877/P 8288 
8288/M 8319 
8345/M 10550/S 
10550/M 10561 
10561/M 10747 
10887 10898 
11124/M 11124 
8455/M 8455 
11039/M 11038 
7583 /M 7591/M 

Memodify, 


1.0 89102 
REFERENCES 

$570 9612 S616 
9623 $623/M 9623 
9623 $623 §8623/M 
$623 $623 8623 
$623 $623/M $623 
$623 $623 S623/M 
9623 9623 $623 
9623 9623/M $623 
9623 9623 $623 
3623/M 9623/M 9626/M 
9645 9647 3647 
3647 3647 9647 
$647 9647/M 9647 
9647 9647 $647/M 
$647 $647 9647 
9647/M $647 $647/M 
9647 9647 9647 
8647/M $647 $647 
$647 9647/M $647 
9883 $884 10080 
10128 10131 10133/M 
10198 10201 10201 
10201 10201 10201 
10201 10201/M 10201 
10201 10201 10201/M 
10201 10201 10201 
1TOZO01/M 10201 10201/M 
10201 10201 10201 
10201/M 10201 10201 
10201 10201/M 10201 
10516 10518 10519 
105198 10519 10519 
10518 10518/M 10518 
10519 10518 10519/M 
105198 105198 10519 
10513/M 10518 10519/M 
10519 10518 10519 
10519/M 10519 10519 
10519 10513/M 10519 
10550 10550 10550/M 
10550/M 10550/M 10550 
10550 10550/M 10550 
10550 10550 10550 
10550/M 10550 10550 
10550 10550 10550/M 
10550 10550 10550 
1TOSS0/M 10550 10550/M 
10550 10550 10550 
10561 10561 10561 
10579 10579 10579 
10578 10578 10579 
10579/M 10579 10579 
10578 10578/M 10578 

Memodify, A:zattribute, 


~ 
ey 
WW 
oo 


a ee ee ee ee ee ee ee ey 
ee ee ee ee ee ee 
~ 
wu 
ob 


8637/M 
10816/M 


8288 
8323 
10550 
10561 
10750/S8 
10900/M 
11124/M 
8542/™M 
11087/M 
7593/M 


Azattribute, 


9617 
8623/M 
9623 
9623 
9623/M 
$623 
9623 
9623/M 
9623 
9628 
9647 
S647 
9647 
9647 
9647 
9647 
9647 
$647 
9647/M 
10104 
10134/M 
10201 
10201 
10201 
10201 
10201 
10201 
10201 
10201 
10201/M 
10519 
10519 
105158 
10518 
10519 
10519 
10519 
10519 
10518/M 
10550 
10550 
10550/M 
10550 
10550 
10550 
10550 
10550 
10550/M 
10561 
10579 /M 
105798 
10579 
10579/M 


9618/M 
8623/M 
$623/M 
$623 
8623 
9623 
$623 
9623 
$623 
$636 
9647/M 
9647 
9647 
9647/M 
$647 
$647 
9647/M 
$647 
9647/M 
10106/P 
10192 
10201/M 
10201 
10201 
10201/M 
10201 
10201 
10201/M 
10201 
10201/M 
10519/M 
10519 
10518 
10519/M 
10518 
10519 
10518/M 
10519 
10519/M 
10550 
10550 
10550 
10550/M 
10550 
10550/M 
10550 
10550 
10550 
10561/M 
10579 
10579/M 
10579 
10578 


z=subscript, I:I/0 


8288/M 
8324/M 
10550 
10561/M 
10813 
10932 
11124 
8542 
11087 
7595/M 


10579/M 
10579 
10579 
10578 
10633 
10816 
10899 
10825/M 
10825/M 
10925 
10925 
10925 
10925 
10925 
10825 


&8288/M 
8325/M 
10550/M 
10561/M 
10816/8S 
10933/M 
11124/M 
&640/M 


Sz:subscript, I:1/0 


woth 


1989-08-21 


$621 
$623 
$623 
$623 
8623 
8623/M 
$623 
9623/M 
$623 
9640 
$647 
9647/M 
9647 
$647 
9647/M 
9647 
9647 
9647 
9650/M 
10106/P 
10198 
10201 
10201/M 
10201 
10201 
10201/M 
10201 
10201 
10201 
10473 
105198 
10519/M 
105198 
10819 
10519/M 
10519 
10519 
10519 
10530 
10550 
10550 
10550 
10550 
10550 
10550 
190550 
10550 
10550/M 
10561/M 
10579/M 
10579 
10579 
10573/M 


ref, R:tread, 


9898-08-21 


10573 
10578 
10579/M 
10579 
10677 
10848 
10901/M 
10825 
10825 
10925 
1098325 
10925/M 
10325 


ref, Reread, Wswrite, 


13:33:34 
8623 9623 
9623 9623 
§9623/M 9623 
9623 9623/M 
9623 9623 
9623 $623/M 
$623 9623 
9623 9623 
9623/M 9623 
$641 9$642/M 
9647/M 9647/M 
9647 9647/M 
9647 9647 
$8647/M 9647 
9647 9647 
9647 9647 
9647/M 9647 
9647 9647 
9652 9883 
10111/M 10116/M 
10198 10198/M 
10201/M 10201/M 
10201 10201/M 
10201 10201 
10201/M 10201 
10201 10201 
10201 10201 
10201/M 10201 
10201 10201 
10512/P 10514/M 
10519/M 10519/M 
10519 10519/M 
10519 10519 
10519/M 10519 
10519 10519 
10519 10519 
10519/M 10519 
10519 10513 
10530 10530 
10550/M 10550 
10550 10550/M 
10550 10550 
105S50/M 10550 
10550 10550/M 
10550 10550 
10550/M 10550 
10550 10550 
10550/M 10550 
10561/M 10561/M 
10579/M 10579 
10579/M 10579 
10579 10579 
10578 10579 
Wewrite, 


13:33:34 
10579 10579/M 
10579 10579 
10579 10579/M 
10579 10579 
10704 10725 
10868 10869 
109825 10925 
10925 10925 
10825/M 10925 
10925 10325/M 
10925 10925 
10925 10925/M 
10925 10925 
10925 10925 
10925/M 10925 
10997 10998 
11086/M 11086/M 
11124 11124/M 
11139/M 11139 
11139 11139/M 
11139 11139 
11139/M 11139 
11139 11139/M 
11139 11138 
11139/M 11139 
11139 11139 
11139/M 11146/P 
11151 11151/M 
11151/M 11151 
11151 11151 
11151 11151/M 
11151/M 11151 
11151 11151 
11151 11151/M 
11151 11151 

8227 8499 
10486 10519 
8288/M 8288 
8339/M 8344 
10550 10550 
10561/M 10561 
10896/S 10896 
111264 11124/M 
8751/M 8751 


PAGE 


PAGE 


1232 


Pzparameter 


1233 


P=parameter 


REFERENCES OF 


IDENTIFIER------- 


tos _ registers 
total _cptime 
total _cptime 
total _cpt ime 


tmm$dispatcher 


update cp_statistics 
update dispatching controls 
update priority integer 


update scheduling priority 
update timed wait queue 
user condition register 


user mask 
user _ reaquested dispatching prio 


vil 


wait inhibit 
wait inhibited 
wait inhibited 


x registers 


xcb offset 


xch_offset 


xcb_p 


REFERENCES OF 


IDENTIFIER 


xcb_p 
xcb op 
> «Cc bp 
xcb_ op 
xcbh op 


xcb_ p 
xcb op 
_xcb op 
xcb_p 
xcb_ p 
_ xcb_p 
"xcb p 


xKeX 


tmm$dispatcher 


eee 


DEFINED 
ON LINE 
3150 
8682 
9680 
10408 


9661 
9753 
8826 


10314 
10879 
3113 
3109 
1451 


2694 
§537 


2521 
4gsS6é 


3140 
4333 


10954 
1157 


REFERENCE ABBREVIATIONS 


DEFINED 
ON LINE 


4987 
5006 
S567 
6568 
68864 


7418 
7474 
7519 
7571 
7610 
7623 
7766 


7802 
7932 


79582 
8110 


8130 
8182 
8182 


8214 
8381 
8381 


8415 
8529 


8581 
8581 


8602 


8762 
8773 


8889 
$217 


REFERENCE ABBREVIATIONS 


NOS/VE CYBIL/II 


NOS/VE CYBIL/II 


cee ee ee ee ee -“e°r° -REFERENCES 


10745/M 
8426 


8917/P 
$255/M 


Msmodify, 


1.0 88102 


10785/M 
8443 


5571 
6622/M 
6895 
6915 
7056/P 


7509/M 
7541/M 
7588 


7721/M 


1.0 88102 
REFERENCES 

7595 
87339 /M 8739 8739 
8742/M $744 9746 
10466/M 10466 10466 
8739 $749 10466 
87393 9694 9818 
8738S 87393 87393 
9807 9843 10466 
10321/M 10342 
10550 10936 
9021/M 9022 9155/M 
10845 10846/M 10846 
10017/M 10032/M 10327 
8447/M 
9008 10451 
9009/M 9142 9162 
7922 7923 7924/M 
10801 10804/M 10848 
8219 
6625/M 7054 7054 
7219 7253 7321 
71722 7810 7866 
7898 7838 7898 
1979 7979 8170 
8218 8227 8227 
8499 8as9 8499 
8630 8630 $255 
9406 9471 9479 
9549 9612 $623 
9647 9647 9647 
10201 10201 10516 
10550 10550 10550 
10579 10579 10579 
10925 10925 10925 
11139 11150 11151 
11002 
8006/M 8006 8425 
8675/P 8703 8708 
8739/M 8739 8739/M 
8733/M 8739/M 8743/M 
8904 8305 8905 
9007 s0093/M 9021/M 
9033 g041 9113 
9157 9158/M $158 
9190 9192/Ss 9707/M 
$728/M S730/M 9733/M 
9956 9956 3962/M 
10129 10131/M 10131 
10466 10466 10466/M 

Memodify, Azattribute, 


11105 


6625 

6887/M 
6917/M 
7058/P 


7543/M 
7590 


7866/M 
7866/M 
7866/P 
7898 
78398 
7861 
7379 /M 
7379/M 
7979/P 


8172/M 
8172/M 
8172/P 


8227/M 
8227/M 
8227/P 
8221/P 
8445 

8499/M 
843839/M 
8499/P 
8454/M 
8496/M 


&8675/P 


8802/M 
8820 
&839/S 
68918 


Azattribute, 


10466 
9694 
10466 


9156 


10328 


9179/M 
$143 


7056 
7464 
7866 
7898 
8172 
8227 
84393 
9385 
9479 
9623 
9647 
os19 
osso 
o639 
1002/M 
1151 


—_ wh oh at ob 


8493/P 
8713/P 
8739 
8745/M 
8307/M 
9021 
9121 
9162 
9707 
9735/M 
9962 
10459 
10466/M 


S=subscr 


11133/M 


6626 
69300/M 
6923/M 


7592 


7866/M 
7866/M 
7898 
7898 
7898/P 
7862 
73979/M 
7373/M 


8172/M 
8172/M 


8227/M 
8227/M 


8227/P 
8445 

8499/M 
8499/M 


8481/M 
8499/P 


8608 
8630/M 
8630/M 


&8623/M 
8661/M 


8802 
8821 
8849/M 
8919/8 


S=subscript, 


ipt, 


1989-08-21 13:33:34 

10774 

9694 $694 9768 9782 
10466 10774 10774 10774 
10791/M 10791 108439 /M 108493 
10333 

10802/M 

9163 9169/M 9171/M 9180/M 
7056 7058 7107 7150 
7510 7544 7582 7612 
7866 7866 7866 7838 
7378 79793 7979 73783 
8172 8172 8172 8172 
8227 8227 8445/M 8499 
8608/M 8630 8630 8630 
9406 9406 9406 9406 
9479 9479 9479 -9515 
9623 $623 9623 9636 
9647 10201 10201 10201 
10518 10519 10519 10519 
10550 10550 10573 160S79 
10682 10921 109325 10925 
11139 11138 1113985 11139 
11151 11151 11151 

8557 8558/M 8623 8650 
8723/P 8724 8733 8733 
87393 8739 8733 /M 8739 /M 
83900 8301 83902 8903/M 
8908/M 8913 8926/M S006 
9023/M 9023 9024/M 9024 
9142 9155/M 9155 9157/M 
9168 9$179/M $188 9189/5 
97039 /M 87093 9725 $726 
9921 $324 9924 99330 
9863/M 9964/M 10128/M 10129/M 
10466/M 10466 1O466/M 10466 
10466/M 10466/M 10529/M 10570/M 

IzsI/O ref, Rtread, Wewrite, 
1889-08-21 13:33:34 

6301/M 69303 6310 63911 
6923 6825/M 6928/M 6948 
7593 7595 

7866/M 7866 7866 7866 
7866 7866/M 7866/M 7866 
7838 7898/M 7898/M 7898/M 
7898 7898/M 7898/M 7838 
7898/P 7898/P 

7863 7866/P 7898/P 

7373 /M 7379 79379 73979 
73979 7979/M 7373/M 7379 
8172/M 8172 8172 8172 
8172 8172/M 8172/M 8172 
8227/™M 8227 8227 8227 
8227 8227/M 8227/M 8227 
8439/M 8499 84sg93 8439 
8499 843939/M 8499 /M 8439 
8484/M 8484 8486/M 8486 
8630/M 8630 86390 86306 
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MODULE tmm$mtr_flag_ signal_functions; 


PURPOSE : 


and monitor mode requests. 


esses es 


{ Define arbitrary constant that is used to check if there is enough space 


{ task to terminate it. 


CONST 
task termination stack _area = 30000; 


{Define constants for recognizing hung tasks. 


VAR 
tmv$hait_on_hung task: [XDCL, #GATE] boolean :=: FALSE, 
tmv$system_debug ring: [XDCL, #GATE] integer := 0, 
tmv$system_debug segment: [XDCL, #GATE] integer := 0, 
tmv$job_debug ring _p: [XDCL, #GATE] Aost$ring := NIL, 
tmv$system_error_hang count: [XDCL, #GATE] 0 .. OF FFFFFFF(16) := 6; 


{External procedures called by tmp$mtr_task_ manager functions. 


PROCEDURE [XREF] dpp$display_error 
{ line: string ( * <= dpc$top_line_message_size)); 


PROCEDURE [INLINE] jmp$unlock_ajl 
( ijle_p: Ajmt$initiated job_list_entry); 


VAR 
ajlo: jmt$ajl_ordinal; 


tmp$set_lock (tmv$pt1_lock) ; 

a@jlo :2 tijle pA.ajl_ordinal,; 

IF (jmv$ajl_pA [ajlo].in_use = jmc$lock_aj1) THEN 
jmp$free_ajl_with lock (ijle_p, jmc$lock_ajl); 

ELSE 
jmv$ajl_p4 [ajlo].in_use := jmv$aji_p4 [ajlo].in_use - jmce$lock_ajl; 

IFEND; 

tmp$clear_lock (tmv$pt1_ lock) ; 


PROCEND jmp$untock_aji; 
PROCEDURE [INLINE] jmp$unlock_ajl_with_lock 
( ijle_p: Ajmt$initiated_job_list_entry); 


VAR 
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ajlo: jmtS$ajl_ordinal; 


ajio :: ijle_pA.ajl_ordinal; 
IF (jmv$ajl_pA [ajlo].in_use = jmc$lock_aj1}) THEN 
jmp$free_ ajl_with_lock (ijle_p, jmc$lock_aj1); 
ELSE 
jmv$ajl_pA [ajlo].in_use := jmv$ajl_pA4 [ajlo].in_use - jmc$lock_ajl; 
IFEND; 


PROCEND jmp$unlock_ajil_with_lock; 


PROCEDURE [XREF] tmp$delay (VAR rb: tmt$rb_delay; 
cst_p: Aost$cpu_state_ table) ; 


PROCEDURE [XREF)]) tmp$check_taskid (taskid: ost$global_task_id; 
option: tmt$option; 
VAR status: syt$monitor status) ; 


PROCEDURE [XREF] tmp$check_taskid_with_lock_set 
( taskid: ost$global_task_id; 
option: tmt$option; 
VAR status: syt$monitor_ status) ; 


PROCEDURE [XREF] tmp$set_task_ready (task_id: ost$global_task_id;. 
readying task_priority: jmt$dispatching priority; 
ready condition: tmt$ready_condition) ; 


PROCEDURE [XREF] tmp$find_xcb (taskid: ost$global_task_id; 
VAR xcb_p: Aost$execut ion_control block; 
VAR ijle_p: AjmtS$initiated_job_list entry; 
VAR status: syt$monitor status) ; 


PROCEDURE [XREF] tmp$get_xcb_p (task_id: ost$global_task_id; 
VAR xcb_p: Aost$execution_ control block; 
VAR ijle_p: AjmtS$initiated_job_list_entry) ; 


1989-08-21 


This module processes flag and Signal handling job mode monitor requests 


im SFSA of current 


1989-08-21 


PROCEDURE [XREF] mmp$fetch_stack_segment_info (xcb_p: Aost$execut ion_control block; 


ring: ost$valid ring; 
set_length_to zero: boolean; 
VAR stack _segment_number: ost$segment ; 
VAR maximum _ segment _ length: ost$segment_length; 
VAR found: boolean); 
PROCEDURE [INLINE] mtp$cst_p (VAR cst_p: Aost$cpu_state_table) ; 


PURPOSE: procedure mtp$error stop 


wn on 


PROCEDURE [XREF] mtp$error_stop (text: string(*<:63) ); 


PROCEDURE [INLINE] mtp$set_status_abnormal (identifier: string (2); 
condition: osc$max_status_ condition_number + 1 .. OF FFFFFFFFF( IE); 
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SOURCE LIST OF 


3700 VAR status: Syt$monitor_status); 
3701 . 
° 3711 
Oo 3712 { PURPOSE: procedure mtp$step_unstep_system 
ce) 3713 { Writes a line of text to the Top Line of the console. If the idle code specified indicates an error 
Oo 3714 { (i.e. not an operator command or a recovery), then ‘’ERR=’ must be first 4 characters or it will be 
o 3715 { prefixed. Then the system is Terminated, Aborted, Stepped, or Idied per the idle code specified. 
3° 3716 { 411 messages sent to the Top Line must have a VEQSxxxx code in the text. Guidelines for using 
oO 3717 { VEOSxxxx codes and a list of all VEOSxxxx codes.are documented in the comments found in the proc 
o 3718 { dpp$display_error which is in the deck dpm$system_console_ monitor. 
cel 3719 
© 3720 PROCEDURE [XREF] mtp$step_unstep_system 
oO 3721 (term_code: syt$180_idle_code; text: string(*<=76) ); 
° 3722 
3726 {External variables. 
3727 
3728 {If a MCR fault occurs in a task executing in a ring <= the value 
3728 {of this variable, Monitor will halt the CPU. The variable is located 
3730 {in Monitor and is intended to be used for debug only. 
3731 
3732 VAR 
3733 mtv$system_haltring: [XREF] © .. 255, 
3734 mtv$hailt_cpu_ring mumber: [XREF] © .. 255; 
3735 
3736 VAR 
3737 tmv$pti_p: [XREF] Atmt$primary _task_list; 
3738 
Oo 3741 {Define SMU Communications Block (SCB). 
° 3742 
° 3743 VAR 
oO 3744 mtv$scb: [XREF] mttS$smu_communications_block; 
° 3880 
SOURCE LIST OF tmm$mtr_flag signal_functions NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 
c°) 3883 
ce) 3884 PROCEDURE [XDCL] tmp$set_monitor_flag 
4 3885 ( task_id {input} : ost$global_task_id; 
4 3886 flag_id finput} : syt$monitor_fiag; 
4 3887 VAR status {output} : syt$monitor_status) ; 
4 3888 
4 3888S 
4 3890 VAR 
4 3891 cst_p: Aost$cpu_state_table; 
4 3892 
4 3893 #KEYPOINT (osk$debug, osk$m * task_id.index, tmk$set_monitor_flag) ; 
10 3894 
10 3895 status.normal := TRUE; 
10 3896 mtp$cst_p (cst_p); 
2A 3897 
24 38s8 { If it is the current task, set the free fiag in UCR. 
2A 3899 
24 3800 tmp$set_lock (tmv$pt1_lock); 
70 3901 
70 38902 tmp$check_ taskid_ with lock set (task_id, tmc$opt_return, status); 
gc 3903 IF NOT status.normail THEN 
94 3904 tmpScilear_lock (tmv$pti_lock); 
cc 3905 RETURN; 
CE 3906 IFEND; 
CE 3907 
CE 3308 IF task_id = cst_pA.taskid THEN : 
DE 3909 cst_pA.xcbh pA.xp.user condition_register := cst _pA.xcb pA.xp. 
DE 3910 user_condition_register + $ost$user_conditions losc$free_fiag]; 
DE 3911 cst_pA.xcb_pA.monitor_ flags := cst_pA.xcb_pA.monitor_flags + $syt$S$monitor_flags [fliag_id]; 
DE 3912 IF tmv$pti_pA [task_id.index].new_task_ status < tmc$ts_ first_ready_uncond THEN 
124 3913 tmv$pt1_p4 [task_id.index].new_task_status := tme$ts_null; 
128 3914 IFEND; 
128 3915 tmp$clear_lock (tmv$pt1_lock),; 
15E 3916 RETURN ; 
160 3917 IFEND; 
160 3918 
160 3919 IF flag _id IN tmv$pti_p4 [task_id.index].monitor_fliags THEN 
184 3920 tmp$clear_lock (tmv$pti1_lock); 
1BC 3321 RETURN; 
1BE 3922 IFEND; 
1BE 3923 d 
1BE 3924 { Set monitor flag in PTL. 
1BE 3925 
1BE 3926 tmv$pti_pA [task_id.index].monitor_flags := tmv$pti_p4 [task_id. index]. 
1BE 3927 monitor flags + $syt$monitor flags [flag_id]; 
1BE 3928 tmp$set_task_ready (task_id, © {readying _task_priority}, tmc$rc_ready_ conditional); 
200 3929 tmp$clear_ lock (tmv$pt1_lock); 
236 39830 
236 3931 PROCEND tmp$set_monitor_filag; 
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PROCEDURE [XDCL] tmp$set_system_flag 
( task_id {input} ost$global_task_id; 
flag_id {input} ost$system_flag; 
VAR status foutput} syt$monitor_status) ; 


The purpose of this request is to set a system flag 
specified. System flags can be set 
tasks currently swapped out. 
will be 


If the specified task 
initiated by this request. 


TMPSSET_SYSTEM_FLOG (TASKID, FLAGID, STATUS) 


TASKID: (input) 


flag. 


FLAGID: (input) This parameter specifies the flag 


STATUS: (output) 


Ferree esN ee PSPS EN Ae PRPS es 


VAR 
cst_p: 
tTjle_p: 
xcb_p: 


Aost$cpu_state_ table, 
AjmtS$initiated job_list_entry, 
Aost$execut ion_control_block; 
#KEYPOINT (osk$debug, osk$m * taSk_id.1index, 
status.normal := 


mtp$cst_p 


TRUE ; 
{cst_p); 
{ If it is the current task, 


set the free flag in UCR. 


tmp$set_lock (tmv$pt1_lock); 

tmp$check_ taskid_with_lock_set 

IF NOT status.normal THEN 
tmp$clear_lock (tmv$pt1_lock); 
RETURN; 

IFEND ; 


(task_id, tmc$opt_return, 


IF task_id = cst_pA.taskid THEN 
IF cst_p4%.xcb_pA.task_is_ terminating THEN 
mtp$set status abnormal (’TM’, 
ELSE 
cst _pA.xcb p4A.xp.user_condition_register :=: 


cst_pA.xcb_ p4%.system_ flags :: 

cst _pA.xcb_pA.monitor flags :=: 
$syt$monitor_filags 

cst _pA.xcb_ pA.wait_inhibited :=+ 

IF tmv$pt1_pA 

tmv$pti_pa 
IFEND ; 
IFEND; 


TRUE; 


[task_id.index].new_task_status := 
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tmp$clear_ lock 
RETURN ; 
IFEND; 


(tmv$pt1_ lock) ; 


IF flag id IN tmv$pt1_p” 
tmp$cilear_lock (tmv$pti1_tlock) ; 
RETURN; 

IFEND ; 


tmp$get_xcb_p (task_id, xcb_p, ijle_p); 

IF (xcb_p <> NIL) AND xcb_pA.task_is_terminating 
status.normal := FALSE; 
status.condition := tme$invalid_global_taskid; 
imp$uniock_ajl_with_lock (ijle_p); 
tmp$ciear_lock (tmv$ptl_lock); 
RETURN; 

IFEND; 

IF (xcb p <> NIL) THEN 
jmp$untock_ajl_with_ lock 

IFEND ; 


THEN 


(ijle_p); 


{ Set system flag in PTL. 
tmv$ptl_pA [task_id.index].system_flags := tmv$pt1_pA 
system_flags + $tmt$system_flags [flag_id]; 
IF (tmv$pt 1_pA 
tmv$pti_pA [task_id.index].monitor_ flags := 


is swapped out, 


tme$invalid_globail_taskid, 


cst_p4A.xcb_pA.system_fiags + $tmt$system_f lags 
cst_pA.xcb_pA.monitor_ flags + 
[tmc$mf_cause_job_free_flag_trap]; 
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in the XCB of the task 
in the XCB of any valid task 


inc luding 
Swapin 


This parameter specifies the taskid of the task to receive the 


id to be set. 


This parameter specifies the request status. 


tmk$set_system_filag) ; 


status); 


status); 


cst _pr.xcb_ pA.xp. 
user_condition_register + $ost$user_ conditions 


losc$free_ fiag]; 
[flag id]; 


[task_id.index].new_task_status < tmce$ts_first_ready_uncond THEN 
tme$ts_null; 
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[task_id.index].system_flags THEN 


[task_id.index]. 


[task_id.index].pt1l_flags.wait_inhibited <> tmcS$wi_wait_selected_r3}) THEN 
tmv$pti_pA [task_id.index]. 


monitor_flags + $syt$monitor_ flags [tmc$mf _cause_job_free flag trap] ; 


IFEND; 
tmp$set_task_ready (task_id, 0 f{readying_task_priority}, 
tmp$clear_lock (tmv$pti_lock); 


PROCEND tmp$set_system_flag; 


tmc$rc_ready_ conditional wi); 
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re oon ote Bate Wt te ote, ote ote Et ote Bote ote ote} 


{ 


PROCEDURE [XDCL] tmp$flag_all_tasks 


( 


fFlag_id {input} : ost$system_flag; 


VAR status {output} : syt$monitor_status) ; 


The purpose of this request is to set a system fFiag in the XCB of every task 
in the system. System flags can be set in the XCB of any valid task including 
tasks currently swapped out. If the specified task iS Swapped out, swapin 


will be 


FLAG_ID: 


STATUS: 


VAR 


i: 


initiated by this request. 


TMPSFLAG ALL TASKS (FLAG_ID, STATUS) 


(input) This parameter specifies the fiag id to be set. 


(output) This parameter specifies the request status. 


ost$task_index, 


task_id: ost$global_task_id, 
cst_p: Aost$cpu_state_table; 


Status.normal := TRUE; 


tmp$set_lock (tmv$pti_lock) ; 
FOR 
IF tmv$pti_p% [i].status <> tme$ts_null THEN 


If 


it 


i 


task _id.index :: 
task_id.seqno := tmv$ptil_p4 [i].sequence_number ; 


>= 1 TO UPPERBOUND (tmv$pti1_p4) DO 


1; 


is the current task, set the free flag in UCR. 


mtp$cst_p (cst_p); 
IF task_id = cSt_p4A.taskid THEN 


cst_pA.xcbh_ pA.xp.user_condition_register :: cst _pA.xcb_ pA.xp. 
user _condition_register + $ost$user_conditions [osc$free_filag]; 


cst_p4.xcb pA.system_flags ::= cst _pA.xcb_pA.system_flags + $tmt$system_flags [flag_id]; 


cst_pA.xcb_ pA.monitor flags := cst_pA.xcb pA.monitor_ flags + 
$sytS$monitor fiags [tmc$mFf_cause_ job free _flag_ trap]; 
cst_p4.xcb_pA.wait_inhibited := TRUE; 
IF tmv$ptil_pA [task_id.index].nmew_task_status < tmc$ts_first ready _uncond THEN 
tmv$ptil_p” [task_id.index].new_task_ status := tme$ts_ null; 
IFEND; 


IFEND; 


{ Set system flag in PTL. 


IF (tmv$pti_pA [task_id.index].ptl_flags.wait_inmhibited <> tmc$wi_wait_selected_r3) THEN 
tmv$pti_pA [task_id.index].monitor_flags := tmv$pti1_p4 [task_id.index]. 
monitor_flags + $syt$monitor_flags [tme$Smf_cause_job_free_ flag trap]; 
IFEND ; 
tmp$set_task_ready (task_id, © {readying _task_priority]}, tmc$rc_ready_conditional_wi); 
IFEND; 
tmm$mtr_flag Signal_functions NOS/VE CYBIL/II 1.0 89102 1989-08-21 
FOREND ; 


tmv$pti_pA [task_id.index].system_flags := tmv$pti1_pA [task_id.index]. 


System_flags + $tmt$system_fiags [flag_id]; 


tmp$clear_ lock (tmv$pt i_lock) ; 


PROCEND tmp$flag_all_tasks; 
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° 4086 

o 4087 PROCEDURE [XDCL] tmp$monitor.flag_job_tasks 

oO 4088 ( monitor flag_id: syt$monitor flag; 

o 4089 ijle_p: AjmtS$initiated_job_list_entry) ; 

° 4090 

° 4091 VAR 

° 4092 taskid: ost$global_task_id, 

o 4083 status: syt$monitor_ status; 

° 4094 

o 4095 tmp$set_lock (tmv$pt1_iock) ; 

3E 4os6& taskid := ijle_ p%. job_ monitor taskid; 

SE 40397 

3E 4098 WHILE taskid.index ¢> 0 DO 

4E 4099 taskid.seqno := tmv$pti_p4 [taskid.index].sequence_ number ; 
4E 4100 tmp$set_monitor_flag (taskid, monitor _flag_id, status); 
86 4101 taskid.index := tmv$ptl_p4A [taskid.index].ijl_thread; 
86 4102 WHILEND ; 

AO 4103 

AO 4104 tmp$clear_lock (tmv$pti_lock) ; 


Dc 4105 PROCEND tmp$monitor_ flag job_tasks; 


SOURCE LIST OF tmm$mtr_flag signal_functions NOS/VE CYBIL/I1 1.90 88102 1889-08-21 13:33:34 PAGE 1247 
© 4107 
3° 4108 PROCEDURE [XDCL} tmp$mtr_ready_ task 
o 4109 (VAR rb {input, output} : tmt$rb_ready_ task) ; 
° 4110 
° 4111 
° 4112 { 
° 4113 { The purpose of this procedure is to process the job mode 
© 4114 { request to change the status of a specified task to ready 
° 4115 { and to set the WAIT INHIBITED flag in the task’s PTL entry. 
oO 4116 { 
o 4117 { TMPSMTR_READY_ TASK (RB) 
o 4118 { 
© 4118 { RB : (INPUT,OUTPUT) This parameter specifies the request block. 
© 4120 { 
oO 4121 { 
o 4122 { The purpose of this request is to change the status of a specified task 
° 4123 { to ready and to set the WAIT_INHIBITED flag in the task’s PTL entry. 
© 4124 { 
© 4125 { TYPE 
©] 4126 { TMTSRB_READY_TASK = RECORD 
oO 4127 { REQCODE, 
° 4128 { STATUS, 
o 4128 { TASK_ID, 
o 4130 { RECEND; 
o 4131 { 
© 4132 { REQCODE: (input) The value of this parameter is SYCSRC_READY_TASK. 
© 46133 { 
° 4134 { STATUS: (output) This parameter specifies the standard monitor status. 
o 4135 { 
© 4136 { TASK_ID: (input) This parameter specifies the giobal task id of the task to 
o 4137 { ready. 
© 86138 
oO 4139 VAR 
o 4140 readying _task_priority: jmt$dispatching_ priority, 
oO 4141 cst_p: Aost$cpu_state table; 
© 4142 
Oo 4143 tmp$check_taskid (rb.task_id, tmc$opt_return, rb.status}); 
2A 4144 IF rb.status.normal = FALSE THEN 
32 4145 RETURN; 
34 4146 IFEND; 
34 4147 
34 4148 mtp$cst_p (cst_p); 
44 4148 
44 4150 IF cst _pA.xcb pA.dispatching priority >= 
76 4151 tmv$pti_pA [cst_pA.xcb_p4A.global_task_id.index].readying task_priority THEN 
76 4152 readying task_priority :=5 cst _p%.xcb_pA.dispatching priority; 
7A 4153 ELSE 
7A 4154 readying _task_priority := tmv$ptil_pA [cst_p4.xcb_pA.global_task_id.index] .readying task priority; 
7C¢ #8€6©4155 IFEND; 
7C 44156 
7C 4094187 tmp$set_task_ready (rb.task_id, readying task_priority, tmce$rc_ready_ conditional wi); 
SA 4158 


SA 4159 PROCEND tmp$mtr_ready task; 
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o 4161 

o 4162 PROCEDURE [XDCL] tmp$send_signal 

o 4163 { task_id {input} : ost$global_task_id; 

oO 4164 Signal finput} : pmt$signal; 

© 4165 VAR status foutput} : syt$monitor status); 

oO 4166 

© 4167 

o 4168 { 

o 4169 { The purpose of this procedure is to place the signal in the 

°o 4170 { specified task’s XCB. This procedure is callable only internal 

© 4171 { to monitor. 

o 4172 { 

oO 4173 { TMPSSEND_SIGNAL [(TASKID, SIGNAL, STATUS) 

©} 4174 { 

© 4175 { TASKID: (input) This parameter specifies the task in whose XCB 

o 4176 { the signal is to be placed. 

o 4177 { 

© 4178 { SIGNAL: (input) This parameter specifies the signal block. 

o 4179 { 

° 4180 { STATUS: (output) This parameter is the standard moniter status. 

o 4181 { 

©] 4182 

co] 4183 VAR 

oO 4184 cst_p: Aost$cpu_state_tablie, 

Oo 4185 i {signal array index} : 1 .. tmce$maximum_signals, 

ce) 4186 ijle_p: AjmtS$initiated_job_list_entry, 

oO 4187 xcb_p: Aost$execution_control block; 

° 4188 

o 4189 #KEYPOINT {fosk$debug, osk$m * task_id.index, tmk$send_ signal); 
10 4190 

10 4191 tmp$find_xcb (task_id, xcb_p, ijle_p, status); 

3C 4192 IF status.mormal = FALSE THEN 

44 4193 RETURN ; 

46 4194 IFEND; 

46 4195 

46 4196 /access_xcb/ 

46 41397 BEGIN 

46 4138 IF xcb_pA.task_is_terminating THEN 

52 4199 status.normal := FALSE; 

52 4200 status.condition := tme$invalid_global_taskid; 

52 4201 EXIT /access_xcb/; 

68 4202 IFEND; 

68 4203 

68 4204 IF xcb_p%.system_error_ count >= tmv$system_error_ hang count THEN 
78 4205 status.normal := FALSE; 

78 4206 status.condition :: pme$hung recipient_task; 

78 4207 EXIT /access_xcb/ ; 

8E 4208 IFEND; 

8E 42083 

8E 4210 /find_free_ signal_buffer/ 

8E 4211 BEGIN 

8E 4212 

8E 4213 /free_buffer_loop/ 

8E 4214 FOR 1 := 1 TO tme$maximum_ signals DO 

88 4215 IF xcb_p4%.signais.reserved [i] = FALSE THEN 

AC 4216 EXIT /find_free_signal_buffer/; 

BO 4217 IFEND; 
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BO 4218 FOREND /free_buffer_loop/; 

BE 4219 #KEYPOINT (osk$unusual, 0, tmk$signal_buffers_ full); 

BA 4220 status.normal := FALSE; 

BA 4221 status.condition := tme$mtr_signal buffers full; 

BA 4222 EXIT /access_xcb/; 

D2 4223 END /find_free_ signal _buffer/; 

D2 4224 

D2 4225 { Place signal in free signal buffer. 

D2 4226 

D2 4227 xcb_pA.signals.reserved [i] := TRUE; 

D2 4228 xcb_ pA.signalis.present [i] := TRUE; 

D2 4229 mtp$cst_p (cst_p); 

F2 4230 xcb pA.signals.buffer [il.originator := cst _ pA .taskid; 

F2 4231 xcb pA.signals.buffer [i].signal := signal; 
128 4232 
128 4233 IF tmv$pti_pA [task_id.index].pti_flags.wait_inhibited <> tmce$wi_wait_selected_r3 THEN 
146 4234 
146 4235 { Set task status to ready and set free flag in specified tasks user condition 
146 4236 { register to invoke trap handier when the task gets the CPU. 
146 4237 
146 4238 xcb_pA.wait_inhibited := TRUE; 
146 4239 tmp$set_monitor_fiag (task_id, tmc$mf_cause_job_free flag trap, status); 
16C 4240 ELSE 
16C 4241 tmp$set_ task ready (task_id, © {readying task_priority}, tmc$rc_ready_condit ional); 
184 4242 IFEND; 
184 4243 
18A 4244 END /access_xcb/j; 
18C 4245 
180 44246 imp$untock_aj1l (ijle_p); 
242 4247 


242 4248 PROCEND tmp$send_signal; 
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PROCEDURE [XDCL] tmp$mtr_set_system_flag 
(VAR rb {input, output} : tmt$rb_set_ system_flag); 


The purpose of this procedure is to process the job mode 
request to set the specified system flag in the specified 
task’s PTL entry. 


TMPS$MTR_SET_SYSTEM_FLAG (RB) 
RB : (INPUT,OUTPUT) This parameter specifies the request block. 


The purpose of this request is to set a system flag in the XCB 
(execution control block) of the specified task. 


TYPE 
TMTSRB_SET_SYSTEM_FLAG = RECORD 
REQCODE, 
STATUS, 
TASK_ID, 
FLAG_ID, 
recend; 


reqcode: (input) The value of this parameter is SYCSRC_MTR_SET_SYSTEM_FLAG. 


task_id: (input) This parameter is the global task id of the task in 
which the system flag is set. 

fiag_id: (input) This parameter specifies which system flag is to be set. 

status: (output) This parameter is the standard monitor status. 


tmp$set_ system_flag (rb.task_id, rb.flag_id, rb.status) ; 


PROCEND tmp$mtr_set_system_flag; 


PROCEDURE [XDCL] tmp$mtr_send_signa} 
(VAR rb {input,output} : tmt$rb_send_signal); 


The purpose of this procedure is to process the job mode 
request to send signals to a specified task’s XCB. 


TMPSMTR_SEND_ SIGNAL (RB) 
RB : (INPUT,OUTPUT) This parameter specifies the request block. 


TYPE 
TMTSRB_SEND SIGNAL = RECORD 
REQCODE, 
STATUS, 
TASK_ID, 
SIGNAL, 
RECEND; 


REQCODE: (input) The value of this parameter is SYCS$RC_ SEND SIGNAL. 

STATUS: (output) This parameter specifies standard system status. 

TASK_ID: (input) This parameter specifies the task in whose XCB the 
signal is to he placed. 

SIGNAL: (input) This parameter specifies the signal biock. 


tmp$send_signal (rb.task_id, rb.signal, rb.status) ; 


PROCEND tmp$mtr_send_ signal; 
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PROCEDURE [XDCL] tmp$process_task_mcr_fault; 


Purpose: 


om ine rin pn 


to be processed in job mode. 


VAR 
cst_p: Aost$cpu_state table, 
fault: ost$monitor_ fault, 
mer _fault_p: Atmt$mecr_faults, 
xcb_ p: Aost$execution_control block, 
zero_pva: [STATIC] ost$pva := [0, 0, 0]; 


This procedure is caTtied by the monitor interrupt processor to process 
an MCR fault from atask if the MCR fault was selected by the task 


{Copy the fault information for the task’s XCB to the signal record. 


mtp$cst_p (cst_p); 


xcb_p := cst_pA.xcb_p; 

#KEYPOINT (osk$debug, xcb_pA.global_task_id.index * osk$m, tmk$process task_mcr_fault); 
fault.identifier := tme$mcr_ fault; 

mcr_fault p := #LOC (fault .contents) ; 

mer fault pA.faults := xcb_pA.xp.monitor_condition_register ; 

mer _ fault_pA.untranslatable pointer :: xcb pA.xp.untranslatable_ pointer ; 


{Send the Monitor Fault to the task. 


send_monitor_fauit (xcb_p, Afault, ‘Job mode MCR fault‘, TRUE); 


{Reset the XCB. Clear the UTP and MCR. 
xcb pA.xp.untranslatable pointer := zero_pva; 


PROCEND tmp$process_ task mer fault; 
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PROCEDURE [XDCL] tmp$process_unknown_req fault; 


This procedure is called by the monitor to process an unknown 
system request fault issued by the current task. 


TMPSPROCESS UNKNOWN _REQ_FAULT 


Par Om oe ot oy 


VAR 
cst_p: Aost$cpu_state_ table, 
fault: ost$monitor_ fault, 
xcb_ p: Aost$execution_control biock; 
{ Set up the fault information in the signal block. 
mtp$cst_p (cst_p); 
xcb_p :2% cst _ pA.xcb_p; 
fault.identifier := tmc$unknown_system_req_ fault ; 
{ Send the monitor fault to the task. 
send monitor _ fault (xcb_p, Afault, ‘invalid monitor request’, 


PROCEND tmp$process_unknown_req fault ; 


TRUE); 
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PROCEDURE tmp$send_monitor_ fault; 
PURPOSE: 


The purpose of this procedure is to place a monitor fault in the 
monitor fault buffer of the specified task. 


NOTE: 


The first monitor fault buffer is reserved for ‘broken _task_monitor fault’. 
this procedure will start with the second monitor fault buffer when 
searching for a free buffer. 


2FMT (FORMAT: =ON)?7? 


PROCEDURE [XDCL] tmp$send_monitor_fault 


task_id {input} : ost$global_task_id; 
monitor fault _p {input} : Aost$monitor fault; 
check_traps_ enabled {input} : boolean) ; 


VAR 
ijle_p: Ajmt$initiated job_list_entry, 
xcb_p: Aost$execution_control block; 


tmp$get_xcb_p (task_id, xcb_p, ijle_p); 
send_monitor_fault (xcb_p, monitor _fault_p, ‘monitor fault’, check_traps_enabled) ; 
imp$unlock_ajl (ijle_p); 


PROCEND tmp$send_monitor_ fault ; 
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PROCEDURE [XDCL] tmp$mtr_process system_error 


( rb: ost$rb_system_error) ; 


This request is used by OSPSSYSTEM_ERROR to tell monitor that a 
fatal system error occurred. 


TYPE 

OSTSRB_SYSTEM_ERROR = RECORD 
REQCODE, 
FATAL, 
STATUS, 
CALLER_P_REGISTER, 
STATUS _P, 
TEXT_P, 
CONDITION, 
TEXT, 

RECEND; 


REQCODE: (input) The value of this parameter is SYC$SRC_SYSTEM_ERROR. 


FATAL: (input) This parameter specifies whether or not to halt the 
system. 


STATUS: (output) This specifies standard monitor status. 


CALLER_P_REGISTER: (input) This parameter specifies the P register 
where the problem occurred. 


STATUS_P: (input) This parameter specifies a pointer to a status 
variable of possible importance to the error. 


TEXT_P: (input) This parameter specifies a pointer to a text message 
related to the failure. 


CONDITION: (input) This parameter specifies the condition code found 
in the status variable. 


TEXT: (input) This parameter specifies the actual error message related 
to the failure. 


VAR 
cst_p: Aost$cpu_state_table, 
fault: ost$monitor_ fault, 
error_message: string (80), 
broken_task_fault_p: Atmt$broken_task_monitor fault; 


mtp$cst_p (cst_p); 
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IF NOT mtv$sys_core_init_complete OR [cst_pA.xcb_p4.xp.p_register.pva.ring = 1) AND rb.fatal THEN 


error_message (1,10) := "VEO0S1100- ‘; 
error _message (11,*) = rb.text; 
mtp$step_unstep_system (syc$ic_fatal_software_error, error _message(1,72)); 
IFEND; 


fault.identifier := tmc$broken_task_fault_id; 


PAGE 


PAGE 
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8E 4472 broken_task_ fault _p := #LOC (fault.contents) ; 

96 4473 broken task_fault pA. broken _task_condition := tmc$btc_system_error; 
$6 4474 broken _task_fault_ pA.trap_enable := cst_pA%.xcb pA.xp.trap enable; 
86 4475 broken task fault _pA.status p := rb.status_ p; 

8&6 4476 broken _ task _fault _p%.text_p :5 rb.text op; 

S86 4477 broken_task_fault_pA.caller_p_ register :: rb.caller_p_ register ; 
96 4478 error_message (1, *) :: rb.text; 

D6 4479 

D& 4480 send monitor fault (cst _p4.xcb_p, Afault, error_message, TRUE); 
100 4481 

100 4482 


100 4483 PROCEND tmp$mtr_process system_error, 
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° 4485 
Oo 4486 PROCEDURE send monitor fault 
Oo 4487 ( xcb p {input} : Aost$execution_ control block; 
oO 4488 monitor fault _p finput} : AostSmonitor_ fault; 
Oo 4483 mtr_ fit message {input} : string ( * }, 
o 4490 check_traps_enabled {input} : boolean); 
ce) 4491 
° 4492 { 
° 4493 { PURPOSE: 
° 4494 { The purpose of this procedure is to place the monitor fault into free 
° 4495 { monitor fault buffer of specified task. The free flag is set to preempt 
© 4496 { specified task execution and process the monitor fault next time task executes. 
oO 4497 { 
ie) 44ag8 { NOTE: 
fe) 4ags { The first monitor fault buffer is reserved for sending monitor fault to 
o 4so0o { task to inform it that it is considered a broken task. This is to ensure 
ce) 4as5oi { that a buffer full condition will never occur when a task is broken. 
° aso2 { It is assumed the specified task is in ready status. 
o 4503 { 
o 4504 { If broken task processing aborts (in job mode), we witl hang the task 
o 4505 { unless it is a critical task or has system tables locked, in which case 
oO 4506 { we will hailt the system. We will mot recurse back through here. 
o 4507 { 
o 4508 { If a task is broken tmv$system_error_hang count different times it 
° 4so9 { will be considered a hung task. It will be processed as if broken 
Oo 4510 { task processing had aborted. (See above.) 
° 4511 { 
oO 4512 
Oo 4513 VAR 
Oo 4514 cst_p: Aost$cpu_state table, 
Oo 4515 i: 1 .. tme$maximum_monitor faults + 1, 
oO 4516 fault contents p: Atmt$broken_task_monitor fault, 
o 4517 broken_task: boolean, 
o 48518 fault: ostS$monitor_ fault, 
oO 4519 halt_message: string (72), 
o 4520 jdr_p: Aost$ring, 
° 4521 status: syt$monitor_status; 
° 4522 
Oo 4523 #KEYPOINT (osk$debug, xcb_p4.global_task_id.index * osk$m, tmk$send_ monitor fault); 
10 4524 mtp$cst_p (cst_p); 
20 4525 
20 4526 IF NOT mtv$sys_core_init_complete OR (cst_pA.ajio = 0) AND 
$8 4527 : (cst_pA.taskid = cst _pA.ijle_ pA. job_monitor_taskid) THEN 
58 4528 halt message (1,10) :* ‘VEOS1100- ‘’; 
66 4529 halt message (11,*) := mtr_filt_message; 
84 4530 | mtp$step_unstep_system (syc$ic_fatal_software_error, halt_message(1,72)); 
AB 4531 IFEND; 
AG 4532 
AG 4533 IF ((xcb_p4.xp.p_register.pva.ring <= mtv$hailt_cpu_ring number) OR 
D6 4534 (xcb_p4.xp.p_register.pva.ring <= mtv$system_haltring) AND (cst_pA.ajlo = 0)) 
D& 4535 AND (check_traps enabled) THEN 
D6 4536 halt_message (1,10) := ‘VEOS9S820- °; 
E4 4537 halt message (11, * ) := mtr_filt_message; 
102 4538 adpp$display_error(’Software Err below Halt Ring, initiating Software Breakpoint’); 
11E 4539 mtv$scb.nos_180_ status.system_status.step_ status _block.requested status := mtc$stepped system; 
11E 4560 mtp$step_unstep_ system (syc$ic_software breakpoint, halt message) ; 


148 4541 IFEND; 
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{ Set up the broken task fault. 
fault.identifier :+ tmc$broken_task_fauit_id; 
fault.pva := xcb_ pA.xp.p_register .pva; 
fault .ao = xcb pA.xp.ao_ dynamic space pointer ; 
fault.ai = xcb pA.xp.al_current_ stack _ frame; 
fault.a2 :2 xcb_ pA.xp.a2_ previous save _ area; 
fault _contents p := #LOC (fault.contents) ; 
fault contents _ p%.p := xcb_pA.xp.p_register ; 
fault contents p4.ao :: xcb pA.xp.aO_dynamic space_pointer ; 
fault _contents p4.trap_enable := xcb_pA.xp.trap_enabie; 
fault contents pA.monitor_condition_register :* xcb_p%.xp.monitor_condition_register ; 
fault contents pA.user_condition_register := xcb pA.xp.user_condition register ; 
fault _contents_pA.monitor_fault_id := monitor _ fault _ pr. identifier ; 
check_repair_trap_mechanism (xcb_p, check _traps_ enabled, broken_task, fault contents pA. 
broken_task_condition); 
i325 2; 
WHILE (i <= tmc$maximum_monitor_fauilts) AND (xcb_ pA.monitor_faults.present [i]) DO 
1 = 1 + 1; 
WHILEND ; 
IF i <2 tmc$maximum_monitor_faults THEN 

xcb_pA.monitor_fauits.buffer [i] : = monitor_fault_pA; 

xcb_pA.monitor_faults.buffer [i].pva := xcb _ p%.xp.p_register.pva; 

xcb_pA%.monitor_ faults.buffer [i].ao := xcb_ pA.xp.aoO_dynamic_space_pointer ; 
xcb_pA.monitor_ faults.puffer [i].a1 := xcb _pA.xp.ai_current _stack_frame |; 
xcb_pA.monitor_faults.buffer [i].a2 := xcb pA.xp.a2_previous_save_area; 
xcb_p*%.monitor_ faults.present [i] := TRUE; 

ELSE 

IF broken task = FALSE THEN 
broken_task := TRUE; 
fault_contents pA. broken_task_condition : = tmc$btc_mntr_fault_buffer_ full; 
xcb pA.xp.trap_enable :: osc$traps_enabled,; 

IFEND; 

IFEND,; 
IF broken_task OR (monitor_fault_p4A.identifier = tmc$broken_task_fault_id) THEN 

xcb_ pA.system_error_ count :: xcb_ p4.system_error_ count + 1; 

IF xcb_pA.system_error_count > (tmv$system_error_hang count + 4) THEN 
Gpp$display_error(’Broken Task, System Error Count exceeds limit; Terminating System’); 
halt_message (1,10) := ‘VEOS2020- ’; 
halt _message (11,+*) : = mtr_fit_message; 
mtp$step_unstep_system (syc$ic_fatal_software_error,halt_message) ; 

ELSEIF (xcb_pA.system_error_count = tmv$system_error hang count) OR 

(xcb_pA.monitor_faults.present [1]) THEN 
{ HUNG TASK 
IF (xcb_pA.system_table_lock_count >= 256) OR (xcb_p4.critical_task) THEN 
nalt_ message (1,10) := ‘VEOS2010- ‘; 
halt message (11,*) := mtr_flt_message; 
tmm$Smtr_flag signai_funct ions NOS/VE CYBIL/II 1.0 89102 ; 1989-08-21 13:33:34 


mtp$step_unstep_system (syc$ic_fatal_software_error,halt_message) ; 
ELSE 

IF tmv$halt_on_hung task THEN 
mtv$scb.nos_180_ status.system_status.step_status_ block.requested status := mtc$stepped_ system; 
hait message (1,10) := *’VEOSS910- °*; 
halt message [(11,*) := mtr_filt_message; 
aGpp$display_error (‘Task hung, initiating software breakpoint’); 
mtp$step_unstep_ system (syc$ic_software_ breakpoint ,halt message) ; 


IFENO; 
tmp$set_monitor_filag (xcb_p4.global_task_id, syc$mf_ hang task, status); 
est _p%.ijle_p4%.hung task_in_job := TRUE; 
IFEND; 
IFEND; 
IFEND; 
IF proken_task AND (xcb_pA.monitor_faults.present [1] = FALSE) THEN 
xcb_pA.monitor_faults.buffer [1] := fault; 
xcb_pA.monitor_faults.present [1] := TRUE; 
IFEND; 


tmp$set_ monitor flag (xcb_p%.global_task_id, tmc$mf_cause_job_free_ flag trap, status); 
IF xcb pA.xp.p_ register .pva.ring <= tmv$system_debug ring THEN 
IF (tmv$system_debug segment = ©) OR (xcb_p4.xp.p_register.pva.seg <= tmv$system_debug_ segment ) THEN 
tmp$set_monitor_flag (xcb_p4.global_task_id, syc$mf_invoke_sysdebug, status); 


IFEND; 
ELSE 
IF tmv$job_debug ring p <> NIL THEN 
jdr_p := #address (1, #segment (xcb_p), #offset (tmv$job_debug ring _p)); 


IF xcb_pA.xp.p_register.pva.ring <= jdr_pA THEN 
tmp$set_monitor_flag (xcb_pA.global_task_id, syc$mf_ invoke _sysdebug, status) ; 
IFEND; 
IFEND; 
IFEND; 


PROCEND send monitor fault; 
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Oo 4636 
Oo 4637 PROCEDURE check _repair_trap_mechanism 
Oo 4638 ( xcbh p: Aest$execution_control blieck; 
° 4639 check traps enabled: boolean; 
oO 4640 VAR broken: boolean; 
Oo 4641 VAR fault_id: tmt$broken_task_condition) ; 
Oo 4642 
oO 4643 VAR 
oO 4644 found: boolean, 
© 4645 Sstack_segnum: ost$segment, 
Oo 4646 stack_length: ost$segment_ length, 
oO 4647 status: syt$monitor status; 
oO 4648 
o 4649 broken :: FALSE; 
4 4650 
4 4651 
4 4652 { Make sure that traps are enabled. 
4 4653 
4 4654 IF (check_traps_ enabled = TRUE) AND (xcb_ pA.xp.trap_enable <> osc$traps enabled) THEN 
1E 4655 broken := TRUE; 
1E 4656 fault_id : = tmc$btc_mf_traps_ disabled; 
1E 46587 xcb pA.xp.trap_enable := osc$traps_enablied; 
2E 4658 IFEND; 
2E 4659 
2E 4660 
2E 4661 {Validate AO. 
2E 4662 
2E 4663 mmp$fetch_ stack_segment_info (xcb_p, xcb_pA.xp.p_register.pva.ring, { set_length_to_zero } FALSE, 
66 4664 stack _segnum, stack_length, found) ; 
66 4665 IF NOT found THEN , 
6E 4666 mtp$error_ stop (’BTC - lost the stack segment’); 
8E 4667 IFEND; 
8E 4668 IF (#RING (xcb_p4.xp.aO_dynamic_space_pointer) <> xcb_pA.xp.p_register.pva.ring) OR 
C2 46698 (#SEGMENT (xcb_p4.xp.a0_ dynamic _space_pointer) <> stack_segnum) OR 
C2 4670 (#OFFSET (xcb_p%.xp.aO_dynamic_space_pointer) < 0) OR 
c2 4671 (#OFFSET (xcb_ pA.xp.aO_dynamic_space_ pointer) + 37 * 8 > stack_length) THEN 
C2 4672 broken := TRUE; 
C2 4673 fault _id := tmc$btc_invalid_ao; 
C2 4674 xcb_pA.xp.ao dynamic space pointer := #ADDRESS (xcb_pA.xp.p_register.pva.ring, stack _segnum, 
C2 4675 mmc$ring crossing offset ) ; 
C2 4676 xcb_pA.xp.a2_ previous save_area := NIL; 
C2 4677 mmp$fetch_ stack_segment_info (xcb_p, xcb_p4A.xp.p_register.pva.ring, { set_length_to_zero } TRUE, 
126 4678 stack segnum, stack_length, found) ; 
126 4679 IFEND; . 
126 4680 
126 4681 
126 4682 PROCEND check _repair_trap_mechanism; 
© 4683 MODEND tmm$mtr_flag_ signal_functions; 
***+ 12$05578173AS0102D19890821T183254 L2=ZZXXLIST B=LGO DA=NONE LO=R RCSNONE OPT=:=SCHED ELF LFeCS612 PAD=0 
*xxx NO DIAGNOSTICS 
REFERENCES OF tmm$mtr_flag_ signal_functions NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 
PDEN TEE LER eis: ss 8 eieene eos ee sisie em DEFINED <2: see Ses 2 tie Se se REFERENCES 
ON LINE 
ao 622 4552/™M 
ao 689 4S47/M 4S69/M 
ao _ dynamic space_ pointer 3182 4847 4552 4S69 4668 4669 4670 4671 4674/M 
ai 690 4548/M 4570/M 
ai current _stack_frame 3196 4548 4570 
a2 691 4549/™M 4571/M 
a2_previous save_area 3198 4549 4571 4676/M 
access xcb 4196 4196 4201 4207 4222 4244 
ajl_ordinal 1103 1066 2246 4003 4008 4246 ‘4411 
ajilo 1063 19066/M 1067/S 1070/S 1070/S 
ajlo 2244 2246/M 2247/8 2250/S 2250/8 
ajilo 2296 4526 4534 
ajio 39334 4003/M 4003/S 4003/S 4003/S 4008/M 4008/5 4008/S 4008/S 
ajlo 4162 4246/™M 4246/58 4246/S 4246/S 
ajilo 4400 4411/M 4411/8 4411/S 4411/S 
b 1059 1065 1065 
b 2187 2194 2195 
b 3884 3300 3900 
b 3934 3368 3968 
b 4025 4049 4049 
b 4087 4035 4095 
b 4162 4246 4246 
b 4400 44i1 4411 
be 10593 106S/M 1065 1065 
be 2188 2191/M 2192 2196 
oe 3884 3800/M 3900 3900 
be 3934 3968/M 3968 3968 
bc 4025 4049/M 4049 4049 
be 4087 4095/M 4035 4095 
be 4162 4246/M 4246 4246 
be 4400 4411/™M 4411 4411 
broken 4640 4649/M 4655/M 4672/M 
broken _task 4517 4a558/P 4574 4575/M 4581 4615 
broken _task_condition 613 4473/™ 4559/P 4576/M 
broken _task_fauilt_p 4461 4472/™M 4473/M 4474/M 4475/M 4476/M 4477/™M 
buffer 765 4567/M 4568/M 4569/M 4570/M 4571/M 4616/M 
buffer 3399 4230/M 4231/M 
caller p_register 43 4477 
caller_p_ register 615 4477/M 
check repair_trap_mechanism 4637 4558 4682 
check _traps_enabled 4403 4410/P 
check_traps_enabled 4490 4535 4558/P 
check traps_enabled 4639 4654 
clear 2127 1072/M 2096/M 3904/M 3915/M 39320/M 3829/M 3972/M 3980/M 
3995/M 4004/M 4020/M 4082/M 4104/M 4246/M 4411/M 
cmt$element_state 2333 22382 2233 2323 
condition 213 3704/M 3978/M 4002/M 4200/M 4206/M 4221/M 
condition 3699 3704 
condition 39334 3978 
contents 700 4343 4472 4550 
count 2124 1065/M 1065 19072 1072/M 1072 2093 2094/M 2094 


*EX 


REFERENCE ABBREVIATIONS 


Memodify, 


Azattribute, 


S=subscript, 


I1s1/0 ref, 


Reread, W:write, 
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Pzparameter 


| REFERENCES OF 


tmm$mtr_flag signal_functions NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 

_IDENTIFIER------ SSRIS Se eae Sees DEFINED------++-- seer eee REFERENCES 

; ON LINE 
2198/M 2198 3900/M 3300 3904 3904/M 3904 3915 
3915/M 3915 39320 3920/M 39320 3928 3929/M 39329 
3968/M 3968 3972 3872/M 3972 3980 3930/M 3990 
3995 3995/M 3995 4004 4004/M 4004 4020 4020/M 
4020 4049/M 4049 4082 4082/M 4082 4095/M 4ogs 
4104 4104/M 4104 4246/M 4246 4246 4246/M 4246 
4411/™ 44ii 4411 4411/M 4411 

critical _task 2624 4596 

cst_p 3680 3682/M 

est_p 3884 3896/M 

cst_p 3891 3896/P 339308 3909/M 3309 32911/M 3911 

cst_p 3934 3964/M 

cst_p 3957 3964/P 3976 3377 3980/M 39380 3982/M 3982 3383/M 
3983 3985/M 

cst p 4025 4058/M 

cst_p 404s 4058/P 40593 4060/M 4060 4062/M 4062 4063/M 4063 
4065/M 

est_p 4108 4148/M 

cst_p 4141 4148/P 4150 4151/S 4152 4154/S 

cst _p 4162 42239/M 

cst_p 4184 42239/P 4230 

cst p 4322 43339/M 

cst_p 4330 4339/P 4340 

cst_p 4361 4377/M 

cst_p 4371 4377/P 4378 

cst_p 4416 4463/M 

cst _p 4458 4463/P 4465 4474 4480/P 

cst_p 4486 4524/M 

cst_p 4514 4524/P 4526 4527 4527 4534 4609/M 

.dfc$command record bytes 1203 1211 

dfc$division_overwr ite_words 1190 1218 

dfc$esm_command record size 1211 1219 

_adfc$esm_header_ record size 1212 1219 

dfc$esm_ maintenance _buf_size 1191 1222 

dfc$esm_memory_base_shift 1197 1219 1220 1220 

dfc$header_record bytes 1202 1212 

dfc$max_esm_memory_ size 1192 1221 

dfc$max number _of_ mainframes 1199 1184 

dfc$min_data_record_ bytes 1207 1218 

dfc$min_esm_division_size 1217 1221 

dft$mainframe_set 1184 1134 1135 1311 1312 

dispatching_priority 2639 4150 4152 

dmt$system_file_id 1233 1166 

apc$console_ row size 1056 1050 

adpc$top_line_message_ size 1050 1045 3845 

adpp$display_error 1044 4S38 4586 4605 

dpt$top_line_message 3845 3820 

error _ message 4460 4466/M 4467/M 4468/P 4478/™M 4480/P 

fatal 41 4465 

Fault 4331 4342/M 4343 4350/P 


* xx REFERENCE ABBREVIATIONS 


Memodify, Atattribute, S=subscript, I:I/0 ref, R=read, Wewrite, 


REFERENCES OF tmm$mtr_flag signal_functions NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 
ROUEN. ERS ses nes aie ses Sees DEP INED Ss 33 Sse ses Since REFERENCES 
ON LINE 

fauit 4372 4379/M 4383/P 

fault 4459 4471/M 4472 4480/P 

fault 4518 4S45/M 4546/M 4547/M 4548/M 4549/M 4550 4616 

-fault_contents_p 4516 4550/M 4551/M 4552/M 4553/M 4554/M 4555/M 4S56/M 4558/P 
4576/M 

fault id 4641 4656/M 4673/M 

Faults 847 4344/M 

find free signal _buffer 4210 4210 4216 4223 

flag_id 940 4284/P 

flag id 3886 3911 3919 3927 

flag id 3936 3982 3994 4014 

flag _id 4026 4062 4074 

found 4644 4664/P 4665 4678/P 

free buffer loop 4213 4213 4218 

gft$file_ descriptor_index 1248 1238 

goft$system_file_identifier 1237 1233 1970 2667 2844 3052 

gft$table residence 1251 1239 

global _task_id 2628 4151/S 4154/S 4341 4523 4608/P 4620/P 4623/P 4629/P 

halt message 4519 4528/M 45239/M 4530/P 4536/M 4537/M 4540/P 4587/M 4588/M 
4589/P 4597/M 4598/M 4599/P 4603/M 4604/M 4606/P 

hung task_in_job 1139 4603 /M 

i 4043 4050 4051/S 4053 4054/S 

i 4185 4214 4215/8 4227/S 4228/S 4230/S 4231/Ss 

i 4515 4561/M 4562 4562/S 4562 4562/S 4563/M 4563 4S66 
4567/Ss 4568/S 4569/S 4570/S 4571/S 4572/S 

i#program_error 2104 1072 2091 3904 3915 3920 3829 3972 3330 
3995 4004 4020 4082 4104 4246 4411 

id 2125 1065 1065/M 1072 20390 2192 2196/M 33900 3900/M 
3904 3915 39320 38293 3968 3968/M 3972 3390 
3995 4004 4020 40493 4043/M 4082 4oss 4095/M 
4104 4246 4246/M 4246 4411 4411/M 4411 

identifier 692 4342/™M 4379/M 4471/™M 4545/™M 4S56 4581 

ijl_thread 3620 4101 

ijle_p 1060 1066 1068/P 

ijle_p 2241 2246 2248/P 

ijle_p 2316 4527 46039/M 

ijle_p 3934 4003 4003/P 4008 4008/P 

ijle_p 3358 39399/P 4003/P 4008/P 

ijle_p 4089 4096 

ijle_p 4162 4246 4246/P 

ijle_p 4186 4191/P 4246/P 

ijle op 4400 4411 4411/P 

ijle_p 4406 4409/P 4411/P 

in use 2224 1067 1070/M 1070 2247 2250/M 2250 4003 4003/M 
4003 4008 4008/M 4008 4246 4246/M 4246 4411 
4411/M 4411 

index 863 3883 3912/8 3913/8 3919/8 39826/S 3926/S 3361 3986/S 
3887/8 3994/58 4013/S 4013/5 4015/S 4016/S 4016/S 4053/M 
4066/S 4067/S 4073/8 4073/8 4075/$ 4076/S 4076/8 4098 
4038 4039/5 4101/M 4101/58 4151/8 4154/S 4189 4233/8 

*** REFERENCE ABBREVIATIONS Memodify, Atattribute, S=subscript, I:1/0 ref, R=read, Wewrite, 
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P=parameter 


1263 


P=parameter 


REFERENCES OF tmm$mtr_flag signal_functions NOS/VE CYBIL/II 1.6 89102 1989-08-21 13:33:34 PAGE 1264 


IDENTIFIERS << + sesso weer cee DEFINED-----c2eee¢+-++"--REFERENCES 
ON LINE 

4341 4823 
iet$io_error 2044 1167 2010 
iot$transfer count 3140 3128 
jdr_p : 4520 4627/M 4628 
jimc$detached_job_wait_t ime_max 2394 2391 
imc$highest_det_job_wait_time 2404 2394 2405 
imc$highest_prio_age_ interval 2735 2726 2736 
imc$highest_ service accumulator 1721 1722 
imce$highest_service_factor_valu 27598 2752 
jmc$highest working set_size 2430 2421 2431 2433 2435 2437 
imc$ies_job_swapped 14798 1488 
imc$ies_swapin_in_progress 1478 1487 
imc$iss_idie_tasks_ initiated 1494 1521 
imc$iss_swapin_io_complete 1519 1522 
jimc$iss_ swapin_requested 1515 1522 
imc$iss_ swapout_ complete 1514 1521 
jmc$iss_swapped_io_cannot_init 1505 1532 
imc$iss_swapped_no_io 1496 1531 
jmc$keyword_offset_maximum 1738 2422 2727 
jimc$k jl_maximum_entries 1272 1265 1266 1673 
jmc$kol_maximum_entries 1282 1267 
jmc$lock_ajl 1080 1067 1068/P 1070 2247 2248/P 2250 4003 4003/P 

4003 4008 4008/P 4008 4246 4246/P 4246 4411 

4411/P 4411 
jmc$max_active jobs 1263 2708 2716 2717 
jmc$max_ajil_ord 1264 1257 1263 
jmc$max_ dispatching control 1438 1442 
jmc$max_dispatching priority 1360 1320 1323 1324 
jmc$maximum_job_classes 1651 1654 
jmc$maximum_job_count 1278 1272 
jmc$maximum_output count 1289 1282 
imc$maximum_service_classes 1754 1757 
jmc$min_ dispatching control 1437 1441 
jme$null_ service class 1747 1748 
ime$priority_aging_ interval_max 2726 2723 
imc$priority pt 1374 1321 3577 
imc$priority pio 1383 1322 
jmc$priority pt4 1387 1322 3577 
jmc$priority ps 1381 1321 
jmc$required offset 1736 2436 
jmc$reserved_ajis 1268 1263 
imc$service_accumulator_ maximum 1713 1710 
jime$service factor _ value max 2752 2748 
jimc$system_default offset 1737 1738 2438 
jmc$system_supplied_name_size 1885 1882 
jmc$unlimited_ offset 1734 1723 2395 2406 2432 2737 
jimcSunspecified_offset 1735 2434 
jimc$working set _size_maximum 2421 2418 
jimp$free_aji_with_ lock 1083 1068 2248 4003 4008 4246 4411 
jmp$untlock_ajl 1059 1074 4246 4411 
jimp$uniock_ajl_with_ lock 2240 2253 4003 4008 
jimt$active job list 2231 2209 


* xX REFERENCE ABBREVIATIONS : M=modify, Atattribute, S:subscript, I:I/0 ref, Rtread, W-write, Psparameter 


. & 
REFERENCES OF tmm$mtr_flag_ signal_functions NOS/VE CYBIL/II 1.0 891062 1989-08-21 13:33:34 PAGE 1265 
IDENTIFIER- ++ ees ere eee ee Sete ae DEFINED---------+---+-+-->- REFERENCES 
ON LINE 

jmtG$active_job_list_entry 2223 2231 

jimt$ajl_ordina} 1257 1063 1103 2244 2296 

jmt$delayed_swapin_work 1304 1133 1308 

jmt$detached job wait_time 2391 2376 

imt$dispatching_ control 1408 2691 

imt$dispatching_control_index 1441 1398 1408 

jimt$dispatching controls 1411 1409 

imt$dispatching priority 1320 1115 1399 1400 14061 1413 2288 2639 2641 
3618 3618 3651 4140 

jmt$iji_block_index 1551 1547 

jmt$iji_block_number 1550 1546 

jimtS$iji_ dispatching _ control 1397 1116 

jimt$ijl_entry status 1474 1102 

imt$ijl_ordinal 1545 1122 1150 1900 1901 19863 2002 2225 2315 
2366 3610 

imt$ijl_page_fault count 1870 1565 1566 1567 

jmt$ijl_page_stats 1564 1560 

imt$ijl_service class stats 1558 1137 

jmt$ijl_statistics 1603 1136 : 

jimt$ijl_swap_count 1579 1575 1576 

imt$ijl_swap_counts 1574 1156 1561 

imt$ijl_swap_status 1492 1105 1106 1107 

jmt$initiated_job_list_entry 1099 1060 1084 1927 2226 2241 2316 2365 3659 
3668 3958 40893 4186 4406 

jimtSinput file location 1693 1688 

jmt$ job_abort_ disposition 1702 1686 

jmt$job_cilass 1654 1161 

jmt$job_control_ block 2347 2298 

jmt$ job_mode 1657 1118 

imt$job_priority 1662 1158 1159 2700 2701 2702 2703 

jmt$job_recovery disposition 1705 1687 

jmt$ job_system_id 2410 2362 

jmt$kj1_index 1673 1104 2410 

jmt$maximum_active_ jobs 2708 2685 

imt$priority_aging_ interval 2723 26393 

imt$queue file_ijl_informat ion 1685 1143 

jmt$scheduling data 1149 1127 

jmt$scheduling priority 2699 2632 

jmt$service_accumulator 1710 1151 1152 1183 2683 2684 

jimt$service _class_index 1757 1162 2676 2686 

jmt$service class_name 2741 2678 2679 

jmt$service_factor value 2749 2687 

jmt$service_factors 2745 2687 

imt$swap_data 1165 1129 

imt$swapout reasons 1760 1187 

jmt$swapped_job_entry 1775 1174 1928 2385 

jimt$system_supplied_name 1882 1100 2360 

jmtS$task_time_ slice 1451 1431 1432 

jmt$time slice values 1430 1415 2652 

jmt$Suser_ supplied name 2414 2361 

jmt$working set size 2418 2372 2373 

jimvS$aji_p 2208 1067 1070/M 1070 2247 2250/M 22590 4003 4003/M 
4003 4008 4008/M 4008 4246 &246/M 4246 4411 


xxx REFERENCE ABBREVIATIONS : Memodify, Atattribute, S:subscript, 11/0 ref, Reread, Wewrite, P=parameter 


REFERENCES OF tmm$mtr_filag_si 
IDENTIFIER------++e 2-7 ee eee cee 


job_monitor taskid 
isc$isqi_swapped_io_ completed 
jisc$isqi_swapped_io_not_init 
jst$changed_asid_entry 
jst$ijl_swap_queue_id 
jst$ijl_swap_queue_link 
jist$S$io_control_information 
ist$swap_file_descriptor 
/jstS$swapped_page_descriptor 
ist$swapped_ page descriptors 


lock 
“10Cck 
lock 
lock 
- Jock 
lock 


‘Jack 
lock 


lock 
tock 
“lock 
lock 
lock 
lock 
lock 
lock 
locked 


mer fault op 
mmc$assign_active null 
mmc$cell_ pointer 
mmc$heap_pointer 

mmc$kw_asid 

mmc$kw_clear space 
“mmcS$kw_current segment_itength 
mmcS$kw_error_ exit procedure 
mmc$kw_gi_key 

mmc$kw_ hardware attributes 
mmc$kw_inheritance 
mmc$kw_max_segment_length 
mmc$kw_preset_value 
“mmc$kw_ps transfer size 
mmc$kw_ring numbers 
mmc$kw_segment_access_ control 
mmc$kw_segment_ number 
mmc$kw_shadow_segment 


be 


REFERENCES OF tmm$mtr_filag_si 


IDENTIFIER------- a 


mmc$kw_software attributes 
mmc$kw wired segment 

mmc$pq_ avail 

mmc$pq_free 

mmc$pq_job_fixed 
mmc$pq_job_working set 
mmc$pq_shared_first_site 
mmc$pq_shared_ num_sites 
mmc$pq_shared_ other 

mmc$pq_ shared _ site_01 

mmc$pq shared site 25 
mmc$pq_ shared task_service 
mmc$pq_swapped_io_error 
mmc$pq_ wired 

mmc$ring crossing offset 
mmc$segment_fault_processor_id 
mmc$sequence_pointer 
‘mmc$ssk_none 
mmc$ssk_segment_ number 
mmp$fetch_ stack segment_info 
mmt$active segment _table_entry 
mmt$ast_ index 

mmt$attribute_ keyword 
mmt$gilobal_page_queue_ index 
mmt$gliobail_page_ queue_list_ent 
mmt$hardware_attribute_set 
mmt$hardware_ attributes 

mmt$ job _page_queue_index 
mmt$ job_page_queuve_list 
mmt $ link 

mmt$ lock segment status 
mmt$ locked _ page 

mmt $max_sdt 

mmt $max_sdt x 

mmt$memory reserve request 
mmt $page_age 
mmt$page_frame_ index 
mmt$page frame_queue_id 
mmt$page frame_tabie_entry 
mmt$page_map_offsets_ ord 
mmt$page_queue_list_entry 
mmt$sdtx_stream_data 
mmt$segment_access_ condition 
mmt$segment_access rights 
mmt$segment_access state 
mmt$segment descriptor 
mmt$segment_descriptor_extende 
mmt$segment_inheritance 
mmtSsegment_pointer_kind 
mmt$segment_reservation_state 
mmt$shadow_info 
mmt$shadow_reference_info 
mmt$shadow_segment_kind 


xxx 


gnail_functions NOS/VE CYBIL/II 1.060 89102 
DEFINED-c- cee eter eee eee REFERENCES 
ON LINE 
4411/M 4411 
1117 4096 4527 
1905 1907 
1904 1907 
1950 1941 
1904 1898 
1838 1411 
1912 1130 
1926 1131 
1935 1933 
1932 19293 
1059 1065 1065 
1059 1072 1072 
2087 2090 2093 
2184 2182 2194 
3884 33900 3900 
3884 3904 3904 
3915 39315/M 
3329 3929/M 
3934 39368 3968 
3934 39372 3372 
3990 3990/M 
4004 4004/M 
4020/M 
4025 404g 4049 
4025 4082 4082 
4087 4035 4os5 
4087 4104 4104 
4162 4246 4246 
4162 4246 4246 
4400 4411 4411 
4400 4aii 4411 
2123 1065 2194 
4332 4343/M 4344/M 
2884 2885 
2883 2988 
2984 23992 
29093 2945 
2907 2932 
2906 2926 
29308 2936 
2908 2930 
2910 2939 
2910 2947 
2907 2828 
2309 2934 
2911 2955 
2905 2921 
2909 2943 
2906 _ 2924 
2911 2949 
REFERENCE ABBREVIATIONS Mzmodify, 


gnal_funct ions NOS/VE CYBIL/II 
DEFINED----------- “--°-:-REFERENCES 
ON LINE 
2908 2941 
2911 2952 
1782 1838 
1791 1850 
1832 1839 
1834 1851 
1842 1846 
1843 1846 
1801 1841 
1803 1842 
1827 1847 
1796 1840 
1830 1850 
1794 1837 
32 4675 
772 637 
2983 2330 
3084 3056 
3085 3054 
3672 4663 
1960 1938 
1992 1173 
2905 2820 
1850 2082 
2072 2082 
2974 2940 
2962 2974 
1851 1777 
29083 1128 
1883 1961 
3064 28493 
2021 2005 
2788 2732 
2873 2877 
2050 1121 
2028 2008 
1921 1913 
1852 1914 
1998 1836 
17 20 
2068 2073 
2856 2852 
739 698 
3028 2848 
3034 2843 
2775 2785 
ad 2841 2870 
2891 2845 
2383 29387 
3074 2846 
3049 2850 
3037 2665 
3084 3053 


REFERENCE ABBREVIATIONS 


M=modify, 


1.0 89102 


1851 
1852 


4677 
1976 
1953 


2083 


1999 


29032 
1915 
19369 
2014 


2083 


2789 
2874 
2848 


1065/M 
1072/M 
2094/M 
2186/M 
39300/M 
39304/M 
3820 
3929 
3968/M 
3872/M 
3995 
4004 


40439/M 
4082/M 
4095/M 
4104/M 
4246/M 
4246/M 
4411/M 
4411/M 
3900 


4345/M 


A=attribute, 


20093 
2778 


2000 


2032 
1916 
2003 


Azattribute, 


1065/M 
1072 
20394 
2198/M 
3900/M 
39304 
39320 
3929/M 
32968/M 
3972 
3995 
4004/M 


40439/M 
4082 
4095/M 
4104 
4246/M 
4246 
4411/M 
4411 
3968 


S=subscript, 


2069 


1917 


Stsubscript, 


1065 
1072/M 
2096/M 
2198 
3900 
3904/M 
3920/M 


32968 
3972/M 
3995/M 
4020 


4049 
4082/M 
4o0s5 
&8104/M 
4246 
4246 /M 
4411 
4411/M 
40493 


1985 


1889-08-21 


3915 
3320 


3990 
3995 
4020 


4oss 


=I/0O ref, 


1989-08-21 


1985 


IsI/0O ref, 


3915 
3920/M 


3390 
3995/M 
4020/M 


4246 


13:33:34 PAGE 1266 


3915/M 
39829 


3990/M 
4004 
4020 


4411 


Rz=read, Wewrite, Psparameter 


2052 


13:33:34 PAGE 1267 


2053 


Reread, Wetwrite, P=parameter 


REFERENCES OF tmm$mtr_flag signal functions NOS/VE CYBIL/II 1.0 881062 1989-08-21 13:33:34 PAGE 1268 


LDENT IP LER S639 see we eee eee DEFINED------ ce eere eee - “REFERENCES 
ON LINE 

mmt$software_ attribute set 2976 2847 2942 

mmt$software_attributes 2370 2976 

mmt$xcb_page_ wait info 3108 2651 

monitor condition_register 623 4554/M 

monitor condition_register 3203 4344 4554 

monitor fault_id 625 4556/M 

monitor fault _p 4402 4410/P 

monitor fault _p 4488 4556 4567 4581 

monitor faults 2656 4562 4562 4567/M 4568/M 4569/M 4570/M 4571/M 4572/M 
4532 4615 4616/M .4617/M 

monitor flag _id 4088 4100/P 

monitor flags 2618 3911/M 3911 3983/M 3383 4063/M 4063 

monitor flags 3615 3919 3926/M 3927 4016/M 4017 4076/M 4077 

mtc$scb_max_hardware_status 3853 3812 

mtc$stepped system 3857 4539 4602 

mtp$cst_p 3680 3896 3964 4058 4148 4229 4339 4377 4463 
4524 

mtp$error_stop 3696 4666 

mtp$set_status_ abnormal 3698 3705 3978 

mtp$step_unstep_system 3720 4468 4530 4540 4589 4599 4606 

mtr fit _message 4489 4529 4837 4588 4598 4604 

mttS$idie status biock 37380 3777 

mtt$scb_180 status 3766 3757 

mtt$scb_hardware_ status 3814 3752 3837 

mtt$scb_hardware_ status count 3812 3815 

mtt$scb_hardware_status_msg 3818 3824 

mttS$scb_hardware_ status msgs 3823 3760 

mtt$scb_hardware_status_options 3804 3814 3823 

mtt$smu_communicat ions block 3751 3744 

mtt$step_ status block 3785 3778 

mtt$system_idie _update_request 3858 3792 37392 

mtt$system_status_block 3776 3767 

mtt$system_step_update_request 3857 3787 3787 

mtv$csto 3686 3682 3896 3964 4058 4148 4229 4339 4377 
4463 4524 

mtv$hait_cpu_ring_ number 3734 4533 

mtv$scb 3744 4539/M 4602/M 

mtv$sys_core_init_compiete 1022 4465 4526 

mtv$system_haltring 3733 4534 

nat$received_ message descriptor 3124 3117 3126 

nat$received message_ list 3116 2633 

new task _ status 3612 3912 3813/M 3986 3987/M 4066 4067/M ° 

nic$cc_connect_confirm 3156 3147 

nic$ce_ connect _request 3155 3145 

nic$cc_expedited_ data 3161 3147 

nic$cc_max_pdu_kind 3163 3166 

nic$channel_connect ion _pdu 3179 3131 

nic$channeinet_pdu 3179 3133 

nit$ce_pdu_kind 3166 3144 

nit$cc_seq#_or_connect_time 3143 3132 

nit$cc_ sequence_number 3169 3148 

nit$device identifier 3176 3127 


**x REFERENCE ABBREVIATIONS : Mtmodify, Aztattribute, Stsubscript, I:I/O0 ref, Rtread, Wewrite, Ptparameter 


REFERENCES OF tmm$mtr_flag_ signal_functions NOS/VE CYBIL/II 1.0 89102 "1989-08-21 13:33:34 PAGE 1269 
IDENTIFIER-------- meas Sele e ee DEF INE DD] = +=: vcr ete “REFERENCES 
ON LINE 
nit$pdu_type 3179 3130 
normal 212 3703/M 3895/M 3903 3963/M 3371 3978/M 4001/M 4047/™M 
4144 4132 4139/M 4205/™M 4220/M 
nos 180 status 3757 4539/M 4602/M 
eriginator 3405 4230/M 
osc$aging interval _maximum 2442 2445 
osc$base_exception 319 321 
osc$call_instruction 3273 3281 
osc$data_read 3272 3281 
oscS$free_fiag 652 39310 3981 4061 
osc$free_ running clock maximum 1009 1006 
esc$invalid_ring 228 268 
osc$max_ fault_contents 710 704 
osc$max_idie.count 2580 2588 
osc$max_name_size 803 813 816 
osc$max_number_of_processors 2112 2107 2283 
osc$max_page_frames 1857 1168 1169 1776 1778 1821 1962 2070 2076 
osc$max_page_size 2541 2537 
osc$max_page_table_ entries 1858 1861 
osc$max_ring 227 268 269 
osc$max_segment_ length 251 274 2853 2884 
osc$max status _ condit ion_code 67 63 79 
osc$max_ status condition_number 3708 3699 
osc$max_string size 8&3 86 89 94 
osc$max_tasks 871 868 
osc$maximum_offset 250 251 271 271 272 
osc$maximum_processor_id 3298 3294 
osc$maximum_processor_ number 2564 2559 
osc$maximum_processors 2116 2112 2564 
osc$maximum_segment 249 270 
osc$min_ecc 318 319 
osc$min_page_size 2540 2537 
osc$min_ring 226 269 
esc$pr_base_ constant 2146 1065 1072 2030 2191 3900 3904 3915 3920 
3329 3968 3972 3933906 3995 4004 49020 4049 
4082 40g5 4104 4246 4246 4411 4411 
osc$task_time_slice_maximum 1462 1465 
osc$traps_ enabled 676 4577 4654 4657 
osk$debug §63 3893 3961 4189 4341 4523 
osk$m 600 3833 3961 4189 4341 4§23 ; 
osk$system_class 575 559 560 561 562 563 564 S65 
osk$unusual 560 4219 
ost$aging_ interval 2445 2374 2375 
ost$asid $38 $94 1112 1940 1951 1852 1967 2803 2946 
ost$cp_time 1591 1559 1604 . 2650 
ost$cp_time_value 1589 1154 15932 1533 2369 2370 2663 
ost$cpu_element_id 2556 2314 
ost$cpu_idie_statistics 2583 2317 
ost$cpu_memory_ port_mask 2558 ; 2290 
ost$cpu_running_or_stepped 2601 2598 2598 
est$cpu_state 2596 2299 
ost$cpu_state reason 2607 2320 


*** REFERENCE ABBREVIATIONS : Mtmodify, Atattribute, S*tsubscript, I=1/0 ref, R=read, Wwrite, P=parameter 


REFERENCES OF tmm$mtr_fiag_si 


IDENTIFIER------c-------eeee- - 
ost$cpu_state_table 


ost$cs_lock 
ost$cst_trace_control 
ost$debug code 
ost$debug list 


-oest$debug list_entry 


ost$debug mask 
ost$exchange_package 
ost$execute_ privilege 
ost$execut ion_control block 


_ost$external_ interrupt request 


ost$famitly_ name 
ost$flags 
ost$frame_descriptor 
ost$free running clock 


ost$global_task_id 


. ost$halfword 


ostS$idie type 

ost$key_ lock 
ost$key_lock_value 
ost$keypoint_ciass 
ost$keypoint_mask 
ost$logical_processor_id 
ost$minimum_save_area 
ost$monitor_ condition 
ost$monitor_ conditions 
ost$monitor_ fault 


est$monitor_ fault contents 


ost$name 

ost$p_register 

ost$page_id 

ost$page_ size 
ost$page_table_entry 

ost$page_ table_ index 
ost$paging statistics 
ost$parcel 
ost$pre_processed_for_reconfig 
ost$processor_element_id 
ost$processor_element_ number 
ost$processor 
est$processor 
ost$processor 
est$processor 
ostS$pva 
ost$rb system_error 
est$read privilege 


model_number 
seriail_number 


—_— 
= 
— 
— 
— 
—_ 


eee 


REFERENCES OF tmm$mtr_filag_ si 


IDENTIFIER-------------------- 


ost$reail_memory address 
ost$Sregister _mumber 
ost$ring 


ost$ring!_termination_reason 
ost$segment 
ost$segment_access_control 
ost$segment_descriptor 
ost$segment_length 
ost$segment_offset 
ost$stack_frame_save_area 
ost$state_ tables 
ost$status 

ostS$status_ condition 
ost$status_condit ion_code 
ost$string 

ost$string size 
ost$system_flag 
ost$system_virtual_address 
ost$task_index 
ost$task_time_slice 
ost$top_of_ stack _pointer 
ost$trap_enabie 

ost$user_ condition 
ostSuser_conditions 


ostS$user_identification 
ost$user_name 
ost$valid_relative_pointer 
ost$valid_ring 

ost$vector simulation_control 
ost$virtual_machine_identifier 
ost$write_ privilege 

ost$x_ register 
osv$cpus_logically_on 


Pp 


p_register 


pmc$internal_base_exception 


“pmc$kill_task_flag 


pmc$max_signal_contents 
pmc$max_task_id 


- pmc$min_ecc 


“pmc$pc_base_exception 
pme$hung_ recipient task 


pmt$binary_ mainframe_id 
pmt$condition_identifier 
pmt$cpu_model_number 
pmt$cpu_serial_number 


pmtSinitialization_value 


eee 


gnal_functions NOS/VE CYBIL/II 
DEFINED-<---+e-ce2e-e- - “REFERENCES 
ON LINE 
2286 2260 
4330 
3312 2631 
3476 2318 
3272 3260 
3268 3237 
3259 3268 
3278 3236 
3186 2618 
2822 2804 
2617 2300 
4373 
3464 2306 
2455 2450 
3243 3193 
730 745 
1006 S76 
1171 
2368 
862 857 
2295 
3650 
4401 
1012 2569 
25392 2587 
257 2810 
263 260 
3254 3206 
3256 3209 
2559 2291 
740 691 
641 648 
648 623 
687 765 
704 T0090 
816 833 
665 43 
1863 1873 
2537 2518 
1868 1877 
1861 1877 
1627 1605 
1014 2312 
3472 2321 
2568 2556 
2577 2570 
3294 2621 
3288 2620 
2467 2461 
2545 2462 
2793 670 
393 4417 
2825 2805 


REFERENCE ABBREVIATIONS 


gnal_functions NOS/VE CYBIL/II 


DEFINED---------r err eee REFERENCES 
ON LINE 

986 2311 
661 726 
268 280 
4520 
3306 2654 
270 281 
2815 2944 
2802 2776 
274 2927 
271 282 
714 748 
2283 3686 
51 aa 
75 46 
73 54 
$2 55 
8&6 $3 
944 940 
$33 2011 
868 863 
1465 1451 
3246 3238 
675 612 
651 658 
658 624 
4061 
2448 2363 
2483 2449 
277 2647 
269 3238 
3865 3756 
7853 742 
2828 2806 
662 726 
2107 1O65 
3928 
4082 

621 4551/M 
3187 4465 
4628 
3093 313 
944 9360 
$29 $23 
3366 3363 
301 237 
237 309 
313 4206 
2460 2367 
806 800 
2527 2516 
2530 2517 
3000 2935 


REFERENCE ABBREVIATIONS 


1.0 89102 


2283 
4371 


3288 
3754 
2571 
2572 

688 


2818 


3680 
4458 


3658 
4487 


1123 
1402 
2649 

$39 
2628 
3666 


669 


31398 


847 
4372 


2483 
621 


3755 


848 


3891 
4514 


3667 
4638 


1124 
1414 


978 


2629 
3885 


3199 
4402 


2455 
741 


3867 


3231 


3957 


3672 


1125 
1966 


1019 


3357 
3935 


3203 
44593 


2677 
3187 


3249 


1989-9 


4045 


3959 


1126 
2228 


1013 


3405 
4044 


4488 


2741 


4334 


6-21 13:33:34 PAGE 1270 

4141 4184 
4187 4333 
1160 1170 
2268 2263 
1117 1146 
3588 3643 
4092 4163 
4518 

4334 


Memodify, Azattribute, Stsubscript, I:1/0 ref, R=read, We-write, Psparameter 


Msmodify, 


1.0 88102 


734 
1038 


2925 


2928 
995 
&28 


616 
213 
75 


3417 


2039 


3135 


718 


2648 
3673 


3189 
2819 
3228 
1072 
3968 
4095 


4533 
4663/P 


2523 
2522 


735 
2807 


3055 


2951 
2857 


2938 


3936 


2080 


747 


3191 


2089 
3972 
4104 


4534 
4668 


Azattribute, 


736 
2808 


3226 


2953 
3263 


4026 


2325 


831 


2190 
3990 
4246 


4546 
4674 


3228 
2842 


3262 


2956 
3265 


3607 


3197 


3900 
39395 
4246 


4551 
4677/P 


Szsubscript, Ir=1/0 


1989-90 


2922 


3675 


3676 


3620 


3201 


3904 
4004 
4411 


4568 


ref, 


8-21 13:33:34 PAGE 1271 
2923 3248 
4645 
4646 
4043 
3310 3381 
3915 33920 
4020 4049 
44i1 
4621 4622 


R=read, W:=write, 


Pzparameter 


REFERENCES OF tmm$mtr_filag signal _functions NOS/VE CYBIL/II 1.0 89102, 1989-08-21 13:33:34 PAGE 1272 


IDENTIFIER* ss ee ee ee ee eee eee ene DEFINED-~------"s eee eee56 REFERENCES 
ON LINE 

pmt$sense_switches 2550 2378 

pmt$signal 885 878 3406 4164 

pmt$signal_contents §23 887 

pmt$signal_id 890 8&6 

pmt$task_id 3363 2645 3358 

pmt$vector simulation 3872 3866 

present 763 4562 4562 4572/™M 4592 4615 4617/M 

present 3397 4228/M 

pti_flags 3617 4015 4075 4233 

pva 670 4465 4533 4534 4546 4568 4621 4622 4628 
4663/P 4668 4674 4677/P 

pva 688 4546/M 4568/M , 

rb 4109 4143/P 4143/P 4144 4157/P 

rb 4252 4284/P 4284/P 4284/P 

rb 4290 4316/P 4316/P 4316/P 

rb 4417 4465 4467 4475 4476 4a77 4478 

readying task_priority 3619 4151 4154 

readying task_priority 4140 4152/M 4154/M 4157/P 

requested status 3786 4539/M 4602/M 

reserved 3398 4215 4227/M 

ring 280 4465 4533 4534 4621 4628 4663/P 4668 4674 
4677/P 

seg 281 4622 

send monitor. fault 4486 4350 4383 4410 4480 4634 

seqno 864 4054/M 40959/M 

sequence number 3608 4054 4099 

sft$counter 1637 1606 1607 2379 2381 2382 2384 

sft$file_space_limit_kind 3093 2851 

signal 878 4316/P 

signal 3406 4231/M 

signal 4164 4231 

signals 2657 4215 4227/M 4228/M 4230/M 4231/M 

stack length 4646 4664/P 4671 4678/P 

stack _segnum 4645 4664/P 4669 4674 4678/P 

Status 856 4143/P 4144 

status 876 4316/P 

status $38 4284/P 

status 3611 4051 

status 3700 3703/M 3704/M 

status 3887 3895/M 3902/P 3303 

Status 3934 3978/M 3978/M 

status 33837 3963/M 3970/P 3971 3978/P 4001/M 4002/M 

status 4027 4047/M 

status 4033 4100/P 

status 4165 4191/P 4132 4199/M 4200/M 4205/M 4206/M 4220/M 4221/M 
42339/P 

status 4521 4608/P 4620/P 4623/P 4629/P 

status_p 44 4475 

status _p 616 4475/M 

step_status_ block 3778 4539/M 4602/M 

syc$ic_fatal_software_error 3490 4468/P 4530/P 4589/P 4s599/P 


* * REFERENCE ABBREVIATIONS Memodify, Arztattribute, Stsubscript, I+1/0 ref, R=read, Wewrite, Psparameter 


REFERENCES OF tmm$mtr_flag signal_functions NOS/VE CYBIL/II 1.0 89310602 1989-08-21 13:33:34 PAGE 1273 


IDENTIFIER--- ++ -- ee ee ere ree ne DEFINED----------2e2--- REFERENCES 
ON LINE 

syc$ic_software_breakpoint 3503 4540/P 4606/P 

syc$mf_hang_task 3385 4608/P 

syc$mf_invoke_sysdebug 3386 4623/P 4629/P 

syc$ucr_ condition 819 830 

syc$user_defined_ condition 820 832 

system_error_ count 2642 4204 4583/M 4583 458s 4591 

System _f lags 2632 3982/M 3982 4062/M 4062 

system _filags 3616 3994 4013/M 4014 4073/M 4074 

System_status 3767 4539/M 4602/M 

system_table_lock_ count 2631 4596 

Syt$180_idle_ code 3484 2307 3721 3768 3770 

Syt$monitor_ flag 3385 3370 3886 4088 

Syt$monitor_flags 3370 2619 3615 3911 3927 3984 4017 4064 4077 

Syt$monitor_request_ code 104 40 855 875 $37 974 2266 

Syt$monitor_ status 211 42 856 876 938 $75 2267 3590 3645 
3660 37006 3887 39337 4027 4093 4165 4521 
4647 

task_id 857 4143/P 4157/P 

task_id 877 4316/P 

task_id 939 4284/P 

task_id 3885 3893 3902/P 33908 3812/S 3913/8 3919/S 39326/S 3826/8 
3928/P 

task_id 3935 3961 3970/P 3376 3986/S 3987/S 3994/S 3999/P 4013/8 
4013/8 4015/S 4016/S 4016/5 4019/P 

task_id 4044 4053/M 4054/M 4059 4066/S 4067/S 4073/8 4073/S 4075/8 
4076/S 4076/S 4079/P 

task_id 4163 4189 4191/P 4233/8 4239/P 4241/P 

task_id 4401 4409/P 

task_is terminating 2634 3377 4000 4198 

taskid 2295 33908 3376 4059 4230 4527 

taskid 40392 40396/M 4098 4038 4039/M 4039/58 4100/P 4101/M 4101/58 

text 47 4467 4478 

text_p 45 4476 

text _p 617 4476/M 

tmc$ 321 327 330 333 336 339 342 345 348 

351 354 357 360 363 366 369 372 

tmc$broken_task_fault_id 772 693 4471 4545 4581 

tmc$btc_invalid_ao 635 619 4673 

tme$btc_invalid_p 635 619 

tmce$btc_mcr_traps disabled 636 620 

tmc$btc_mf traps disabled 635 618 4656 

tmc$btc mntr_ fault buffer full 634 618 4576 

tmc$btc_system_error 637 614 4473 

tme$btc_ucr_traps disabled 636 620 

tmc$dummy_ fault 773 6399 

tmc$flag available 31 957 961 

tmc$maximum_monitor faults 777 768 4515 4562 4562 4566 

tmc$maximum_signals 3414 3411 4185 4214 

tmc$maximum_system_task_id 3422 3425 

tme$mcr_ fault 772 635 4342 

tmc$mf_cause_job_free flag trap 3385 3984 4017 4064 4077 42339/P 4620/P 

tmc$opt_return 3626 3302/P 3970/P 4143/P 

REFERENCE ABBREVIATIONS Memodify, Azattribute, S=subscript, I:1/0 ref, Rtread, Wewrite, P=parameter 


REFERENCES OF tmm$mtr_flag signal_functions NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 1274 
TRENT IF LER Sie So Ses ee Se ee oss DEFINED s=<<255 92554 e 55% REFERENCES 
ON LINE 

tmc$rc_ready_ conditional 3573 3928/P 4241/P 

tmc$rc_ready conditional wi 3573 4019/P 4073 /P 4157/P 

tmc$signal_avai lable_63, $21 932 

tmc$stid_null_task 3428 3425 

tmce$ts_first_ready_uncond 3547 3912 3986 4066 

tmc$ts_io_wait _not_queued 3565 3547 

tme$ts_nuti 3552 3913 3987 4051 4067 

tmc$ts_page_wait 3567 3548 

tmc$ts_ready 3552 3543 

tmc$ts_timed wait _not_queued 3559 3546 

tmc$ts_ timeout reqexp_longvlong 3557 3545 

tmc$ts_timeout reqexp_shortshrt 3556 3544 

tmc$unknown_ system_req_ fault 773 4379 

tmc$wi_ wait selected r3 3638 4015 4075 4233 

tme$invalid global _taskid 327 3978/P 4002 4200 

tme$mtr_ signal buffers full 345 4221 

tmk$monitor base 535 388 391 394 3937 400 403 406 409 
412 415 418 421 424 427 431 434 
437 440 44a 448 451 454 457 &60 
463 466 463 472 475 478 481 484 
487 4390 433 

tmk$process task_mcr_ fault 484 4341 

tmk$send_monitor_ fault 472 4523 

tmk$send_ signal 469 4189 

tmk$set_monitor_ flag 490 3893 

tmk$set_system_flag 466 3961 

tmk$signal buffers full 481 4219 

tmp$check_taskid 3588 4143 

tmp$check taskid_ with_lock_set 3642 3902 3970 

tmp$cilear_ lock 2087 1072 2100 3904 3915 3320 3329 3372 3990 
3995 4004 4020 4082 4104 4246 4411 

tmp$find_xcb 3657 4191 

tmp$flag_ all_tasks 4025 4084 

tmp$get_xcb_p 3666 3999 4403 

, tmp$monitor flag job_tasks 4087 4105 

tmp$mtr_ process _system_error 4416 4483 

tmp$mtr_ready task 4108 4159 

tmp$mtr_send_signal 4289 4318 

tmp$mtr_ set _system_filag 4251 4286 

tmp$process task_mcr_fault 4322 4357 

tmp$process unknown_req fault 4361 4385 

, tmp$send_monitor_ fault 4400 4413 

tmp$send_signal 4162 4248 4316 

tmp$set_ lock 2184 1065 2202 3900 3968 4049 40395 4246 4411 

tmp$set monitor_flag 3884 3931 4100 4239 4608 4620 4623 4629 

tmp$set_system_flag 3934 4022 4284 

tmp$set_task_ready 3650 3928 40138 4079 4157 4241 

tmt$broken_task_condition 634 613 4641 

tmt$broken_task_monitor_ fault 611 694 4461 4516 

tmt$dispatch_ contro} 3514 2302 

tmt$dual_ state priority _entry 3581 2289 3578 

tmt$idie status 3570 3613 

tmt$mer_ faults 846 696 4332 

"x * REFERENCE ABBREVIATIONS Memodify, Azattribute, Stsubscript, I:1/0 ref, R=read, W-=write, Pzparameter 
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tmt$monitor fault buffer 762 2656 

tmtSmonitor fault buffers 768 763 764 765 

tmt$monitor fault identifiers 771 625 632 

tmtSoption 3626 3589 3644 

tmt$primary task_list 3624 3737 

tmt$primary task_list_entry 3606 3624 

tmt$pti_flags 3630 3617 

tmt$pti_ lock 2120 2087 2184 2235 

tmt$rb_ delay 2265 2253 

tmt$rb ready task 854 41093 

tmt$rb_ send signal 874 4290 

tmt$rb_ set_system_flag 936 4252 

tmt$rb wait 973 9381 

tmt$ready condition 3573 3652 

tmt$signal 3404 3398 

tmt$signal_ buffer 3396 2657 

tmt$signal_ buffers 3411 3397 3398 3399 

tmt$system_ flags 3417 2632 3616 39382 4014 4062 4074 

tmt$system task_id 3425 2623 

tmt$task_queue_ link 2038 2007 3614 

tmt$task_ status 3552 3517 3611 3612 

tmtS$wait inhibited 3637 3632 

tmt$xcb_ offset size 3628 3608 

tmv$halt_on_hung task 1035 4601 

tmv$ job _debug_ ring p 1038 4626 4627 

tmv$pti_ lock 2235 1065/P 1072/P 3900/P 3904/P 3915/P 3820/P 39329/P 39368/P 
3972/P 39390/P 3995/P 4004/P 4020/P 4049/P 4082/P 4095/P 
4104/P 4246/P 4246/P 4411/P 4411/P 

tmv$pti_p 3737 3912 3913/M 3919 3826/M 3926 3386 3987/M 3994 
4013/M 4013 4o1s 4016/M 4016 4050 4051 4os4 
4066 4067/M 4073/M 4073 4075 4076/M 4076 40399 
4101 4151 4154 4233 

tmv$system_debug ring 1036 4621 

tmv$system debug segment 1037 4622 4622 

tmv$system_error_hang_count 1039 4204 4sé85 4591 

trap_enable 612 4474/M 45S53/M 

trap_enabie 3185 4474 4553 4577/M 4654 4657/M 

untranslatable pointer 848 4345/M 

untranslatable_ pointer 3231 4345 4355/M 

user _ condition_register 624 4555/M 

user_condition_register 3201 39309/M 3910 3380/M 39381 4060/M 4061 4555 

wait inhibited 2630 3385/M 4065/M 4238/M 

wait inhibited 3632 4015 4075 4233 

xcb_p 2300 3903/M 3908 3911/M 3911 3377 3980/M 3980 3982/M 
39382 3983/M 3983 3985/M 4060/M 4060 4062/M 4062 
4063/M 4063 4065/M 4150 4151/S 4152 4154/S 4340 
4378 4465 4474 4480/P 

xcb p 3959 39939/P 4000 4000 4007 

xcb_p 4187 4191/P 4198 4204 4215 4227/M 4228/M 4230/M 4231/M 
4238/™M 
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xcb p 4333 4340/M 4341 4344 4345 4350/P 4355/M 

xcD p 4373 4378/M 4383/P 

xcb_p 4407 4409/P 4410/P 

xcb_p 4487 4523 4533 4534 4546 4547 4548 4s49 4$51 
4552 4553 4554 4555 4558/P 4562 4562° 4567/M 
4568/M 4568 4569/M 4569 4570/M 4570 4571/M 4571 
4572/M 4577/M 4583/M 4583 4585 4591 4532 4596 
4596 4608/P 4615 4616/M 4617/M 4620/P 4621 4622 
4623/P 4627 4628 46239/P 

xcb_p 4638 4654 4657/M 4663/P 4663/P 4668 4668 4669 4870 
4671 4674/M 4674 4676/M Ae77/P 4677/P 

xp 2618 3909/M 3909 3980/M 3980 4060/M 4060 4344 4345 
4355/M 4465 4aya 4533 4534 4546 4547 4548 
4549 4551 4552 4553 4554 4555 4568 4569 
4570 4571 4577/M 4621 4622 4628 4654 4657/M 
4663/P 4668 4668 4669 4670 4671 4674/M 4674 


4676/M 4677/P 


zero pva 4334 4355 
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